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ROM# 


BOARD COORDINATE 


N/A 


ID 


N/A 


IE 


N/A 


1A 


N/A 


2A 



.TITLE DISKI016 ,' P00376C 12/03/75' 
******************************************** .*.*.* * * *.**,* ***** 

IMP# PROM# 

IMP-16F/006A 4600876 

IMP-16F/006B 4610876 

IMP-16F/006C 4620876 

IMP-16F/006D 4633876 

************************************ *,*.** ******* * * * ** * * * * * * 
************************************** * * * ***************** 

DISKIO IS A SUBROUTINE DESIGNED TO ALLOW COMMUNICATIONS 
WITH A DUAL DRIVE FLOPPY DISK VIA THE DISK INTERFACE 
BOARD . 



THERE ARE TWO ENTRY POINTS > 

1) DISKIO USES THE PHYSICAL SECTOR NUMBER. 

2) DISK2 CONVERTS THE LOGICAL SECTOR NUMBER INTO -A 
PHYSICAL SECTOR NUMBER USING THE BAD SECTOR TABLE, 
THEN CALLS DISKIO. 



CALL DISKIO AS FOLLOWS: 



JSR 

.WORD 



DISKIO 
PLIST 



PLIST: 



. WORD COMMAND 

,WORD LOGSECT 

.WORD 3UFADDR 

.WORD 

.'WORD 



* PARAMETER LIST POINTER 
i ERROR RETURN HERE 
; NORMAL RETURN HERE 



7-WRITE, 2=READ 
LOGICAL SECTOR NUMBER 
BUFFER ADDRESS 
STAUS RETURNED HERE 
; PHYSICAL SECTOR RETURNED 



********************************************************** 
********************************************************** 

RAM LOCATIONS USED BY THE DISKIO ROUTINES 
********************************************************** 



MRAM-0 
MRAM-1 
MRAM-2 
MRAM-3 
MRAM-4 
MRAM-5 
MRAM-6 
MRAM-7 
MRAM-8 
MRAM-9 
MRAM^l 
MRAM-1 
MRAM-1 



THROUGH MRAM-1 8 



TRACK COUNTER 3 

TRACK COUNTER 1 

DISK STATUS 

DISK DATA 

TRACK DIRECTION REGISTER 

AC0 

AC1 

AC2 

AC3 

STACK-15 TO STACK-0 

IEN 

ERROR COUNTER 

FLAGS 
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62 
63 
64 
65 
66 
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68 
69 
70 
71 
72 
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74 
75 
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78 
79 
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92 
93 
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97 
93 
,9,9 
100 
101 
102 
103 
104 



MRAM-1C BAUD RATE SWITCH FOR TTY/CRT 

MRAM-1D TEMP LOC FOR TTY/CRT BIT COUNT 

********************************************************** 

TRACK DIRECTION REGISTER BIT ASSIGNMENT 

*************** 
*DRIVE2*DRIVE1* 

* BIT1 * BIT0 * 
*************** 

* 0=OUT* 0=OUT* 
-. , * 1 = IN * 1 = IN * 

*************** 

***** *■*■■* ******************************************************** 

.HARDWARE BIT DEFINITIONS 
**************************************************************** 



HARDWARE STATUS BIT DEFINITIONS 

BIT = RSYNC (SYNC-CHARACTER HAS BEEN RECOGNIZED) . 

BIT 1 ■ TRACK 0* (LOW WHEN HEAD IS AT TRACK 0) . 

BIT 2 = INDEX* (LOW WHEN INDEX MARK IS DETECTED) . 

BIT 3 = FILE INOPERABLE* (LOW WHEN A CONDITION WHICH ENDANGERS 

THE DATA ON THE DISKETTE ) . 
BIT 4 =» READY* (LOW WHEN THE DRIVE IS TURNING AND THE DOOR IS 

CLOSED) . 
BIT 5 = TTY/CRT BAUD SELECTION. 
BIT 6 - TTY/CRT BAUD SELECTION. 



HARDWARE CONTROL SIGNALS 

BIT » RSTEN (RESET ENABLE SIGNAL TO LOOK FOR SYNC CHARACTER) 

BIT 1 * WREN (WRITE ENABLE SIGNAL) 

BJT 2 » STEP (STEP HEAD ONE TRACK FOR EACH PULSE) . 

BIT 3 = DIRECTION (SET DIRECTION THE HEAD IS TO 3E MOVED). 

BIT 4 = FILE RESET (RESETS FILE INOPERA3LE LATCH). 



.PAGE 
********************************************************** 



105 

106 

lk)7 

108 

109 

110 

111 

112 

113 

114 0003 

115 

116 

117 

118 C000 2500 A PDBOOT: JMP @.+l 

119 C001 C00E A .WORD DBOOT 
1.20 C00 2 2500 A .TTYGJET:. J.MP . . 4..+1 

121 C003 C28A A .WORD GETC 

122 C004 2500 A TTYPUT: JMP 3. + 1 



DEFINITIONS 

**************************************************************** 

.ASECT 

* X'C000 

PROGRAM ENTRY POINTS 
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123 
124 
125 
126 
127 
128 
129 
133 
131 
132 
133 
134 
135 
136 
137 
133 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 



C005 C31A A -WORD PUTC 

C006 2500 A TTYGCO: J MP @.+l 

C007 C2A8 A .WORD GECO 

C303 2500 A LDISK: JMP @.+l 

C009 C255 A .WORD DISK2 

C00A 2500 A PDISK: JMP §.+1 

C00B C01D A .WORD DISKIO 

C00C 2500 A TRAM: JMP §.+1 

C00D C276 A .WORD TOPRAM 

0001 A IEN = 1 

0002 A SEL = 2 
80 00 A AC0 = 

0001 A AC1 

0002 A AC2 

0003 A AC3 
3008 A 
0001 A 



1 
2 
3 

SNRDY = 8 
MISYNO 1 



; LOGICAL DISK I/O 

;PHYSICAL DISK I/O 

?TOP-OF-RAM DETERMINATION 

; INTERRUPT ENABLE FLAG 

; SELECT FLAG 

; ACCUMULATOR ZERO 

; ACCUMULATOR ONE 

; ACCUMULATOR TWO 

; ACCUMULATOR THREE 



BRANCH ON CONDITION CODES 



0001 A ZRO = 1 

00 02 A POS = 2 

0003 A 3IT0 = 3 

0004 A BIT1 = 4 

0005 A NZRO = 5 
0009 A IEN2 = 9 
000A A CYOV = 10 
000E A WRJC = 14 
000E A NRDY = 14 



152 
153 
154 
155 
156 
157 
158 
159 
160 
161 

162 

i ii -> 

164 
165 
166 
167 
168 
169 
170 
171 
172 



C00E 29FD 

n^fAV a r\BP 

\» XJ %l i TUil 

C010 A700 

C011 A7FF 



C012 290A 
C013 C018 
C014 2101 
C015 2000 

C016 0000 
C017 21F6 

Cfcil8 0002 
C019 0001 
C01A 3000 
C01B 0000 
C01C 0001 



* PAGE 
****************************************************************, 

DISK BOOT ROUTINE . 
**************************************************************** 



A DBOOT: JSR 

A T T 



ST 
ST 



JMP 
JMP 



A ERROR: HALT 
A JMP 



TRAM 
AC1,-1 
AC1,(AC3> - 
AC1 ,-1 (AC3) 



JSR DISKIO 
.WORD $LIST 



ERROR 




DBOOT 



A ?LIST: .WORD 2,1,0,0,1 

A 

A 

A 

A 



;CLEAR TRACK POINTERS 

;READ DBOOT 

^TRANSFER CONTROL TO DBOOT 

;TRY AGAIN 



173 
174 
175 
176 
177 
178 
179 



.PAGE 
************************************** * * * *********** ************* 

DISK I/O ROUTINE ' ~ ' ■ ' • 
**************************************************************** 
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180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193, 

194 

195 

196 

197, 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

203 

,2m 

210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 



DETERMINE THE MAXIMUM RAM LOCATION (STARTING WITH 
LOCATION X'6FFD DOWNWARD UNTIL RAM IS FOUND). 

\ SAVE THE REGISTERS, STACK, IEN, FLAGS AND 

; CLEAR IEN. 

1 **************************************************************** 



C01D 

C01E 

C01F- 

C020 

C021 

C022 

C023 

C024 

C025 

C026 

C02J 

C028 

C029 

C02A 

C02B 

C02C 
C02D 
C02E 
C02F 
C030 
C031 
♦Q032 
C033 
C034 
C035 
C036 
C037 
C038 
C039 
C03A 
C03B 
C03C 
C03D 
C03E 
C03F 
C040 
C041 
C042 
C043 
C044 
C045 
C046 
C047 



4300 
8D0E 
A300 
F300 
2102 
DD0B 
21FB 
5000 
A300 A 
F300 A 
2102 A, 
5000 A 
21 F8 A 
5000 A 
2104 A 



0002 
6FFD 
1000 
0009 
CDFB 
ABF9 
,4,600, 
ABF8 
A7FA 
A3TB 
3E81 
D9F7 
4500 
30 30 
4400 
A3E5 
A600 
4C0F 
4AFF 
4500 
A600 
48FF 
21 FB 
4C01 
1901 
4C03 
<3980 
A2FF 



DISKIO: PUSH AC3 

LD AC3,TMPTR 

A3: ST AC0,(AC3) 

SKNE AC0,(AC3) 

JMP A4 

A5: SUB AC3,CONTl 

JMP A3 

A4: CAI AC0,0 

ST AC0,(AC3) 

SKNE AC0,(AC3) 

JMP A6 

CAI AC0,0 

JMP A5 

A6: CAI AC0,0 

JMP BSAV 

A WRD2: .WORD 2 

A TMPTR: .WORD X'6FFD 

A CONT1: .WORD X'1000 

A CONT2: .WORD X'9 

A BSAV; ADD AC3,WRD2 

A ST AC2,-7(AC3) 

A PULL AC 2 

A ST AC2,-8(AC3) 

A ST AC1,-6(AC3) 

A ST ■ . AC0,-5(AC3) 

A ' RCPY AC3,AC2 

A SU.3 AC2,CONT2 

A PULL AC1 

A PUSHF 

A PULL AC0 

A ST AC0,-01B(AC3) 

A ST AC1,(AC2) 

A LI AC0,15 

A Bl: AISZ AC2,-1 

A PULL AC1 

A ST AC1,(AC2) 

A AISZ . AC0,-1 

A JMP Bl 

A LI AC0,1 

A BOC IEN2,C1 - ■ '. 

A LI AC0,0 

A CI: ' PFLG IEN 

A ST AC0,-1(AC2)' 



;SAVE AC 3 

; FINDS TOP OF SYSTEM MEMORY 

;TRY DOWN 4K 



•FALSE ALARM 



AC 2 CONTENTS STORED 
ORIGINAL CONTENTS OF AC3 
AC3 CONTENTS STORED 
AC1 CONTENTS STORED 
AC0 CONTENTS STORED 



;TOP OF STACK 



; FLAGS CONTENTS STORED 

;RAM 'STACK' ADDRESS 

;PULL STACK 

; STORE STACK IN RAM 

;FINISHED STORING STACK? 

;NO 

;YES 



;CLEAR INTERRUPT ENABLE 
;IEN STATUS STORED 



231 
232 
233 
234 
235 
236 
237 

238 C048 9BF7 A D: 

239 C049 8204 A 

240 C04A E10F A 



.PAGE 
**************************************************************** 



DISK HARDWARE 1 ADDRESS DETERMINED AND STORED 
**************************************************************** 



LD 
LD 
SKG 



AC2,@-9(AC3) 

AC0,4(AC2) 

AC0,TNS 
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241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 



C04B 2105 A 
C04C 810B A 
C04D A3FE 
C04E 310A 
C04F A3FD 
C050 210C 
C051 8104 
C052 A3FE 
C053 8103 
C054 A3FD 
C055 2107 



C056 7D06 
C057 7D05 
C058 7D0A 
C059 7D09 
C05A 0267 
C05B 7FFF 
C05C 004C 



D3: 



D2: 



JMP • 


" D2 


LD 


AC0,BSTAT 


ST 


AC0,-2(AC3) 


LD 


AC0,BDATA 


ST 


AC0,-3(AC3) 


JMP 


Dl 


LD 


AC0,ASTAT 


ST 


AC0,-2(AC3) 


LD 


AC 0, AD ATA 


ST 


AC0 r -3(AC3) 


JMP 


Dl 



;DISK DRIVE #1 SELECTED 
;DISK DRIVE #2 SELECTED 



**************************************************************** 

CONSTANTS " " ' " " ' ; 

*************************************************************'*** 



A ASTAT! 
A AD AT A: 
A 3STAT: 
A 8DATA: 
A TNS: 
A MSK: 
A MTRK: 



. WORD 
. WORD 
. WORD 
.WORD 
. WORD 
.WORD 
.WORD 



X'7D06 

X'7D05 

X'7D0A 

X'7D09 

X'267 

X'7FFF 

X'4C 



266 
267 
263 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
230 
281 
232 
283 
234 
235 
286 
287 
283 
289 
290 
291 
292 
293 
294 
295 
295 
297 



•PAGE 
********************************** ****** *************** *** * * *-* * * * 

LOAD HEAD, SET ERROR COUNTER TO ZERO, TEST . ■''-': 
READY AND FILE OPERATIONAL^ SIGNALS. '* ', ' 

************************* * * *********************** *"* ******* * ** * * 



C05D 
C05E 
C05F 
C060 
C061 
C062 
C063 
C064 
C065 
C066 
C067 
C068 
C069 
C06A 
C063 
C06C 
C06D 
Cfc)6E 
C06F 
C070 
C071 
C072 
C073 
C074 



4C00 
33FE 
4C32 
5380 
5880 
48FF 
21FC 
4C00 
A3E6 
83FE 
8203 
58FC 
1309 
5301 
1309 
4C10 
A200 
4C00 
A200 
3230 
53FD 
1302 
4C08 
2566 



A Dl: 

A 

A 

A El: 

A 
A 
A 
A 
A 
A 
A 

A 

A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



Ell 



F"l 



Gl 



HI 



LI 


AC0,0 


ST 


AC0,§-2{AC3) 


LI 


AC0,50 : 


ROL 


AC0,128 ~. 


ROL 


AC0 f 128 


AISZ 


AC0,-1 ; : 


JMP 


El • /■">■ 


LI 


AC0 f 


ST 


AC0,-X'1A(AC3) 


LD 


AC2,-2(AC3) 


LD 


AC0,(AC2); ,<v 


ROR 


AC0,4 


BOC 


BIT0,H1 


ROL 


AC0,1 :. ■= .„ 


BOC 


BIT0,G2 


LI 


AC0,X'10 


ST 


AC0, (AC2) 


LI 


•* A£0>0 «-.,...< 


ST 


AC0,(AC2) 


LD 


AC0,(AC2^. . - ; 


ROR 


AC0,3 


30C 


- BIT0,G2 .-.*.,. 


LI 


AC0,SNRDY 


JMP 


@EXB ,, •■- 



; HEAD LOAD 

;SET DELAY COUNTER . FOR 50MS 



SET ERROR COUNTER TO 
STATUS ADDRESS 
STATUS 

;TEST READY* . 

;TEST FILE INOP.* '" " 
;PULSE FILE INOP.* TO RESET 



;RETEST FILE*I$OP.* 
; SYSTEM NOT READY 



29 8 
299 
300 
301 



.PAGE "' v '■ " r '• 

**************************************************************** 

TEST FOR VALID TRACK COUNTER. IF THE TRACK COUNTER 
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302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

323 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 



IS NOT VALID (I.E. WITHIN TO 76) THEN RE-SYNCRONIZE 
THE DRIVE AND THE TRACK COUNTER. 



,********************************* 



**************************** 



C075 

C076 

C077 

C078 

C079 

C07A 

C07B 

C07C 

C07D 

C07E 

C07F 

C080 

C081 

C082 

C033 

C084 

C085 

C086 

C087 

C088 

C089 

C08A 

C08B 

C08C 

C08D 

C08E 

C08F 

C090 

C091 

C092 

C093 

C094 

C095 

C096 

C097 

C098 

C099 

C09A 

C09B 

C09C 

C09D 

C09E 

C09F 

C0A0 

C0A1 

C0A2 

C0A3 

C0A4 

C0A5 

C0A6 



3D81 

F9DF 

2102 

49FF 

3081 

4200 

3681 

8200 

61DD 

E1DD 

2102 

4C00 

A200 

151C 

5600 

8200 

1402 

5600 

2117 

4C00 

A200 

4C04: 

A200 

3031 

4C00 

A200 

2D4F 

83FC 

F9C4 

2106 

1401 

21EF 

48 FE 

3031 

A3FC 

21EB 

1301 

21E9 

48FF 

3081 

A3FC 

21E5 

4200 

9BF7 

3604 

E53D 

2101 

D53C 

5DFD 

4600 



A 
A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A. 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



G2i 



II 



Kl 
K3 

Ni 



$2: 

$3: 
$4t 

K2 



RCPY 

SKNE 

JMP 

AISZ 

NOP 

PUSH 

RCPY 

LD 

AND 

SKG 

JMP 

LI 

ST 

BOC 

XCHRS 

LD 

BOC 

XCHRS 

JMP 

LI 

ST 

LI 

ST 

RCPY 

LI; ' 

ST 

JSR 

LD 

SKNE 

JMP 

BOC 

JMP 

AISZ 

NOP 

ST 

JMP 

BOC 

JMP 

AISZ 

NOP 

ST 

JMP 

PUSH 

LD 

LD 

SKG 

JMP 

SUB 
v SHR • 

PULL 



AC3,AC1 
AC 2, AST AT 
II 
AClr-1 

AC 2 

AC1,AC2 

AC0,(AC2) 

AC0,MSK 

AC0,MTRK 

Kl 

AC0,0 

AC0,(AC2) 

NZRO,K2 

AC 2 

AC0,(AC2) 

BIT1,N 

AC 2 

K2 

AC0,0 

AC0,(AC2) 

AC0,4 

AC0,(AC2) 

AC0,AC0 

AC0,0 

AC0, (AC2) 

@DEL10M 

AC0,-4(AC3) 

AC 2, AST AT 

$3 

BIT1,$2 

K3 

AC0,-2 

AC0,-4(AC3) 

K3 

BIT0,$4 

K3 

AC0,-1 

AC0,-4(AC3) 

K3 

AC 2 

AC2,@-9(AC3) 

AC1,4(AC2): 

AC1,W267 

. + 2 

AC1,W268 

AC1,3 

AC 2 



? SELECT CORRECT DISK DRIVE 



;MASK OFF BIT 15 

; VALID TRACK RANGE? 



; TRACK COUNTER =0? 
; CURRENT DISK ADDRESS 

; TRACK COUNTER =0? 



;SET DIRECTION TOWARD TRK0 

SET STEP* LOW 

8US DELAY 

4US DELAY 

SET STEP* HIGH 

DELAY 10 MS 

AC0 GETS DIRECTION 

SELECT PROPER DISK DRIVE 

PROPER DIRECTION? 

YES 

NO, REVERSE DIRECTION 



; PROPER DIRECTION? 

* YES 

'•NO, REVERSE DIRECTION 



•CHECK FOR DRIVE 2 
;OFFSET DRIVE 2 NUMBER 

;NOW GET HEAD TO TRACK, 



3*58 
359 
360 
361 
3*6-2 



• - - * ■■ • <PAG£ < - > ■■•■ • - '■ - -■ 
.**************************************************************** 

GET THE HEAD TO THE TRACK WANTED. 
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353 
354 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
393 
399 
400 
401 
402 
403 
404 
405 
405 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 



***************************************** *********************** 



C0A7 

C0A3 

C0A9 

C0AA 

C0AB 

C0AC 

C0AD 

C0AE 

C0AF 

C0B0 

C0B1 

C032 

C0B3 

C034 

C0B5 

C0B6 

C0B7 

C033 

C039 

C03A 

C03B 

C0BC 

C0BD 

C0BE 

C03F 

C0C0 

C0C1 

C0C2 

C0C3 

C0C4 

C0C5 

C0C6 

C0C7 

C0C8 

C0C9 

C0CA 

C0C8 

C0CC 

C0CD 

C0CE 

C0CF 

C0D0 

C0D1 

C0D2 

C0D3 

C0D4 

C0D5 

C0D6 

C0D7 

C0D8 

C0D9 

C0DA 



F600 
2139 
E600 
2104 
7A00 
83FC 
5600 
211B 
7E00 
3081 
83FC 
5600 
F9A2 
2107 
1401 
2109 
7FFC 
3031 
7FFC 
3081 
2104 
1301 
210 2 
7FFC 
3081 
4C00 
A200 
4C04 
A200 
3081 
4C00 
A200 
2D17 
5600 
21 DD 
F983 
2104 
1405 
7BFC 
73FC 
2102 
1301 
7BFC 
4C03 
A200 
4C0C 
A200 
3031 
4C08 
A200 
2D05 
21ED 



A Ml: 

A 
A 
A 
A 
A 
A 
A 

A $5: 
A 
A 
A 
A 
A 

A Tl: 
A 

A T4: 
A 
A 
A 
A 

A T2: 
A 
T3: 



T5 



HI 



A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A S: 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



U2 



SI 

34 



S2 
S3 
S5 

VI 



SKNE 


AC1, (AC2) 


JMP 


P 


SKG 


AC1, (AC2) 


JMP 


$5 


ISZ 


(AC2) 


LD 


AC0,-4(AC3) 


XCHRS 


AC 2 


JMP 


S 


DSZ 


(AC2) 


NOP 




LD 


AC0,-4(AC3) 


XCHRS 


AC 2 


SKNE 


AC2,ASTAT 


JMP 


T2 


BOC 


BIT1,T4 


JMP 


T5 


DSZ 


-4(AC3) 


NOP 




DSZ 


-4(AC3) 


NOP 




JMP 


T5 


BOC 


BIT0,T3 


JMP 


T5 


DSZ 


-4(AC3) 


NOP 




LI 


AC0,0 


ST 


AC0, (AC2) 


LI 


AC0,4 


ST 


AC0, (AC2) 


RCPY 


AC0,AC0 


LI 


AC0,0 


ST 


AC0, (AC2) 


JSR 


■3DEL10M 


XCHRS 


AC 2 


JMP 


Ml 


SKNE 


AC2,ASTAT 


JMP 


S2 


BOC 


BIT1,S5 


ISZ 


-4{AC3) 


ISZ 


-4{AC3) 


JMP 


S5 


BOC 


BIT0,S5 


ISZ 


-4(AC3) 


LI 


AC0,8 


ST 


AC0, (AC2) 


LI 


AC0,X'C< ; • ■~ : 


ST 


AC0,(AC2r 


RCPY 


AC0,AC0 


LI 


AC0,8 


ST 


AC0,(AC2T - 


JSR 


@DEL10M 


JMP 


U2 



;AT TRACK DESIRED? 

NO, STEP-IN OR STEP-OUT? 
STEP-OUT .. \ 

STEP-IN 



;STEPPING-OUT 



; SELECT PROPER DISK DRIVE 

; DRIVE 1 

; DRIVE 2, OUT DIRECTION? 

;YES 

; NO, REVERSE DIRECTION 



OUT DIRECTION? • t ' 

YES ' :>!,.! 

NO, REVERSE DIRECTION- 



;SET TO STEP-OUT 

,-SET STEP* LOW 
;8US DELAY 
; 4 US DELAY 
?SST STEP* HIGH 
; DELAY 10 MS 



SELECT PROPER DISK DRIVE. 
DRIVE1 ' • 

DRIVE2,OUT DIRECTION? 
NO, REVERSE DIRECTION. 



;OUT DIRECTION? 

; NO, REVERSE DIRECTION 

?SET TO STEP-IN 



SET STEP* LOW 
8US DELAY 
4US DELAY 
SET STEP* HIGH 
DELAY 10MS 



417 
418 
419 
420 
421 
422 
423 



.PAGE 

CONSTANTS 
*********************************************** * ** * * * ^ * * * * * ** A * i 



DISKI016 



424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 



C0D8 C1A3 A EXB: .WORD EX 

C0DC 0007 A W7: .WORD 7 f 

C0DD AAAA A WA: -WORD X AAAA 

C0DE 0100 A SCTS: .WORD 256 

C0DF C24D A DEL10M: .WORD DELAY 

C0E0 0267 A W267: .WORD 0267 

C0E1 0263 A W268: .WORD 0263 



; ERROR EXIT ROUTINE POINTER 
; SECTOR DATA WORD LENGTH 



;**************************************************************** 

'. READ/WRITE DECISION 

L************************************************************** 



C0E2 9BF7 A P: 
C0E3 8200 A 
C0E4 F1F7 A 
C0E5 213E A 
C0E6 2102 A 



LD AC2,@-9(AC3) 

LD AC0,(AC2) 

SKNE AC0,W7 

JMP PI 

JMP READ 



CALLING PARAMETERS 
READ/WRITE COMMAND 
READ OR WRITE? 
WRITE 



**************************************************************** 

CONSTANTS 
**************************************************************** 



C0E7 C208 A CRTS: .WORD RDSECT 
C0E8 C1C0. ACCRC: .WORD CRC 



452 
*453* " 
454 
455 
456 
•457 r 
458 
459 
460 
461 
462 
463 
-464 ' 
465 
466 
467 
468 
469 
470 
471 
1 472- 
473 
474 
475 
476 
477 
478 
479 
430 
481 
482 
483 
484 
485 
486 
487 
433 



.*******;**>***************************************************** 

t 

READ TO SECTOR WANTED (USING SUBROUTINE CALL JSR 9CRTS) 
THEN READ DATA FROM DISK TO RAM AND CHECK THE CRC 
OF THE RAM AGAINST THE CRC FROM THE DISK. 

*************************************************************** 



C0E9 

C0EA 

C0EB 

C0EC 

C0ED 

C0EE 

C0EF 

C0F0 

C0F1. 

C0F2 

C0F3 

C0F4 

C0F5 

C0F6 

C0F7 

C0F8 

C0F9 

C0FA 

C0FB 

C0FC 

C0FD 

C0FE 

C0FF 

C100 

CI 01 

C102 

C103 

C104 



4600 

2DFC 

2101 

2102 

4C01 

25EC 

4D05 

4300 

9FF7 

3F02 

1EFF 

82FF 

49FF 

21 FC 

4C.00 

A230 

4C01 

A200 

4D19 

1E09 

8200 

130A 

82FF 

49FF 

21 FA 

4700 

4400 

4C01 



XI: 



X2: 



X3: 



A READ: 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A-- 

A 

A 

A 

A 

A 

A 

A 

A 

A 
A 



RR1 



PULL 


AC 2 


JSR 


@CRTS 


JMP 


XI 


JMP 


X2 


LI 


AC0,MISYNC 


JMP 


@EXB 


LI 


AC1,5 


PUSH 


AC 3 


LD 


. AC3,9-i9(AC3) 


LD 


AC3,2(AC3) 


BOC 


NRDY,X3 


LD 


AC0,-liAC?) 


AISZ 


AC1,-1 


JMP 


X3 


LI 


AC0,0 


ST 


AC0, (AC 2) 


LI 


AC0,1 


ST 


AC0,(AC2) 


LI 


AC1,25 


BOC 


NRDY r VVl 


LD 


AC0,(AC2) 


BOC 


BIT0,VV2 


LD 


AC0,-1(AC2) 


AISZ 


AC1,-1 


JMP 


RRl 


PULL 


AC 3 


PULL 


AC0 


LI 


AC0,MISYNC 



STATUS ADDRESS 



ERROR STATUS: MISSING SYNC 



; RESTORE MRAM 

; CLEAR STACK 

; ERROR STATUS: MISSING SYNC 



DISKI016 



489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

539 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 



C105 

C106 

C107 

C108 

C109 

C10A 

C10B 

C10C 

C10D 

C10E 

C10F 

C110 

Clll 

C112 

C113 

C114 

C115 

C116 

C117 

C118 

C119 

C11A 

CUB 

C11C 

CUD 

CUE 

C11F 

C120 

C121 



25D5 

8200 

1301 

21F3 

82FF 

85D3 

1EFF 

82FF 

A300 

4B01 

2100 

49FF 

21F9 

1EFF 

82FF 

4700 

4000 

4300 

9FF7 

8F02 

4200 

2DCD 

4600 

4700 

4500 

3482 

1177 

4C80 

2539 



VV2 



W3: 



W4 



VV5 



A 

A VV1: 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



JMP 


@EXB 


LD 


AC0,(AC2) 


BOC 


BIT0,VV2 


JMP 


RR1 


LD 


AC0,-1(AC2) 


LD 


AC1,SCTS 


BOC 


NRDY,W3 


LD 


AC0,-1(AC2) 


ST 


AC0, (AC3) 


AISZ 


AC3,1 


JMP 


.+1 


AISZ 


AC1,-1 


JMP 


W3 


BOC 


NRDY,VV5 


LD 


AC0,-1(AC2) 


PULL 


AC 3 


PUSH 


AC0 


PUSH 


AC 3 


LD 


AC3,@-9<AC3) 


LD 


AC3,2(AC3) 


PUSH 


AC 2 


J3R 


@CCRC 


PULL 


AC 2 


PULL 


AC 3 


PULL 


AC1 


RXOR 


AC1,AC0 


BOC 


ZRO,NEXl 


LI 


AC0,-128 


JMP 


@EXB 



-, SECTOR DATA WORD LENGTH 

; STORE DISK DATA IN RAM 
; HIGH-SPEED NO? 



;GET CRC 

;GET MRAM 

;GET CRC TO STACK 



;RAM BUFFER POINTER 
;SAVE STATUS ADDRESS 



; NORMAL EXIT ROUTINE- 

; ERROR STATUS: RD CRC ERROR 



*********************************************************** *.*.* * * 

CONSTANTS ' ■ ' *• 

*********************************************************** *-*? ■* * * 



C122 
C123 



C203 A RDSA: 
C1C0 A CRCA: 



. WORD 
.WORD 



RDSECT 
CRC 



-, RDSECT SUBROUTINE POINTER 
;CRC SUBROUTINE POINTER 



527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 



C124 
C125 
C126 
C127 
C123 
C129 
C12A 
C12B 
C12C 
C12D 
C12E 
C12F 



4300 
3E02 
2DFC 
4700 
4600 
4030 
2DF7 
2114 
4C00 
A2FF 
4C02 
A200 



.PAGE 
**************************************************************** 

WRITE ROUTINE. COMPUTE THE CRC OF THE RAM TO BE ■- 
WRITTEN TO THE DISK. READ TO THE SECTOR WANTED USING 
THE READ TO SECTOR, ROUTINE (BY JSR 9RDSA) . WRITE- ci- 
THE DATA IN THE' RAM BUFFER ONTO THE DISK FOLLOWED ~ I- 
BY THE CRC WORD.. ; 



************ 



A PI: 

A 

A 

A 

A 

A 

A 

A 

A W2: 

A 

A 

A 



**************************************************** 



;MRAM ONTO STACK " " 
;RAM BUFFER ADDRESS 

MRAM 

STATUS ADDRESS 

CRC ONTO STACK 



PUSH 


AC 3 


LD 


AC3,2(AC2) 


JSR 


9 CRCA 


PULL 


AC 3 


PULL 


AC 2 


PUSH 


AC0 


JSR 


£RDSA 


JMP 


Wl 


LI 


AC0,0 


ST 


AC0,-1(AC2) 


LI 


AC0,2 


ST 


AC0, (AC2) 



; MISSING SYNC ERROR EXIT 



;TURN ON WRITE -ENABLE ...(WRER}- - 



DISKI016 



550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

532 

583 

584 

585 

586 

587 

583 

539 

590 

591 

592 



C130 
CI 31 
C132 
C133 
C134 
C135 
C136 
C137 
C138 
C139 
C13A 
C13B 
C13C 
C13D 
C13E 
C13F 
C140 
C141 
C142 
C143 
C144 
C145 
C146 
C147 
C148 
C149 
C14A 
C14B 
C14C 
C14D 
C14E 
C14F 
C150 
C151 
C152 
C153 
C154 
C155 
C156 
C157 
C158 
C159 
C15A 



4500 

4300 

4100 

9PF7 

8F02 

81A7 

4D14 

1E01 

21FE 

1EFF 

49FF 

21FS 

A2FF 

85A0 

1E04 

21FE 

4400 

4C01 

2160 

1EFF 

8300 

A2FF 

4B01 

2100 

49FF 

21F4 

4400 

4000 

4D02 

1E01 

21FE 

1EFF 

A2FF 

4C00 

1E01 

21FE 

1EFF 

A2FF 

49FF 

21 FA 

A200 

4700 

5700 



Yl: 



Y2: 



AAl: 



Wl 



AA2: 



CC1 



DD1 



DD2: 



EE1: 



EE2: 



PULL 

PUSH 

PUSH 

LD 

LD 

LD 

LI 

BOC 

JMP 

BOC 

AISZ 

JMP 

ST 

LD 

BOC 

JMP 

PULL 

LI 

JMP 

BOC 

LD 

ST 

AISZ 

JMP 

AISZ 

JMP 

PULL 

PUSH 

LI 

BOC 

JMP 

BOC 

ST 

LI 

BOC 

JMP 

BOC 

ST 

AISZ 

JMP 

ST 

PULL 

XCHRS 



AC1 

AC 3 

AC1 

AC3,@-9(AC3) 

AC3,2(AC3) 

AC0,WA 

AC1,20 

WRJCY2 

Yl 

WRJCY2 

AC1,-1 

Yl 

AC0,-1(AC2) 

AC1,SCTS 

WRJCAA2 

AA1 

AC0 

AC0,1 

EX 

WRJCAA2 

AC0, <AC3) 

AC0,-1(AC2) 

AC3,1 

.+1 

AC1,-1 

AA1 

AC0 

AC0 

AC1,2 

WRJCDD2 

DD1 

WRJCDD2 

AC0,-1(AC2) 

AC0,0 

WRJCEE2 

EE1 

WRJCEE2 

AC0,-1(AC2) 

AC1,-1 

EE1 

AC0, (AC2) 

AC 3 

AC 3 



;GETS CRC 



;RAM BUFFER ADDRESS 

; PREAMBLE COUNTER 

;WAIT FOR WRJC TO GO HIGH 

j WAIT FOR WRJC TO GO LOW 

; PREAMBLE NOT FINISHED YET 
; WRITE SYNC CHARACTER 



CLEAR STACK 

ERROR STATUS: MISSING SYNC 

JMP ERROR EXIT SUBROUTINE 

GET WORD FROM RAM BUFFER 

WRITE WORD TO DISK. 

INCREMENT RAM POINTER 
NOP 



;GET CRC 



; WRITE CRC 



; WRITE POSTAMBLE 



TURN OFF WREN 
AC3 GETS CRC 
AC 3 GETS MRAM 



593 

594 

595 

596 

597 

593 

599 

600 

601 

602 

603 

60 4' 

605 

606 

607 

SAB' 

609 

610 



.PAGE 

• VERIFY THE WRITE OPERATION. READ TO THE SECTOR WANTED 

• USING THE JSR 3RDSA. VERIFY THE DATA AND CRC WORD 

; FROM THE DISK AGAINST THE RAM BUFFER AND THE CRC WORD 

; PASSED FROM THE WRITE ROUTINE. 

1**************************************************************** 



C15B 2DC6 A 

C15C 2105 A ' l 

C15D 4D05 A FF2: 

C15E 4330 A 

C15F 9FF7 A 

CI 60" 3702' A' ■-■' ' 

C161 2103 A 

CI 6 2 440 0. A FF1: 



JSR 


(3RDSA 


JMP 


FF1 


LI 


AC1,5 


PUSH 


AC 3 


LD 


AC3,§-9(AC3) 


LD 


AC3,2(AC3) 


JMP 


GG1 


PULL 


AC0 



; CALLING PARAMETER 
;RAM BUFFER POINTER 

; CLEAR STACK 
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611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

633 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 



C163 
C164 
C165 
C166 
C167 
C168 
C169 
C16A 
C163 
C16C 
C16D 
C16E 
C16F 
C170 
C171 
C172 
C173 
C174 
C175 
C176 
C177 
C178 
C179 
C17A 
C17B 
C17C 
C17D 
C17E 
C17F 
C180 
C181 
CI 8 2 



4C01 

213E 

1EFF 

82FF 

49FF 

21 FC 

4C00 

A200 

4C01 

A200 

4D19 

1E0B 

8200 

130C 

82FF 

49FF 

21 FA 

4700 

4400 

4C01 

2123 

0001 

0040 

8200 

1301 

21F1 

82FF 

9517 

1EFF 

32FF 

F300 

2104 



;gi 



HHl: 



II 



A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A WV1: 

A VCER: 

A KK1: 

A 

A 

A 

A 

A 

A 



JJ1 



C183 
C184 
C185 
C185 
C187 
C183 
C189 






651 
652 



C188 
C18C 



4700 
4400 
4C40 
211C 
COF0 
49FF 
21F5 
1EFF 
32FF 
4700 



MM1 



MM 2: 



cz.~i ,— TOn a e. link 

'J _> J \- -L U U -IJt(X> 



654 
655 
656 
657 
653 
659 
660 
661 
662 



C13E 
C18F 
C190 
C191 
C192 
C193 
C194 
C195 
C196 



3482 
1107 
31E8 
2111 
7D02 
C066 
000A 
003E 
C0DE 



A 
A 

A 

A 

A 

A 

A 

A WD: 

A WD1: 

A WD10 

A WD14 

A PCTS 



LI 

J MP 

BOC 

LD 

AISZ 

JMP 

LI 

ST 

LI 

ST 

LI 

BOC 

LD 

BOC 

LD 

AISZ 

JMP 

PULL 

PULL 

LI 

JMP 

.WORD 

. WORD 

LD 

BOC 

JMP 

LD 

LD 

BOC 

LD 

SKNE 

JMP 

PULL 

PULL 

LI 

JMP 

ADD 

AISZ 

JMP 

BOC 

LD 

PULL 

P nT L 

RXOR 

BOC 

LD 

JMP 

. WORD 

.WORD 

.WORD 

. WORD 

. WORD 



AC0,1 

EX 

NRDY,GG1 

AC0,-1{AC2) 

AC1,-1 

GG1 

AC0,0 

AC0, (AC2) 

AC0,1 

AC0, (AC2) 

AC1,25 

NRDY,KK1 

AC0, (AC2) 

BIT0,JJ1 

AC0,-1(AC2) 

AC1,-1 

HHl 

AC 3 

AC0 

AC0,MISYNC 

EX 

1 

X'40 

AC0, (AC2) 

BIT0,JJ1 

HHl 

AC0,-1(AC2) 

AC 1,@ PCTS 

NRDY,JJ2 

AC0,-1(AC2) 

AC0, (AC3) 

MM 2 

AC 3 

AC0 

AC0,X'40 

EX 

AC3,WV1 

AC1,-1 

JJ2 

NRDY ,NN1 

AC0,-1(AC2) 

AC 3 

AC1 

AC1,AC0 

ZRO,NEXl 

AC 0, VCER 

EX 

X'7D02 " 

Ell 

10 

14 

SCTS 



; ERROR STATUS: MISSING SYNC 
;JMP ERROR EXIT SUBROUTINE 

; READ HARDWARE DATA LATCH : ". - 



;LOOK FOR SYNC CHARACTER. 



;GET DISK STATUS 
;TEST FOR RSYNC 



RESTORE MRAM 

CLEAR STACK 

ERROR STATUS: MISSING SYNC: 

ERROR EXIT ROUTINE 



;G£T DISK STATUS 

;TEST FOR SYNC CHARACTER 



;AC1 USED AS A COUNTER .' , 

;GET DATA WORD FROM DISK ■ * ; ., 
; COMPARE TST WRD & ,BUF WRD -;> 

; CLEAR STACK 

; ERROR STATUS: VERIFY ERROR 
;JMP ERROR EXIT SUBROUTINE 



;GET MRAM INTO AC3 
;GET CRC WORD 

; NORMAL EXIT ROUTINE BRANCH 

;JMP ERROR EXIT SUBROUTINE 



; POINTS TO SECTOR SIZE WORD 



663 
564 
665 
666 
667 
663 
669 

670 C197 4D00 A NEXl 

671 C198 35F9 A 



.PAGE ■'-' ' ■■ >: 

********************************************************** * * * * * * 



NORMAL EXIT ROUTINE 
********************************************** *,****.********.**,*** 



LI 
ST 



AC1,0 
ACl r (§WD 



; NORMAL EXIT ROUTINE-- 
; UNLOAD HEAD 
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62 C199 87E6 A 




673 


C19A 


9BF7 


A 


674 


C19B 


4C04 


A 


675 


C19C 


5D08 


A 


676 


C19D 


3400 


A 


677 


C19E 


A203 


A 


678 


C19F 


2939 


A 


679 


C1A0 


0202 


A 


630 








681 








682 








683 








684 








685. 








686 








687 








638 








639 


C1A1 


7D06 


A 


690 


C1A2 


C238 


A 


691 








692 








693 








694 








695 








696 








697 








698 


C1A3 


87E6 


A 


699 


C1A4 


F5EF 


A 


700 


C1A5 


210 A 


A 


701 


C1A6 


E5EE 


A 


702 


C1A7 


2113 


A 


703 


C1A8 


5D08 


A 


704 


C1A9 


3430 


A 


705 


C1AA 


98F7 


A 


706 


C1AB 


A233 


A 


707 


C1AC 


4C00 


A 


708 


C1AD 


B1E4 


A 


709 


C1AE 


292A 


A 


710 


C1AF 


0201 


A 


711 








712 








713 


C1B0 


33FC 


A 


714 


CI 31 


F9EF 


A 


715 


C1B2 


2104 


A 


716 


C1B3 


1405 


A 


717 


C1B4 


2DED 


A 


718 


C1B5 


293B 


A 


719 


C1B6 


2104 


A 


720 


C1B7 


1301 


A 


721 


C1B8 


21 FB 


A 


722 


C1B9 


2937 


A 


723 


C1BA 


297D 


A 


724 


C1B3 


7BE6 


A 


725 


C1BC 


2100 


A 


726 


C1BD 


25D5 


A 


727 








728 








729 








730 








731 








732 









LD 



AC1,-X'1A(AC3) 



LD 


AC2,@-9(AC3) 


LI 


AC0,4 ; 


SHL 


AC1,8 


RADD 


AC1,AC0 


ST 


AC0,3(AC2) ; 


JSR 


RESTR ; 


RTS 


2 ; 



ERROR COUNTER 
;PASS STATUS 



STORE STATUS 

RESTORE SUBROUTINE CALL 

NORMAL RETURN TO CALLING 

PROGRAM, DISK OPERATION 

COMPLETE. 



.PAGE 
t 

'• CONSTANTS 

!**************************************************************** 

r 

A ASTATA: .WORD X'7D06 
A PTEPIN: .WORD STEPIN 

1**************************************************************** 

\ ERROR EXIT ROUTINE 

1**************************************************************** 

EX: 



LD 


AC1,-X'1A(AC3) ; 


ERROR COUNTER 


SKNE 


AC1,WD10 




JMP 


EXC 




SKG 


AC1,WD14 




JMP 


EXD1 




SHL 


AC1,8 




RADD 


AC1,AC0 




LD 


AC2,@-9(AC3) 




ST 


AC0,3{AC2) ; 


STORE STATUS 


LI 


AC0,0 




ST 


AC0 , @WD 




JSR 


RESTR i 


RESTORE SUBROUTINE CALL 


RTS 


1 ; 


ERROR RETURN TO CALLING 
PROGRAM, DISK OPERATION 
COMPLETE. 


LD 


AC0,-4(AC3) ; 


DIRECTION REGISTER 


SKNE 


AC2, ASTATA 




JMP 


EXC3 


DRIVE1 


30C 


BIT1,EXC2 


DRIVE2, IN OR OUT? 


JSR 


^PTEPIN 


IN 


JSR 


STPOUT 




JMP 


EXD1 




BOC 


BIT0,EXC2 


LAST DIRECTION: IN OR OUT? 


JMP 


EXC1 


IN 


JSR 


STPOUT 


•STEP-OUT SUBROUTINE CALL 


JSR 


STEPIN 


•STEP-IN SUBROUTINE CALL 


ISZ 


-X'1A(AC3) 


•INCREMENT ERROR COUNTER 


JMP 


.+1 


•HIGH-SPEED NOP 


JMP 


@WD1 





EXC: 



EXC1 



EXC3 



EXC2 



EXD1 



EXD2 



.PAGE 
**************************************************************** 

CRC CALCULATION SUBROUTINE 
**************************************************************** 
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733 

734 C1BE 

735 C1BF 
736 

737 C1C0 
733 C1C1 

739 C1C2 

740 C1C3 

741 C1C4 

742 C1C5 

743 C1C6 

744 C1C7 

745 C1C8 

746 C1C9 

747 C1CA 
743 C1CB 

749 C1CC 

750 C1CD 

751 C1CE 

752 C1CF 

753 C1D0 

754 C1D1 

755 C1D2 

756 C1D3 

757 C1D4 

758 C1D5 

759 C1D6 

760 C1D7 

761 C1D8 



1021 A POLY: 
C0DE A SCTSA: 



0A80 
4CFF 
99 FC 
4300 
4200 
3700 
4F10 
39F6 
3000 
1A03 
3500 
1A03 
2103 
3500 
1A01 
3832 
4BFF 
21F6 
4603 
4700 
4B01 
2100 
4AFF 
21E3 
0200 



A CRC: 

A 

A 

A CRC3: 

A 

A 

A 

A 

A CRC5: 

A 

A 

A 

A 

A CRC 11 

A 

A CRC9: 

A CRC10 

A 

A 

A 

A 

A 

A 

A 

A 



.WORD 
.WORD 

PFLG 

LI 

LD 

PUSH 

PUSH 

LD 

LI 

LD 

RADD 

BOC 

RADD 

BOC 

JMP 

RADD 

BOC 

RXOR 

AISZ 

JMP 

PULL 

PULL 

AISZ 

JMP 

AISZ 

JMP 

RTS 



X'1021 
SCTS 

SEL 

AC0,-1 

AC2,@SCTSA 

AC 3 

AC 2 

AC1, (AC3-) 

AC3,16 

AC 2, POLY 

AC0,AC0 

CYOV,CRCll 

AC1,AC1 

CYOV,CRC9 

CRC10 

ACl,ACi 

CYOV,CRC10 

AC2,AC0 

AC3,-1 

CRC 5 

AC 2 

AC 3 

AC3,1 

.+1 

AC2,-1 

CRC 3 



;X**15 + X**12 + 
;SCTS POINTER 



X**5 + 1 



?CRC4 



CRC6 
CRC7 
CRC 8 



;CRC12 



;CRC13 



; HIGH-SPEED NOP 
;CRC15 



762 
763 
764 
765 
766 
767 
763 
769 
770 
771 
772 
773 
774 
775 
776 
777 
773 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 



C1D9 
C1DA 
C1D8 
C1DC 
C1DD 
C1DE 
C1DF 
C1E0 
C1E1 
C1E2 
C1E3 
C1E4 
C1E5 
C1E6 
C1S7 
C1E3 
C1E9 
C1EA 
C1E3 
C1EC 
C1ED 
C1EE 



• PAGE 
**************************************************************** 

RESTORE SUBROUTINE. RESTORE REGISTERS, STACK, FLAGS 
AND IEN STATUS. 

**************************************************** ************ 



4600 

4D10 

43E8 

2100 

3303 

4000 

4B01 

2100 

49FF 

21 FA 

83 ED A 

4000 A 

0230 

4C01 

73EF 

0900 

4200 

3303 A 

3702 A 

8B01 A 

3F00 A 

0200 A 



RESTR: 



RES1: 



RES2: 



RES3 



PULL 


AC 2 


LI 


AC1,16 


AISZ 


AC3,-24 


JMP 


.+1 


LD 


AC0, (AC3) 


PUSH 


AC0 


AISZ 


AC3,1 


JMP 


.+1 


AISZ 


AC1,-1 


JMP 


RES1 


LD 


AC0,-X'13(AC3) 


PUSH 


AC0 


PULLF 




LI 


AC0,1 


SKAZ 


AC0,-X'11(AC3) 


SFLG 


IEN 


PUSH 


AC 2 


LD 


AC0,3(AC3) 


LD 


AC1,2(AC3) 


LD 


AC2,1(AC3) 


LD 


AC3, (AC3) 


RTS 






; RESTORE THE STACK 



;H.S. NOP 



H.S. NOP 



: RESTORE IEN 



RESTORE REGISTERS 



: NORMAL EXIT POINT 



792 
793 



.PAGE 
.••A************************************************************* 
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794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
308 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
323 
824 



STEP OUT ONE TRACK SU3ROUTINE. 

:************************************************************+ 



C1EF 7D06 A ASTATB: 
C1F0 C24D A DEL10: 

C1F1 4C03 A STPOUT: 

C1F2 A200 A 

C1F3 4C04 A 

C1F4 A200 A 

C1F5 3031 A 

C1F6 4C00 A 

C1F7 A200 A 

C1F8 2DF7 A 

C1F9 33FC A 

C1FA F9F4 A 

C1FB 2106 A 

C1FC 1401 A 

C1FD 2109 A 

C1FE 48FE A SOA2: 

C1FF 2100 A 

C200 A3FC A 

C201 2105 A 

C202 1301 A. SOA4: 

C203 210 3 A 

C204 48FF A SOA1 : 

C205 2100 A 

C206 83FC A 

C207 0200 A SOA3: 



.WORD 
. WORD 

LI 

ST 

LI 

ST 

NOP 

LI 

ST 

JSR 

LD 

SKNE 

JHP 

BOC 

JMP 

AISZ 

JMP 

ST 

JHP 

BOC 

JMP 

AISZ 

JMP 

LD 

RTS 



X'7D06 
DELAY 

AC0,0 
AC0, (AC2) 
AC0,4 
AC0, (AC2) 

AC0,0 

AC0, (AC2) 

t?DEL10 

AC0,-4(AC3) 

AC 2, ASTATB 

SOA4 

BITl,SOA2 

SOA3 

AC0,-2 

.+1 

AC0,-4(AC3) 

SOA3 

BIT0,SOA1 

SOA3 

AC0,-1 

.+1 

AC0,-4(AC3) 



;SET DIRECTION TO OUT 

; START OF STEP PULSE 
;8US DELAY 

;END OF STEP PULSE 

? DELAY 10 MS 

;GETS DIRECTION REGISTER 

;DRIVE1 



;H.S. NOP 



?H.S. NOP 

; NORMAL EXIT POINT 



825 
826 
827 
828 
329 
832) 
331 
832 
333 
834 
335 
836 
837 
338 
339 
840 
841 
842 
843 
344 
845 
846 
847 
348 
849 
350 
351 
852 
853 
854 
355 
856 
857 
858 



.PAGE 
**************************************************************** 

READ TO SECTOR SUBROUTINE 
**************************************************************** 



C203 4300 A RDSECT: 

C209 9FF7 A 

C20A 3704 A 

C203 3200 A SRI: 

C20C 5CFE A 

C20D 13FD A 

C20E 8200 A SR2: 

C20F 5CFE A 

C210 1303 A 

C211 21FC A 

C212 0037 A ANMSK: 
C213 0102 A SSZ: 

C214 65FD A SR9: 
C215 4900 A 
C216 2102 A 
C217 4700 A 
C218 0201 A 



C219 4C05 
C21A 1EFF 
C213 8EFF 
C21C 48FF 
C21D 21FC 
C21E A200 
C21F 4C01 



SR3: 
SR4: 



PUSH 

LD 

LD 

LD 

SHR 

BOC 

LD 

SHR 

30C 

JMP 

. WORD 
.WORD 

AND 

AISZ 

JMP 

PULL 

RTS 

LI 

BOC 

LD 

AISZ 

JMP 

ST 

LI 



AC 3 

AC3,@-9{AC3) 

AC1,4(AC3) 

AC0, (AC2) 

AC0,2 

BIT0,SR1 

AC0, (AC2) 

AC0,2 

BIT0,SR9 

SR2 

7 
253 

AC1,ANMSK 

AC1,0 

SR3 

AC 3 

1 

AC0,5 

NRDY,SR4 

AC3,-1(AC2) 

AC0,-1 

SR4 

AC0, (AC2) 

AC0,1 



;SAVE MRAM 

; SECTOR WANTED 
;GETS STATUS 

; INDEX MARK? 

; INDEX MARK FOUND 



;MASK OUT TRACK PORTION 

; SECTOR WANTED, GET MRAM 
; NORMAL EXIT POINT 

; COUNT 1/2WAY INTO PREAMBLE 

; RESET NRDY 
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859 
860 
861 
862 
363 
864 
865 
866 
367 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
379 
880 
881 



C220 
C221 
C222 
C223 
C224 
C225 
C226 
C227 
C228 
C229 
C22A 
C226 
C22C 
C22D 
C22E 
C22F 



A200 
4F19 
3200 
1309 
1EFD 
82FF 
4BFF 
2100 
4900 
21F8 
4700 
4C01 
0200 
82FF 
8DE4 
1EFF 
37PP 



C231 
C232 
C233 
C234 
C235 
C236 



4BFF 
21FC 
49FF 
21E4 
4700 
0201 



SR5: 



SR6 



SR7 



SR8: 



ST 


AC0, (AC2) 


LI 


AC3,25 


LD 


AC0, (AC2) 


BOC 


BIT0 ,SR6 


BOC 


NRDY , SR5 


LD 


AC0,-1 (AC2) 


AISZ 


AC3,-1 


JMP 


.+1 


AISZ 


AC1,0 


JMP 


SR5 


PULL 


AC 3 


LI 


AC0,MISYNC 


RTS 





LD 


AC0,-1(AC2) 


LD 


AC3,SSZ 


BOC 


NRDY,SR7 


LD 


AC0 f -l { AC2) 


AISZ 


ACK-1 


JMP 


SR7 


AISZ 


AC1,-1 


JMP 


SR3 


PULL 


AC 3 


RTS 


1 



;RSYNC? 



;NOP 



; ERROR EXIT POINT 



; NORMAL EXIT POINT 



C237 7D06 A ASTATC: 



882 
833 
884 
885 
836 
387 
883 
839 
39k) 
891 
892 
393 
394 
895 
896 
397 
893 

o y y ^ ^ t «j ojrv, rt 



• PAGE 
**************************************************************** 

STEP IN ONE TRACK SUBROUTINE 
************************************************************ *„*** 



C238 

C23y 
C23A 
C23B 
C23C 

C23E 
C23F 



4C03 
A200 
4C0C 
A200 
3031 

A r^ .■> n 

A200 
290D 



90 
90l 
902 
903 
904 
905 
906 
907 
903 
909 
910 
911 



C241 
C242 
C243 
C244 
C245 
C246 
C247 
C248 
C249 
C24A 
C24B 
C24C 



F9F5 
2105 
1403 
4802 
2100 
A3FC 
0200 
13FE 
4801 
2100 
A3FC 
21 FA 



A 

A 

A 

A 

A 

A 

A SIA1: 

A SIA2: 

A 

A 

A 

A 



.WORD 



A STEPIN: LI 



3T 

LI 

ST 

NOP 

LI 

ST 

JSR 

LD 

5KNS 

JMP 

BOC 

AISZ 

JMP 

ST 

RTS 

BOC 

AISZ 

JMP 

ST 

JMP 



X'7D06 

AC0,8 
AC0, (AC2) 
AC0,X'C 
AC0, (AC2) 

AC , 8 

AC0, (AC2) 

DELAY 

AC , — 4 ( AC 3 ) 

AC 2, ASTATC 

SIA2 

BIT1,SIA1 

AC0,2 

.+1 

AC0,-4(AC3) 



3IT0,SIA1 

AC0,1 

, + 1 

AC0,-4(AC3) 

SIA1 



;SET DIRECTION TO IN 

; START OF STEP PULSE 
;8US DELAY 

;ENO OF STEP PULSE 



;NOP 

; NORMAL EXIT POINT 

;NOP 



912 
913 
914 
915 



. PAGE 
**************************************************************** 

10MS DELAY SUBROUTINE 
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********* 



916 
917 
918 

919 C24D 4100 A DELAY: 

920 C24E 4D0A A 

921 C24F 5980 A DELAY2: 

922 C250 5980 A 

923 C251 49FF A 

924 C252 21FC A 

925 C253 4500 A 

926 C254 0200 A 



******************************************************* 



PUSH 

LI 

ROL 

ROL 

AISZ 

JMP 

PULL 

RTS 



AC1 

AC1,10 

AC1,128 

AClrl28 

AC1,-1 

DELAY 2 

AC1 





SAVE AC1 
PASS COUNTER 
500US DELAY 
500US DELAY 



RESTORE AC1 



927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 



.PAGE 'BAD SECTOR PROCESSOR 
********************************************************************* 

CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL ONE 
********************************************************************* 



C255 2D1F 
C256 A3FB 
C257 A7FA 
C253 ABF9 
C259 4600 
C25A 4200 
C253 8A00 
C25C 8601 
C25D 3E81 
C25E D915 
C25F 8200 



DISK2: 



C260 1109 A $LOOP: 
C261 4A01 A 
C262 48FF A 
C263 3081 A 
C264 E600 A 
C265 F600 A 
C266 2101 A 
C267 2102 A 
C263 4901 A 
C269 21F6 A 



C26A 4600 
C263 4200 
C26C 8A00 
C26D A604 
C26E 83FB 
C26F 87FA 
C270 8BF9 
C271 8FF8 
C272 2500 
C273 C00A 



$END: 



C274 009F A H09F: 
C275 C00C A TPRAM: 



JSR 


@TPRAM 


ST 


AC0,-5(AC3) 


ST 


AC1,-6(AC3) 


ST 


AC2,-7(AC3) 


PULL 


AC 2 


PUSH 


AC 2 


LD 


AC2, (AC2) 


LD 


AC1,1(AC2) 


RCPY 


AC3,AC2 


SUB 


AC2,H09F 


LD 


AC0, (AC2) 


BOC 


ZROrSEND 


AISZ 


AC2,1 


AISZ 


AC0,-1 


NOP 




SKG 


AC1,{AC2) 


SKNE 


AC1,(AC2) 


JMP 


. + 2 


JMP 


$END 


AISZ 


AC1,1 


JMP 


SLOOP 


PULL 


AC 2 


PUSH 


AC 2 


LD 


AC2, (AC2) 


ST 


AC1,4(AC2) 


LD 


AC0,-5(AC3) 


LD 


AC1,-6(AC3) 


LD 


AC2,-7(AC3) 


LD 


AC3,-8(AC3) 


JMP 


@. + l 


.WORD 


POISK 


. WORD 


09F 


.WORD 


TRAM 



;FIND TOP OF RAM 



; PARAMETER LIST ADDR 



; LOGICAL SECTOR NUMBER 

;BAD SECTOR TABLE ADDR 
; NUMBER OF ENTRIES 



; COMPARE 

;MUST ACCOUNT FOR EQUAL 

;DONE 

; CHECK NEXT SECTOR 



;FIND PARAM LIST 



;SAVE PHYSICAL SECTOR 



;GO TO PHYSICAL DISKIO NOW 



971 
972 
973 
974 
975 
976 



.PAGE 
********************************************************************* 

FIND TOP OF RAM SUBROUTINE 
********************************************************************* 
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977 
978 
979 
980 
981 
982 
933 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 



C276 4300 A TOPRAM: 

C277 8D10 A 

C278 A3FB A $CHK: 

C279 F3FB A 

C27A 2102 A 

C27B DD0D A ?NEXT: 
C27C 21FB A 

C27D 5000 A $COMP: 
C27E A3FB A 
C27F F3FB A 
C280 2102 A 
C281 5000 A 
C282 21F8 A 



C283 5000 
C284-5400 
C285 A3F8 
C286 4400 
C287 0200 



$OK: 



C288 6FFF A H28K: 
C239 1000 A H4K: 



PUSH 

LD 

ST 

SKNE 

JMP 

SUB 
JMP 

CAI 

ST 

SKNE 

JMP 

CAI 

JMP 

CAI 

XCHRS 

ST 

PULL 

RTS 

.WORD 
. WORD 



AC3 

AC3,H23K 

AC0,-5(AC3) 

AC0,-5(AC3) 

$COMP 

AC3,H4K 

$CHX 

AC0,0 

AC0,-5(AC3) 

AC0,-5(AC3) 

$OK 

AC0,0 

$NEXT 

AC0,0 

AC0 

AC0,-8(AC3) 

AC0 



X'6FFF 
X'1000 



;SAVE AC3 

; START AT 28 K 



; PASSED PART 1 
?TRY DOWN 4K 

; COMPLEMENT AND TRY 
;TO BE SURE 

; SUCCESS 

;TRY AGAIN 

; RESTORE AC0 

;SAVE AC 3 IN RAM 



1002 
1003 
1004 

1005 

1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 



FFFB A 
FFFA A 
FFF9 A 
FFF8 A 
FFE4 A 
FFS3 A 



0033 A 

0002 A 

0003 A 

0004 A 

0005 A 



.PAGE 'TTY/CRT INPUT-OUTPUT ROUTINES' 
. LOCAL 
********************************************************************* 

TELETYPE/CRT TERMINAL INPUT/OUTPUT ROUTINES 

********************************************************************* 
RAM ADDRESS ASSIGNMENTS 



SAV0 
SAV1 
SAV2 
SAV3 
BAUD 
BCNT 



-5 
-6 

-7 
-3 

-01C 
-01D 

EXPRESSIONS FOR THE PERIPHERAL I/O 



TTYAD 
$READ 
SEND 

RDREN - 
$RESET = 



7*8 

2 

3 

4 

5 



1025 
1026 
1027 
1023 
1029 
1030 
11331 
1032 
1033 
1034 
1035 
1036 
1037 



C28A 2953 A GETC: 

C28B 4D08 A 

C23C A6E3 A 

C28D 4200 A 

C23E 0605 A GETC2: 

C28F 0604 A 

C293 0402 A 

C291 1201 A 

C292 21FD A 



.PAGE 

THIS GET CHARACTER ROUTINE IS USED AT ALL BAUD RATES 



J3R SAVE 

LI AC1,8 

ST AC1,BCNT(AC2) 

PUSH AC2 

ROUT $RESET 

ROUT RDREN 

RIN $READ 

BOC POS,.+2 

JMP .-2 



INITIALIZE BIT COUNT 
SAVE MAX RAM ADDRESS 
ENABLE READER 
TEST FOR START BIT 
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1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 



C293 
C294 
C'295 
C296 
C297 
C298 
C299 
C29A 
C29B 
C29C 
C29D 
C29E 
C29F 
C2A0 
C2A1 
C2A2 
C2A3 
C2A4 

C2A5 
C2A6 
C2A7 



8AE4 

C97E 

2E00 

0402 

1201 

21F5 

2E01 

0402 

6170 

5DFF 

3182 

5603 

7EE3 

3081 A 

82E3 A 

5600 A 

4800 A 

21 F4 A 

2E01 A 
4600 A 
211F A 



LP1 



LD AC2,BAUD(AC2) 

ADD AC2,DELADD 

JSR §(AC2) 

RIN $READ 

BOC POS,LPl 

JMP GETC2 

JSR 9KAC2) 

RIN $READ 

AND AC 0, MASK 

SHR AC1,1 

RXOR AC0,AC1 

XCHRS AC2 

DSZ BCNT(AC2) 

NOP 

LD AC0,BCNT(AC2) 

XCHRS AC2 

AISZ AC0,0 

JMP LP1 

JSR 3MAC2) 

PULL AC 2 

JMP GEC2 



; GET BAUD RATE SELECTION 

; DELAY VECTOR BASE" ADDRESS 

; HALF-BIT DELAY 

; TEST IF START BIT STILL THERE 

; START IF GOOD START BIT 

; FULL-BIT DELAY 

; MASK UNWANTED BITS 

; ADD NEW BIT TO DATA 

; GET MAX RAM 

; DECREMENT AND TEST BIT COUNT 



FULL-BIT DELAY 



1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1083 
.1039 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



C2A3 

C2A9 

C2AA 

C2A3 

C2AC 

C2AD 

C2AE 

C2AF 

C2B0 

C2B1 

C232 

C233 

C2B4 

C2B5 

C2B6 

C237 

C238 

C239 

C2BA 

C28B 

C2BC 

C23D 

C2BE 

C23F 

C2C0 

C2C1 

C2C2 
C2C3 
C2C4 
C2C5 
C2C6 
C2C7 
C2C8 
C2C9 



GEC: 



!EC1 



293D A GECO: 

32E4 A 

1103 

29DF 

2500 

C31A 

4D08 

A6E3 A 

4D00 A 

0605 A 

0604 A 

0402 

1201 

21 FD 

2D5D 

0402 

1201 

21F3 

0603 

2D59 

0402 

614E 

5DFF A 

3182 A 

7ES3 A 

21 F8 A 



LP3: 



06 03 
2D51 
4CFF 
0603 
2D4E 
5DF8 
3481 
0605 



.PAGE 

THIS GET AND ECHO CHARACTER ROUTINE IS ONLY USED AT 110 BAUD 
BECAUSE OF THE CRITICAL TIMING AT THE OTHER BAUD RATES. AT THE 
THE HIGHER BAUD RATES, THE GET AND ECHO CHARACTER IS ACHIEVED 
BY GETTING THE CHARACTER WITH THE GETC ROUTINE FOLLOWED 3Y THE 
PUTC ROUTINE. 



GEC2 



JSR SAVE 

LD AC0,BAUD(AC2) 

BOC ZRO,GEC 

JSR GETC+1 

JMP @.+l 

.WORD PUTC 

LI AC1,8 

ST AC1,BCNT(AC2) 

LI AC1,0 

ROUT $ RESET 

ROUT RDREN 

RIN $READ 

BOC POS,.+2 

JMP .-2 

JSR 3TDELAY 

RIN 5READ 

BOC POS,.+2 

JMP GEC1 

ROUT SEND 

JSR £TDELAY+1 

RIN $READ 

AND AC0,MASK 

SHR AC1,1 

RXOR AC0,AC1 

DSZ BCNT(AC2) 

JMP LP3 ' 

ROUT SEND 
JSR @TDELAY+1 

LI AC0,-1 
ROUT SEND 
JSR 3TDELAY+1 
SHR AC1,8 
RCPY AC1,AC0 

ROUT 3RESET 



TEST BAUD SELECT 

TTY 

CRT 



INITIALIZE BIT COUNT 

ENABLE READER 

TEST FOR START BIT 

HALF-BIT DELAY 

TEST IF START BIT STILL THERE 

START IF GOOD START BIT 

ECHO 3IT 
FULL-BIT DELAY 



MASK UNWANTED BIT 

ADD NEW BIT TO DATA 
DECREMENT BIT COUNT 



ECHO LAST BIT 
FULL-BIT DELAY 

SEND STOP BIT 
FULL-BIT DELAY 
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HDELT; 



DELYT: 



HDEL3: 



DELY3: 



1103 * 

1104 C2CA 3EF8 A RETURN: 

1105 C2CB 36FA A 

1106 C2CC 8AF9 A 

1107 C2CD 0200 A 



1103 
1109 
1110 
1111 

1112 C2CE 

1113 C2CF 

1114 C2D0 

1115 C2D1 

1116 C2D2 

1117 C2D3 

1118 C2D4 

1119 C2D5 
1120 
1121 
1122 

1123 C2D6 

1124 C2D7 

1125 C2D8 

1126 C2D9 

1127 C2DA 

1128 C2DB 

1129 C2DC 

1130 C2DD 
1131 
1132 
1133 

1134 C2DE 

1135 C2DF 

1136 C2E0 

1137 C2E1 

1138 C2E2 

1139 C2E3 

1140 C2E4 

1141 C2E5 
1142 
1143 
1144 
1145 
1146 
1147 
1143 

1149 C2E6 

1150 C2E7 

1151 C2E3 

1152 C2E9 

1153 C2EA 

1154 C2EB 

1155 C2EC 

1156 C2ED 

1157 C2EE 

1158 C2EF 

1159 C2F0 

1160 C2F1 

1161 C2F2 

1162 C2F3 

1163 C2F4 



4C09 A 
2101 A 
4C12 A 
5870 A 
48FF A 
21 FD A 
5CD8 A 
0200 A 



4C04 A 
2101 A 
4C09 A 
5850 A 
48FF A 
21FD A 
5CF4 A 
0200 A 



4C01 A HDEL12: 

2101 A 

4C02 A DELY12 

5850 A 

48FF A 

21 FD A 

5CF2 A 

0200 A 



4300 A SAVE: 
3D27 A 
4000 A TOP: 
A300 A 
D300 A 
1505 A 

A 

A 

A 

A 

A 

DD1E A INCR: 
440# A 
21 Ff A 
4400 A SREG: 



8300 
5000 
A300 
D300 
1103 



LD 


AC3,SAV3(AC2) 


LD 


AC1,SAV1(AC2) 


LD 


AC2,SAV2(AC2) 


RTS 




.PAGE 




DELAY 


ROUTINES FOR TT 


LI 


AC0,9 


JMP 


.+2 


LI 


.AC0,18 


ROL 


AC0,H2 


AIS2 


AC0 ,-1 


JMP 


.-2 


SHR 


AC0,40 


RTS 





RESTORE THE REGISTERS 



; HALF-BIT TIME 
: FULL-BIT TIME 



300 3AUD DELAY 



LI 


AC0 


4 


JMP 


. + 2 




LI 


AC0 


9 


ROL 


AC0 


80 


AISZ 


AC0 


r-1 


JMP 


.-2 




SHR 


AC0 


,12 


RTS 







; HALF-BIT TIME 
; FULL-BIT TIME 



.. 1200 BAUD OPERATION 



LI 

JMP 

LI 

ROL 

AISZ 

JMP 

SHR 

RTS 



AC0,1 

. + 2 

AC0,2 

AC0,30 

AC0,-1 

.-2 

AC0,14 



; HALF- BIT TIME 
; FULL-BIT TIMS 



SUBROUTINE SAVE DETERMINES THE MAXIMUM RAM AVAILABLE, SAVES 
THE ENVIRONMENT, AND DETERMINES THE PROPER 3AUD RATE TO USE, 
OUTPUTS OF THE SUBROUTINE ARE: (AC2) MAXRAM, (AC3) TTYAD. 
THE SELECT FLAG IS CLEARED BUT NOT RESTORED UPON EXIT FROM 
THE PROGRAM. 



PUSH 

LD 

PUSH 

ST 

SUB 

30C 

LD 

CAI 

ST 

SUB 

BOC 

SUB 

PULL 

JMP 

PULL 



AC 3 

AC3,MEMTOP 

AC0 

AC0, (AC3) 

AC0, (AC3) 

NZRO,INCR 

AC0, (AC3) 

AC0,0 

AC0, (AC3) 

AC0, (AC3) 

ZRO,SREG 

3,BNKSIZ 

AC0 

TOP 

AC0 



:ALCULATE MAXRAM 



; STORE WORD INTO MEMORY AND READ BACK 

; NO RAM HERE 

; COMPLEMENT AND RECHECK 



RAM FOUND 

LOOK AT NEXT LOWER BANK 



SAVE REGISTERS 
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1164 
1165 
1166 
1167 
1163 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1173 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1192) 
1191 
1192 
1193 
1194 
1195 
1196 



C2F5 
C2F6 
C2F7 
C2F8 
C2F9 
C2FA 
C2FB 
C2FC 
C2FD 
C2FE 
C2FF 
C300 
C301 
C302 
C303 
C304 
C305 
C306 
C307 



C303 
C309 
C30A 
C303 
C30C 
C30D 
C30E 
C30F 
C310 
C311 
C312 



4B02 

A3FB 

A7FA 

ABF9 

3E81 

4700 

AEF8 

0A80 

8D14 

8300 

4F04 

710C A 

4F02 A 

710B A 

4F00 A 

AEE4 A 

4F33 A 

82FB A 

0200 A 



0000 
0001 
0083 
007F 
8000 
0020 
0040 
6FFD 
1000 
C316 
7DB2 



A ZERO: 
A ONE: 
A PBIT: 
A H7F: 
A MASK: 
A 3IT5: 
A BIT6: 
A MEMTOP: 
A 3NKSIZ: 
A BAUD3: 
A ST AD: 



AISZ 


AC3,2 


ST 


AC0,SAV0(AC3) 


ST 


AC1,SAV1<AC3) 


ST 


AC2,SAV2(AC3) 


RCPY 


AC3,AC2 


PULL 


AC 3 


ST 


AC3,SAV3(AC2) 


PFLG 


SEL 


LD 


AC 3, ST AD 


LD 


AC0,(AC3) 


LI 


AC3,4 


SKAZ 


AC0,BIT5 


LI 


AC3,2 


SKAZ 


AC0,BIT6 


LI 


AC3,0 


ST 


AC3,BAUD(AC2) 


LI 


AC 3, TTY AD 


LD 


AC0,SAV0(AC2) 


RTS 





? ADJUST ADDRESS TO TOP OF BANK 



; RESTORE AC3 

; DETERMINE PROPER BAUD RATE 

; ASSUME 1200 TO START 

; 300 BAUD 

TTY 

SAVE BAUD RATE STATUS 

PICK UP TTY DEVICE ADDRESS 



THE VARIABLES NEEDED IN THIS PROGRAM 



.WORD 
. WORD 
. WORD 
.WORD 
. WORD 
.WORD 
.WORD 
. WORD 
. WORD 
.WORD 
. WORD 





1 

080 

07F 

08000 

020 

040 

06FFD 

01000 

TDELAY+2 

07D02 



; ADR OF BAUD SELECT WORD 



1197 
1193 
1199 

1200 

1201 C313 C314 A DELADO: 

1202 C314 C2CE A TDELAY; 

1203 C315 C2D0 A 

1204 C316 C2D6 A 
12tf5 C317 C2D3 A 

1206 C318 C2DE A 

1207 C319 C2E0 A 



.PAGE 

TRANSFER VECTOR FOR VARIOUS DELAY ROUTINES 



TTY-- HALF BIT DELAY 
FULL BIT DELAY 
300 BAUD 



WORD 


TDELAY 


WORD 


HDELT 


WORD 


DELYT 


WORD 


HDEL3 


WORD 


DELY3 


WORD 


HDEL12 


WORD 


DELY12 



1200 BAUD 



1203 










.PAGE 




1209 














1210 










THIS 


PUT CHARACTER RC 


1211 














1212 


C31A 


29C8 


A 


PUTC: 


JSR 


SAVE 


1213 


C31B 


4200 


A 




PUSH 


AC 2 


1214 


C31C 


8AE4 


A 




LD 


AC2,BAUD(AC2) 


1215 


C31D 


F9EA 


A 




SKNE 


AC2,ZERO 


1216 


C31E 


210C 


A 




J MP 


TTY 


1217 








; 






1218 


C31F 


61EB 


A 




AND 


AC0,H7F 


1219 


C320 


4000 


A 




PUSH 


AC0 


1220 


C321 


4D01 


A 




LI 


AC1,1 


1221 


C322 


4F07 


A 




LI 


AC3,7 


1222 


C323 


1301 


A 


PL1: 


BOC 


BIT0,.+2 


1223 


C324 


4901 


A 




AISZ 


AC1,1 


1224 


C325 


5CFF 


A 




SHR 


AC0,1 



SAVE MAX RAM ADDRESS 
GET BAUD RATE SELECTION 
TEST FOR 110 3AUD 
NO PARITY 

COMPUTE EVEN PARITY 
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1225 


C326 


4BFF 


A 


AISZ 


AC3,-1 


1226 


C327 


21FB 


A 


JMP 


PL1 


1227 


C323 


4400 


A 


PULL 


AC0 


1223 


C329 


75DF 


A 


SKAZ 


ACl,ONE 


1229 


C32A 


69DF 


A 


OR 


AC0,PBIT 


1234) 






; 






1231 


C328 


4F3S 


A TTY: 


LI 


AC 3, TTY AD 


1232 


C32C 


3181 


A 


rcpy 


AC0,AC1 


1233 


C32D 


4C09 


A 


LI 


AC0,9 


1234 


C32E 


4000 


A 


PUSH 


AC0 


1235 


C32F 


C9E3 


A 


ADD 


AC2,DELADD 


1235 


C330 


2E01 


A 


JSR 


§1<AC2) 


1237 


C331 


0603 


A 


ROUT 


SEND 


1233 


C332 


2E01 


A LP2: 


JSR 


@1(AC2) 


1239 


C333 


5600 


A 


XCHRS 


AC 2 


1240 


C334 


4AFF 


a 


AISZ 


AC2 ;-l 


1241 


C335 


211D 


A 


JMP 


NEXT 


1242 






; 






1243 


C336 


4CFF 


A DONE: 


LI 


AC0,-1 


1244 


C337 


0603 


A 


ROUT 


SEND 


1245 


C333 


4600 


A 


PULL 


AC 2 


1246 


C339 


2E01 


A 


JSR 


3KAC2) 


1247 


C33A 


2E01 


A 


JSR 


@1(AC2) 


1248 


C33B 


F9D5 


A 


SKNE 


AC2,BAUD3 


1249 


C33C 


2103 


A 


JMP 


DON1 


125a 


C33D 


4600 


A 


PULL 


AC2 


1251 


C33E 


82FB 


A 


LD 


AC0,SA70 (AC2) 


1252 


C33F 


2189 


A 


JMP 


RETURN- 1 


1253 


C340 


4600 


A D0N1: 


PULL 


AC 2 


1254 


C341 


82FB 




LD 


AC0,SAV0(AC2) 


1255 


C342 


4000 


A 


PUSH 





1256 


C343 


F10E 


A 


SKNE 


0,CR 


1257 


C344 


2102 


A 


JMP 


.+3 


1258 


C345 


4400 


A 


PULL 





1259 


C346 


2182 


A 


JMP 


RETURN- 1 


1260 


C347 


4D03 


A 


LI 


AC1,8 


1261 


C348 


4C30 


A DEL: 


LI 


AC0,48 


1262 


C349 


5370 


A 


ROL 


AC0,112 


1263 


V_ J«irt 


A O m rn 


A 


AISZ 


rt\_ V , — J. 


1264 


C34B 


21FD 


A 


JMP 


.-2 


1265 


C34C 


5CBD 


A 


SHR 


AC0,67 


i n r r 




49FF 


A 


AISZ 


rtWA i — J. 


1267 


C34E 


21F9 


A 


JMP 


DEL 


1263 


C34F 


4400 


A 


PULL 





1269 


C350 


2500 


A 


JMP 


§. + 1 


1270 


C351 


C2C9 


A 


.WORD 


RETURN- 1 


1271 


C352 


000D 


A CR: 


.WORD 


X'0D 


1272 






• 






1273 


C353 


59FF 


A NEXT: 


ROR 


aci,i 


1274 


C354 


3481 


A 


RCPY 


AC1,AC0 


1275 


C355 


0603 


A 


ROUT 


SEND 


1276 


C355 


5630 


A 


XCHRS 


AC 2 


1277 


C357 


21DA 


A 


JMP 


LP2 


1278 




C01D 


A 


.END 


DISKIO 


****** 


i 


3 ERRORS 


IN ASSEMBLY ****** 


52! 


$3! 


S4! $5. 


$CHS' 


$COMP" SEND" 



; LOAD BIT COUNT 



; FULL-BIT DELAY 

FULL- BIT DELAY 

EXCHANGE INDEX ADDRESS WITH BIT COUNT 

DECREMENT BIT COUNT 



CHARACTER OUTPUT COMPLETED 

SEND STOP BIT 

LOAD BAUD-RATE SELECTOR 

FULL-BIT DELAY 

FULL-BIT DELAY 



; RESTORE ORIGINAL CHARACTER 



; 190 MS. DELAY FOR CR ON SILENT-700 



OUTPUT NEXT BIT 

OUTPUT ONE BIT 

EXCHANGE BIT COUNT WITH INDEX ADDRESS 



OJ95 A C099 A C09B A C0AF A C278 A C27D A C26A A C018 A C263 A C27B A 



$OK" $READ# $RESE# A3 



A4 



A5 



A6 



AA1 



AA2 



AC0 
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C283 A 0002 A 0005 A C01F A C024 A C022 A C02A A C13E A C143 A 0000 A 

API AC2 AC3 ADATA ANMSK ASTAT ASTATA ASTATB ASTATC Bl 
0001 A 0002 A 0003 A C057 A C212 A C056 A C1A1 A C1EF A C237 A C03E A 

BAUD 3AUD3 BCNT BDATA BIT0 BITl BITS BIT6 BNKSIZ BSAV 
FFeS A C311 A FFE3 A C059 A 0003 A 0004 A C30D A C30E A C310 A C030 A 

BSTAT CI CC1 CCRC CONTl CONT2 CR CRC CRC10 CRC11 
C058 A C046 A C148 A C0E8 A C02E A C02F A C352 A C1C0 A C1D0 A C1CD A 

CRC3 CRC5 CRC9 CRCA CRTS CYOV D Dl D2 D3 
C1C3 A C1C8 A C1CF A C123 A C0E7 A 000A A C048 A C05D A C051 A C04C A 

DBOOT DD1 DD2 DEL DEL10 DEL10M DELADD DELAY DELAY2 DELY12 
C00E A C14D A C14F A C348 A C1F0 A C0DF A C313 A C24D A C24F A C2E0 A 

DELY3 OELYT DISK2 DISKIO DONl DONE El Ell EEl EE2 
C2D8 A C2D0 A C255 A C01D A C340 A C336 A C060 A C066 A C152 A C154 A 

ERROR EX EXB EXC EXC1 EXC2 EXC3 EXDl EXD2 PI 
C016 A C1A3 A C0D3 A C1B0 A C1B4 A C139 A C1B7 A C1BB A C1BD A C06A A 

FF1 FF2 Gl G2 GEC GEC1 GEC2 GECO GETC GETC2 
C162 A C15D A C06C A C075 A C2AE A C2B2 A C2C7 A C2A8 A C28A A C28E A 

GG1 H09F HI H28K H4K H7F HDEL12 HDEL3 HDELT HHl 
C165 A C274 A C073 A C288 A C289 A C30B A C2DE A C2D6 A C2CE A C16E A 

II IEN IEN2 II INCR JJl JJ2 Kl K2 K3 
C07A A 0001 A 0009 A C171 A C2F1 A C17D A C17F A C082 A C09F A C084 A 

KK1 LDISK LP1 LP2 LP3 Ml MASK MEMTOP MISYNC Mrtl 
C17A A C008 A C299 A C332 A C2BA A C0A7 A C30C A C30F A 0001 A C183 A 

MM2 MSK MTRK N NEX1 NEXT NN1 NRDY NZRO ONE 
C187 A C053 A C05C A C033 A C197 A C353 A C18A A 000E A 0035 A C309 A 

p PI PBIT PCTS PDBOOT PDISK PLl POLY POS PTEPIN 
C0E2 A C124 A C30A A C196 A C000 A C00A A C323 A C1BE A 0002 A C1A2 A 

PUTC RDREN RDSA RDSECT READ RESl RES2 RES3 RESTR RETURN 
C31A A 0004 A C122 A C203 A C0E9 A C1DD A C1E1 A C1E9 A C1D9 A C2CA A 

rrI S SI S2 S3 S4 S5 SAV0 SAVl SAV2 
C0FC A C0CA A C0CC A C0D0 A C0D1 A C0CD A C0D2 A FFF6 A FFFA A FFF9 A 

SAV3 SAVE SCTS 3CTSA SEL SEND SIAl SIA2 SNRDY SOAl 
FFF8 A C2E6 A C0DE A C1BF A 0002 A 0003 A C247 A C248 A 0008 A C204 A 

SOA2 SOA3 SOA4 SRI SR2 SR3 3R4 SR5 SR6 SR7 
C1FE A C207 A C202 A C203 A C20E A C219 A C21A A C222 A C22D A C22F A 

SR 3 SR9 SREG SSZ STAD STEPIN STPOUT Tl T2 T3 
C233 A C214 A C2F4 A C213 A C312 A C238 A C1F1 A C0B5 A C0BC A C0BE A 

T4 T5 TDELAY TMPTR TNS TOP TOPRAM TPRAM TRAM TTY 
C037 A C0C0 A C314 A C02D A C05A A C2E8 A C276 A C275 A C00C A C328 A 

TTYAD TTYGCO TTYGST TTYPUT Ul U2 VI VCER Wl VV2 . 
0i)33 A C006 A C002 A C004 A C0C2 A C0C8 A C0D4 A C179 A C106 A C109 A 

W3 VV4 W5 Wl W2 W267 W268 W7 WA WD 
C103 A C10E A C112 A C140 A C12C A C0E0 A C0E1 A C0DC A C0DD A C192 A 
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WD1 WD10 WD14 WRD2 WRJC WV1 XI X2 X3 Yl 
C193 A C194 A C195 A C02C A 000E A C178 A C0ED A C0EF A C0F3 A C137 A 

Y2 ZERO ZRO 
C139 A C308 A 0001 A 

2C22 A538 
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REVISION-G 01/02/74 

MEMDI 00154B 02/14/74 



1 


0000 


2 


0000 


3 


0000 


4 


0000 


5 


0000 


6 


0000 


7 


0000 


8 


0000 


9 


0000 


10 


0000 


11 


0000 


12 


0000 


13 


0000 


14 


0000 


15 


0000 


16 


0000 


17 


0000 


18 


0000 


19 


0000 


20 


0000 


21 


0000 


22 


0000 


23 


0000 


24 


0000 


25 


0000 


26 


0000 


27 


0000 


28 


0000 


■30 


0000 


30 


0000 


31 


0000 



.TITLE MEMDI, '001546 02/14/74' 

MEMDI IMP-16L/IMP-16P MEMORY DIAGNOSTIC 



1. LOAD DIAGNOSTIC INTO MAIN MEMORY. 
*********************************************************************** 

* * 

* IMP-16P LOADING PROCEDURE 

* * 
*********************************************************************** 

A. FROM CARDS 

1) DEPRESS INITIALIZE. 

2) SET MODE SWITCH TO PC. 

3) SFT THE VALUE X'7F00 INTO THE SWITCHES. 

4) DEPRESS LOAD DATA. 

5) SET MODE SWITCH TO PROG DATA. 

6) DEPRESS RUN. 

7) WHEN THE LOADER HALTS, SET MODE SWITCH TO PC. 

8) SET THE VALUE X«120 INTO THE SWITCHES. 

9) DEPRESS LOAD DATA. 
10) DEPRESS RUN. 

B. FROM PAPER TAPE 

1) PLACE PAPER TAPE IN READER. 
25 DEPRESS 'INITIALIZE 8 , 

3) DEPRESS 'LOAD PROG'. 

4) UPON COMPLETION OF LOAD, PROGRAM WILL HALT. TO BEGIN 
EXECUTION, DEPRESS 'RUN'. 



32 0000 

33 0000 

34 0000 

35 0000 

o l. r\r\r\f\ 

37 0000 

38 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 

44 0000 

45 0000 

46 0000 

47 0000 

48 0000 

49 0000 

50 0000 

51 0000 

52 0000 

53 0000 

54 0000 

55 0000 

56 0000 

57 0000 

58 0000 

59 0000 

60 0000 



.PAGE 
*********************************************************************** 

* * 

* IMP-16L LOADING PROCEDURE * 

* * 

*********************************************************************** 

A. CARDS 

1) PLACE CARD DECK IN READER (WITH CRBOOT). 

2) DEPRESS 'INITIALIZE'. 

3) DEPRESS 'AUX1'. 

4) DEPRESS 'RUN'. 

B. PAPER TAPE 

1) PLACE PAPER TAPE IN READER. 

2) DEPRESS 'INITIALIZE* . 

3) DEPRESS 'LOAD PROG'. 

4) UPON COMPLETION OF LOAD, PROGRAM WILL HALT. TO BEGIN 
EXECUTION, DEPRESS 'RUN'. 

2. PROGRAM SHOULD HALT WITH X' 124 IN THE PC. 

3. SELECT TEST PARAMETERS (IF NECESSARY). 

A. DEPRESS 'HALT'. 

B. SET MODE SWITCH TO 'ACO'. 

C. SET FUNCTIONS REQUESTED INTO SWITCHES. 

D. DEPRESS 'LOAD DATA'. 

E. SET MODE SWITCH TO 'AC1'. 

F. SET TEST START ADDRESS INTO SWITCHES. 

G. DEPRESS 'LOAD DATA'. 

H. SET MODE SWITCH TO 'AC2'. 
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61 0000 

62 0000 

63 0000 

64 0000 

65 0000 

66 0000 

67 0000 

68 0000 

69 0000 

70 0000 

71 0000 

72 0000 

73 0000 

74 0000 

75 0000 

76 0000 

77 0000 

78 0000 

79 0000 

80 0000 

81 0000 

82 0000 

83 0000 



84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
<=5 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 



0000 
0000 
0000 
0000 
0000 0120 

0120 8179 

0121 8579 

0122 897C 

0123 0000 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 

0124 2118 
0125 
0125 
0125 

0125 0000 
0125 0001 
0125 0002 
0125 0003 
0125 0001 
0125 0007 
0125 0004 
0125 0003 



4. 
5. 
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I. SET SWITCHES TO TEST END ADDRESS. 

J. DEPRESS 'LOAD DATA'. 

K. IF PROGRAM RELOCATION DESIRED, SET MODE SWITCH TO AC3. 

L. SET NEW PROGRAM ADDRESS INTO SWITCHES. IF THIS OPTION IS 
USED, TEST RANGE AND PATTERNS MUST BF REDEFINED BEFORE 
FURTHER TESTING IS ATTEMPTED. 

M. DEPRESS »LOAD DATA'. 

RESTART PROGRAM EXECUTION, BY DEPRESSING RUN. 

AFTER PROGRAM AGAIN HALTS, CHECK THE ADDRESS IN THE PC. 

IF PC=X»124, ALL SELECTED TESTS WERE EXECUTED WITHOUT ANY ERRORS 

BEING DETECTED. 

TO REPEAT THE SELECTED TESTING, RETURN TO STEP 4 ABOVE. 
TO MAKE NEW TESTING SELECTIONS, RETURN TO STEP 3 ABOVE. 

IF PC=X'182, AN ADDRESSING ERROR HAS BEEN OETECTEO. AC1 SHOULD 

CONTAIN A ZERO(O) INDICATING ADDRESS ERROR, AC2 SHOULD CONTAIN 

THE WORD READ FROM MEMORY, AND AC3 SHOULD CONTAIN THE ADDRESS 

REFERENCED. 

IF PC=X'20C, THE PROGRAM HAS DETECTED A PATTERN MISMATCH. 
ACO SHOULD INDICATE THE BITS WHICH FAILED, AC 1 INDICATES 
THE TEST WHICH FAILED (SEE LISTING), AC2 WILL INDICATE THE 
THE ADDRESS OF THE FAILURE, AND AC3 CONTAINS THE CORRECT 
PATTERN. IF RUN IS DEPRESSED, THE PROGRAM WILL HALT WITH PC 
=X«20E AND AC1 WILL INDICATE WHICH BITS WERE UNDER TEST. 

TO CONTINUE AFTER AN ERROR, DEPRESS RUN. 



.TSECT 

•=.+X'120 

LD RO,FUNCT 

LD R1,TSTRT 

LD R2,TEN0 

HALT 



FUNCTIONS TO BE PERFORMED 
;TEST START ADDRESS 
;TEST END ADDRESS 
?T0 SET UP INPUT VALUES 



INPUTS: RO: 
Rl: 
R2: 



FUNCTIONS 
START ADDRESS 
END ADDRESS 

FUNCTION 



BIT 

AODRESS TEST 

1 WORD TEST 

2 BIT TEST 

3 HALT ON ERROR 

4 LOOP ON SELECTED TESTS 

5 REDEFINE PATTERN 

6 LOOP ON SINGLE TFST 

7 LOOP ON ERROR 

8 RESET RANGE 

15 RELOCATE PROGRAM (NEW ADDRESS IN R3) 

IF PROGRAM IS RELOCATED, ALL PATTERNS AND RANGES 
MUST BE REDEFINED. 

JMP Al 

MISCELLANEOUS CONSTANTS 

R0=0 
Ri=l 
R2=2 
R3=3 
ZR0 = 1 
NZR0=7 
Bl = 4 
0DD = 3 



MEMDI 



127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

1^5 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 



0125 

0125 

0125 

0125 

0125 

0125 

0126 

0127 

0127 

0127 

0127 

0128 

0129 

0138 

013C 

013D 

0130 

013D 

013E 

013F 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

014A 

0146 

014C 

014D 

014E 

014F 

014F 

014F 

014F 

0150 

0151 

0152 

0153 

0154 

0154 

0154 

0154 

0154 

0154 

0154 

0155 

0156 

0157 

0158 

0159 

015A 

015B 

015C 

015D 

015E 

015F 

0160 

0161 

0162 

0163 

0164 

0165 



0002 A 
0005 A 



0120 T 
0218 T 



AAAA A 
5555 A 
013B T 
0005 A 
0127 T 



&15C 

1201 

2149 

717B 

2101 

2102 

A5 57 

A95A 

7173 

2108 

8152 

132C 

141D A 

716B A 

2122 A 

716B A 

21F9 A 

2101 A 



815C A 
895C A 
9550 A 
90 50 A 
0000 A 



11F2 
A156 
A5D0 
85E4 
A549 
4001 
A54C 
A540 
3881 
11E9 
A94E 
ADC8 
890B 
C945 
A940 
A544 
4002 
A536 



PBASEi 
PLAST: 



PATN: 



MAXP: 
PPNT: 



Al: 



A1A: 



A2: 

A4: 

A6: 
A8: 

A10: 



A20: 



PZR0=2 
NEZ=5 

CONTROL VARIABLES 

.WORD MEMDI 

.WORD PEND 

PATTERN CONTROL 

.WORD X'AAAA 

.WORD X»5555 
.=.+18 

.WORD 5 

.WORD PATN 



ST 

BOC 

JMP 

SKAZ 

JMP 

JMP 

ST 

ST 

SKAZ 

JMP 

LD 

BOC 

BOC 

SKAZ 

JMP 

SKAZ 

JMP 

JMP 



ROtFUNCT 

PZR0,A1A 

A50 

R0tBIT8 

.+2 

A2 

Ri,TSTRT 

R2.TEND 

R0,BIT5 

A20 

ROtFUNCT 

0DD,A35 

B1.A25 

R0,BIT2 

A30 

R0,BIT4 

A4 

MEMDI 



REDEFINE PATTERN 



LD 


RCPREPL 


LD 


R2f PREPL+1 


LD 


R1,3PSTRT 


LD 


R3.3PSTRT-H 


HALT 





RO REPLICATOR 

Rl PATTERN 1 

R2 REPLICATOR 2 

R3 PATTERN 2 



BOC 

ST 

ST 

LD 

ST 

LI 

ST 

ST 

RCPY 

BOC 

ST 

ST 

LD 

ADD 

ST 

ST 

LI 

ST 



ZR0,A4 

ROtPREPL 

R1,PATN 

R1,PPNT 

Rl.PSTRT 

Rltl 

PlfPWROS 

RltNPAT 

R2,R0 

ZR0,A4 

R2, PREPL+1 

R3,PATN+1 

R2.PPNT 

R2tPWRDS 

R2tPSTRT+l 

R1»PWRDS+1 

Rlt2 

Rl tNPAT 



;PROG START ADDRESS 
;PROG END ADDRESS 



JACTUAL PATTERN CONTENTS 



;MAXIMUM NUMBER OF PATTERNS ALLOWED 
;ABSOLUTE ADDRESS OF NEXT ENTRY IN PATN 



; REQUESTED FUNCTIONS 

RELOCATE PROGRAM? 

; PROGRAM RELOCATION ROUTINE 

'.REDEFINE TEST RANGE? 

;YES 

;no 

;RESET TEST RANGE 

;TEST PATTERN REDEFINITION BIT 

TEST FOR NEXT FUNCTION 
ADDRESS TEST 
WORD TEST 

:BIT TEST 

;LOOP MODE - CONTINUE 
;NOT LOOP MODE 



;PATTERN REPLICATORS 
; PATTERN WORDS 



;N0 DEFINITIONS 
;SAVE PATTERN 1 



;R2 CONTAINS PATTERN 2 REPLICATOR 
;N0 PATTERN 2 



:SET NUMBER OF DEFINED PATTERNS 



MEMDI 



194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
2 36 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
2 54 
255 
256 
257 
258 
259 
260 



0166 
0167 
0167 
0167 
0167 
0168 
0169 
016A 
016B 
016C 
016D 
016E 
016E 
016E 
016E 
016F 
0170 
0171 
0172 
0173 
0174 
0175 
0175 
0175 
0175 
0175 
0175 
0176 
0177 
0178 
0179 
017A 
017B 
017C 
0170 
017E 
017F 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0189 
0189 
0189 
018A 
018B 
018C 
018D 
018E 
01 8F 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
019A 



21E0 A 



JMP 



A4 



4CFF 
A138 
2953 
812F 
714E 
21 FA 
21DC 



4C01 
A131 
29 4C 
8128 
7147 
21FA 
2107 



8025 
AFOO 
4B01 
ED26 
21FC 
8D20 
FFOO 
2108 
8B00 
811B 
4D00 
7136 
0000 
8117 
7137 
21F6 
4B01 
E018 
21F3 
21C0 



819C 
019A 
3C00 
A199 
8997 
81AD 
0195 
3C00 
A1AA 
AD92 
8200 
A300 
4A01 
4B01 
ED8E 
21FA 
258B 



A25: 



A30: 



A35 
A37: 



A39: 



A40: 



A50: 



A55: 



WORD 


TEST 


LI 


R0,-1 


ST 


RO,MASK 


JSR 


TESTS 


LD 


RO.FUNCT 


SKAZ 


R0.BIT6 


JMP 


A25 


JMP 


A8 


BIT TEST 


LI 


ROtl 


ST 


ROtMASK 


JSR 


TESTS 


LD 


ROiFUNCT 


SKAZ 


R0,BIT6 


JMP 


A30 


JMP 


A10 



;SET MASK FOR FULL WORD 
?EXECUTE WORD TESTS 



;L00P ON SINGLE TEST 
; CONTINUE 



;SET MASK FOR BIT TEST 
;EXECUTE BIT TESTS 



;L00P ON SINGLE TEST 
CONTINUE 



ADDRESS TEST — WRITE ADDRESS OF EACH MEMORY WORD INTO 
WORD AND THEN READ BACK EACH ONE TO SEE IF WORD WAS 
AODRESSEO PROPERLY. 



LD 

ST 

AISZ 

SKG 

JMP 

LD 

SKNE 

JMP 

LO 

LD 

LI 

SKAZ 

HALT 

LD 

SKAZ 

JMP 

AISZ 

SKG 

JMP 

JMP 



R3,TSTRT 

R3,(R3) 

R3,i 

R3.TEND 

A37 

R3,TSTRT 

R3 t (R3) 

A40 

R2, (R3) 

RCFUNCT 

R1,0 

R0.BIT3 

RO,FUNCT 

R0,BIT7 

A39 

R3,l 

R3,TEND 

A39 

A6 



;STORE ADDRESSES IN EACH TEST LOC 



;COMPARE AGAINST TEST END ADDRESS 

;CONTINUE LOOP 

;TEST EACH LOC FOR ADDRESS MATCH 

;IF SKIP, FAILURE 

; MATCH 

;R2 CONTAINS ACTUAL CONTENTS 

;TEST CODE = FOR ADDR TEST 
;IF BIT 3 SET, HALT ON ERROR 
;R3 CONTAINS CORRECT ADDRESS 



;LOOP ON ERROR 



;CONTINUE WITH NEXT TEST 



RELOCATE PROGRAM TO ADDRESS CONTAINED IN R3 



LD 


RO,PLAST 


SUB 


RCPBASE 


RADD 


R3,R0 


ST 


R0,PLAST 


LD 


R2,PBASE 


LD 


R0,PPNT 


SUB 


R0,PBASE 


RADO 


R3,R0 


ST 


R0,PPNT 


ST 


R3,PBASE 


LD 


R0,(P2) 


ST 


RO, (R3» 


AISZ 


R2,l 


AISZ 


R3,l 


SKG 


R3,PLAST 


JMP 


A55 


JMP 


3PBASE 



{CURRENT END ADDRESS 

; CURRENT START ADDRESS 

CALCULATE NEW END ADDRESS 

;NEW LAST ADDRESS 

;SAVE CURRENT STARTING ADDRESS 

;ADJUST PATN TABLE POINTER 



5SET NEW BASE ADDRESS 
;M0VE PROGRAM 



;JUMP TO NEW STARTING LOCATION 



MEMDI 



261 
26 2 
263 
264 
265 
26 6 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
2 79 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 



019A 
019A 
019A 
019A 
01 9B 
019C 
019D 
019E 
019F 
01A0 
01A1 
01A2 
01A3 
01A4 
01A7 
01A8 
01A9 
01AC 
01AD 
01AE 
01B1 
01B1 
01B1 
01B1 
01B2 
01B3 
01B4 
01B5 
01B6 
01B7 
01B8 
0189 
01BA 
01BB 
01BC 
01BD 
01BD 
01BD 
01BD 
01BD 
01BD 
01BD 
01B0 
01BD 
01BE 
01BF 
01C0 
01C1 
01C2 
01C3 
01C4 
01C5 
01C6 
01C7 
01C8 
01C9 
01CA 
01CB 
01CC 
01CC 
01CD 
01CE 
01CF 
01 DO 
0101 
01D2 
0103 



OOOF 
0220 
0002 
FFFF 
01 9F 
1FFF 
01A1 
01A2 
0127 
0128 
01A7 
0001 
0001 
01 AC 
0001 
0001 
01B1 



01B2 
01B3 
01 B4 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 
0100 



4D00 
810C 
AIDE 
8114 
A108 
8110 
A1C7 
810F 
A 102 
81D5 
A1D8 
81E3 
A1E9 
89D7 
81DB 

A1E5 
81D3 
A1E2 
75CD 
2105 
2941 
210B 
81DB 



FUNCT: 

TSTRT: 

NPAT: 

MINI: 

TSTAD: 

TEND: 

PCNT: 

MASK: 

PSTRT: 



PWRDS: 



PREPL: 



CMASK: 

CWRDS: 

CREPLI 

BITO: 

BITl: 

BIT2: 

BIT3: 

BIT4: 

BITS: 

BIT6: 

BIT7: 

BIT8: 



TESTS: 
$11: 

$l: 



$3: 

$4: 
$2: 



$5: 



DATA IS 
PROGRAM 

.WORD 
.WORD 
.WORD 
.WORD 

.=. + 1 
.WORD 

. = .+1 
.=. + 1 
.WORD 
.WORD 
. = .+3 
.WORD 
.WORD 
. = .+3 
.WORD 
.WORD 
. = .+3 



PLACED HERE SO IT CAN BE REACHED BY ENTIRE 



X'F 
X'220 
2 
-1 

X'IFFF 



PATN 
PATN+1 

1 
1 

1 
1 



{FUNCTIONS TO BE PERFORMED 
;TEST START ADDRESS 



{CURRENT TEST ADDRESS 

;TEST END ADDRESS 

;NUMBEP OF PATTERNS TO EXECUTE 
;MASK IN USE FOR TESTS 
{PATTERN START IN PATN 



;NUMBER OF WORDS IN PATTERN 



;NUMBER OF TIMES TO REPLICATE PATTERN 



DYNAMIC CONSTANTS FOR TEST IN PROGRESS 



.=. + 1 
.= . + 1 
. = .+1 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WO R D 
.WORD 
.WORD 
.WORD 



;MASK 

{NO. OF WORDS IN PATTERN 

;N0. OF TIMES TO COPY PATTERN 



1 

2 

4 

8 

16 

32 

64 

128 

256 



EXECUTE TEST SEQUENCE 

WRITE PATTERN WORDS THROUGHOUT RANGE. THEN READ AND TEST WORD. 
COMPLEMENT AND STORE. REREAD AND CHECK, THEN REIMPLEMENT 
AND STORE. FINALLY, REREAD AND CHECK. BIT TEST IS SAME, ONLY 
FOR ONE BIT AT A TIME. 



$S2: 



.LOCAL 

LI R1,0 

LD PO, TSTRT 

ST RO, TSTAD 

LD R0,$S4 

ST R0,$4 

LD R0,$S2 

ST R0,$2 

LD R0,$S3 

ST R0,$3 

LD RO,NPAT 

ST RO,PCNT 

LD RO, PREPL 

ST RO, CREPLI 

LD R2, PSTRT 

LD RO, PWRDS 

ST RO, CWRDS 

LD RO.MASK 

ST RO, CMASK 

SKAZ R1,MIN1 

JMP $6 

JSR STORE 

JMP $7 

.WORD PWRDS-$2-l£X f FF 



;SET FOR PASS 1 
;GET TEST RANGE 

;SET MODIFIED INSTRUCTIONS TO ORIG VALUE 
{REINITIALIZE MODIFIED INSTRUCTIONS 



{NUMBER OF DEFINED PATTERNS 

{GET PATTERN START ADDRESS 
{MOVE CURRENT PATTERN DEFN 
;T0 FIXED ITEMS 

;GET CURRENT MASK 

{PASS 1 - R1=0 

{STORE PATTERN THROUGH TEST REGION 

X'8100 



MEMDI 



328 0104 

329 01D5 

330 0106 

331 0106 
33 2 0106 

333 0106 

334 01D7 

335 0108 

336 0109 

337 010A 

338 010B 

339 01DC 

340 01DD 

341 010E 

342 1DF 

343 01E0 

344 01F1 

345 01E2 

346 01E3 

347 01E4 

348 01E5 

349 01E6 

350 01E7 

351 01E8 

352 01E9 

353 01EA 

354 01EB 

355 QLEC 

356 01E0 

357 01E0 

358 01EE 

359 01FF 

360 01F0 

361 01F1 

362 01F2 

363 01F2 

364 01F3 

365 01F4 

366 01F4 

367 01F5 

368 0LF6 

369 01F6 

370 01F7 

371 01F8 

372 01F9 

373 01FA 

374 01FB 

375 01FC 

376 01FC 

377 01FC 

378 01FC 

379 01FC 

380 01FC 

381 01FC 

382 01F0 

383 01FE 

384 01FF 

385 0200 

386 0201 

387 0202 

388 0203 

389 0204 

390 0205 

391 0206 

392 0207 

393 0208 

394 0209 

395 020A 



81E3 A $S3: 
89D7 A $S4: 



.WORD PREPL-$3-l£X'FF X«8100 
.WORD PSTRT-$4-l£X'FF X'8900 



RUN ACTUAL TESTS 



4005 
2924 
293A 
40 03 
2921 
2937 
4001 
291E 
75BE 
2101 
2103 
8138 
71D3 
2109 
79B9 
4A01 
81B7 
E1B7 
2109 
75B3 
0200 
4D01 
21D1 



$6: 



$7 



$71 



$8: 



$9: 



81C3 A 
5C01 A 
11F4 A 
AICO A 
21E4 A 



7DBF A $10: 
2109 A 

♦ 
7DBE A 
2104 A 

7904 A 

7900 A 

7901 A 
7DA6 A 
21CD A 
21C4 A 



81B4 
8E00 
75B6 
3382 
9190 
3C82 
1100 
A5 0D 
8595 
75B1 
2101 
2107 
A9C9 
8994 
9506 



VRFY: 



$1: 

$2: 



LI 

JSR 

JSR 

LI 

JSR 

JSR 

LI 

JSR 

SKAZ 

JMP $71 

JMP 

LD 

SKAZ 

JMP 

ISZ 

AISZ 

LD 

SKG 

JMP 

SKAZ 

RTS 

LI 

JMP 

BIT TES 

LD 

SHL 

BOC 

ST 

JMP 

TEST FO 

DSZ 

JMP 

TEST FO 

DSZ 

JMP 

MOVE TO 

ISZ 

ISZ 

ISZ 

DSZ 

JMP 

JMP 



Rlt5 

VRFY 

STORE 

Rl,3 

VRFY 

STORE 

Rl,l 

VRFY 

Rlt MINI 

$8 

ROtFUNCT 

R0,BIT2 

$9 

TSTAD 

R2tl 

ROtTSTAD 

ROtTEND 

$10 

R1,MIN1 

Rlt 1 
$11 



;VERIFY 

;STORE COMPLEMENT 
;VERIFY COMPLEMENT 

;RECOMPLEMENT 
;VERIFY ONLY 

;IF ZERO, PASS 1 



;BIT TEST 

UNCREMENT TEST ADDRESS 

INCREMENT PATTERN WORD ADORESS 

:FINISHED TEST RANGE? 

;IF GREATER, YES 

;IF Rl EQ 0, PASS 1 

;PASS 2 COMPLT, RETURN TO CALLER 

;SET UP FOR PASS 2 

;START PASS 2 



RO,CMASK 

RO f l 

ZR0,$8 

RO,CMASK 

$6 
R END OF PEP 

CWROS 

$5 
P END OF ALL 

CREPLI 

$4 

NEXT TABLE ENTRY 

$2 

$3 

$4 

PCNT 

$3 

$1 



CHANGE MASK TO NEXT BIT 

;IF ZERO, DONE WITH ONE WORD 

;TEST NEXT BIT 
LICATION 



;TEST NEXT WORD 
REPLICATIONS 

;START NEXT REPLICATION 



;ALL PATTERNS DONE 
;D0 NEXT PATTERN 



EITHER VERIFY BIT SETTING OR VERIFY COMPLEMENT SETTING. ADDRESS 
OF TEST WORD IN 'TSTAD', PATTERN WORD IN R2 . 



;GET CURRENT MASK 

;GET ACTUAL PATTERN WORD 

COMPLEMENT TEST 

COMPLEMENT TEST 

;GET CONTENTS OF MEMORY 

COMPARE VALUES 

;MEMORY WORD OK 

CAVE Rl 

;HALT ON ERROR? 
;YES 

CAVE R2 



.LOCAL 




LD 


ROCMASK 


LD 


R3, (R2) 


SKAZ 


R1,BIT1 


RXOR 


R0,R3 


LD 


P.0,3TSTAD 


RXOR 


R3,R0 


BOC 


ZR0,$3 


ST 


R1,$R1 


LD 


R1,FUNCT 


SKAZ 


R1,BIT3 


JMP 


. + 2 


JMP 


$2A 


ST 


R2,$R2 


LD 


R2, TSTAD 


LD 


R1,$R1 



MEMDI 



396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 



020B 
02 0C 
020C 
020C 
020C 
020C 
020C 
020C 
020C 
020C 
020C 
020C 
02 00 
020E 
020F 
0210 
0211 
0212 
0213 
0213 
0213 
0213 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0219 
0219 



0000 A 



85A4 
0000 
8903 
8501 
0200 
0000 
0000 



8E00 
819C 
75A0 
3382 
BD86 
0200 



$2A: 
$3: 
$Rl: 
$R2: 



STORE: 



PEND: 



HALT 

RO = BITS FAILED 

Rl = TEST CODE 

5 REGULAR TEST 

3 COMPLEMENT TEST 

1 RECOMPLEMENT TEST 

R2 = FAILED ADDRESS 
R3 = CORRECT PATTERN 



LD 

HALT 

LD 

LD 

RTS 

.WORD 

.WORD 



R1,CMASK 

R2t$R2 
R1,$R1 






?R1 = BITS UNDER TEST 

; RE STORE R2 
;RESTORE Rl 



STORE VALUE OR COMPLEMENT OF PATTERN WORD POINTED TO BY R2 
INTO ADDRESS POINTED TO BY TSTAD. 



;ACTUAL PATTERN WORD 

JGET CURRENT MASK 

;DON'T COMPLEMENT ON SKIP 

^COMPLEMENT 

;STORE VALUE INTO MEMORY 



LD 


R3,(R2) 


LD 


ROtCMASK 


SKAZ 


R1,BIT2 


RXOR 


R0tR3 


ST 


R3,3TSTAD 


RTS 





0120 T 



.END 



MEMDI 



****** 



ERRORS IN ASSEMBLY ****** 



$1" 
OICO T 



$1# 
01FF T 



$10" 
01F2 T 



$11" 
01BE T 



$2" 

01CB 



$2# 
T 0200 T 



$2A# 
020F T 



$3" 
01C8 T 



$3# 
0210 T 



$4" 

01CA T 



$5" 
01CD T 



$6" 
01D6 T 



$7" 
01DE T 



$71" 
01E1 T 



$8" 
01E4 



$9" 
T 01 ED T 



$R1# 
0211 T 



$R2# 
0212 T 



$S2 M 
01D3 T 



$S3« 
01D4 T 



$S4" 
01D5 T 



Al 
013D T 



A10 
014C T 



A1A 
0140 T 



A2 
0145 



A20 
T 014F T 



A25 
0167 T 



A30 
016E T 



A35 
0175 T 



A3 7 
0176 T 



A 39 
017B T 



A4 
0147 T 



A40 
0185 T 



A50 
0189 T 



A55 

0193 



A6 
T 0149 T 



A8 
014A T 



Bl 
0004 A 



BITO 
01B4 T 



BIT1 
01B5 T 



BIT2 
01B6 T 



BIT3 
01B7 T 



B1T4 
01B8 T 



BIT5 
01B9 T 



BIT6 
01BA 



BIT7 
T 01BB T 



BIT8 
01BC T 



CMASK 
01B1 T 



CREPLI 
01B3 T 



CWRDS 
01B2 T 



FUNCT 
019A T 



MASK 
01A1 T 



MAXP 
013B T 



MEMDI 
0120 T 



MINI 
019D 



NEZ 
T 0005 A 



NPAT 
019C T 



NZRO 
0007 A 



ODD 
0003 A 



PATN 
0127 T 



PBASE 
0125 T 



PCNT 
01A0 T 



PEND 
0218 T 



PLAST 
0126 T 



PPNT 
013C 



PREPL 
T 01 AC T 



PSTRT 
01A2 T 



PWRDS 
01A7 T 



PZRO 
0002 A 



RO 
0000 A 



Rl 
0001 A 



R2 
0002 A 



R3 
0003 A 



STORE 
0213 T 



TEND 
019F 



TESTS 
T 01BD T 



TSTAD 
019E T 



TSTRT 
019B T 



VRFY 
01FC T 



ZRO 
0001 A 



D6FC 



7E99 



> 

CO 

00 



IMPASP8K 



REVISION-G 05/16/74 
IMPASP8K 0000369A 



6/24/74 



1 0000 




.TITLE 


IMPASP8K, • 0000369A 6/24/74' 


2 0000 








3 0000 




SUBROUTINES NEEDED BY IMP 16 ASSEMBLER 


4 0000 








5 0000 


; *****************************$:$::{::{::}:£•((#:(£ 


6 0000 0001 A SIZE8=1 






7 0000 FFFF A SIZE4=- 


SIZE8 




8 0000 


.ASECT 




9 0000 OOOD A 


• = 0D 




10 OOOD 0250 A 


.WORD 


MULT,DIVD,GETC,PUTC»RDCRD 


OOOE 0266 A 






OOOF 02A6 A 






0010 028E A 






0011 03FB A 






11 0012 0013 A INBUFB: 


• =• + 1 




12 0013 0014 A INBUFE: 


. = .+1 




13 0014 02A3 A 


.WORD 


ECHOGC 


14 0015 0410 A 


.WORD 


LINIT 


15 0016 0472 A 


• WORD 


WDSKTM 


16 0017 0442 A 


.WORD 


WDSKOB 


17 0018 04F7 A 


• WORD 


RDSKIN 


18 0019 04F4 A 


.WORD 


RDSKTM 


19 001A 0439 A PRINT: 


• WORD 


HSPRT 


20 001B 02E6 A 


• WORD 


MESS 


21 00 1C 04DD A 


.WORD 


CLOSET 


22 001D 045D A 


.WORD 


CLOSEO 


23 001E 001F A DSKOBJ: 


.=. + 1 




24 001F 0020 A DSKIN: 


«-• +1 




25 0020 0021 A DSKTMP: 


. = .+1 




26 0021 0022 A ABST: 


.=. + 1 




27 0022 0023 A DSKERR: 


. = . + 1 




2 8 002 3 


.IF 


SIZE8 


29 0023 0250 A 


.=0250 


; ******************** 3 {:*3j £ 3!c*4 c ^^^^ 


30 0250 ;****** 


****************###***#£#$:(£:$:$:(-£:(£ 


31 0250 0000 A R0=0 






32 0250 0001 A Rl=l 






33 0250 0002 A R2=2 






34 0250 0003 A R3=3 






35 0250 0001 A Z=l 






36 0250 0002 A P=2 






37 0250 0003 A 0DD=3 






38 0250 0004 A B1EQ1=4 






39 0250 0005 A NZ=5 






40 0250 


.PAGE 


•MULT/DIV ROUTINES* 


41 0250 0002 A $PSIGN=2 




42 0250 OOOB A $NRGT0=1 


LI 




43 C250 0002 A $SELFF=2 




44 0250 0003 A $BIT0=3 






45 0250 0000 A ACO=0 






46 0250 0001 A AC1=1 






47 0250 0002 A AC2=2 






48 0250 0003 A AC3=3 






49 0250 ; 








50 0250 ; 




MAIN CALLING PROGRAM 


51 0250 ; 








52 0250 ; 








53 0250 ; 




SUBROUTINE MULT 


54 0250 ; 








55 0250 A912 A MULT: 


ST 


AC2,$S2 


56 0251 AD12 A 


ST 


AC3,$S3 


57 0252 4E00 A 




LI 


AC2»0 ;CLEAR AC2 



IMPASP8K 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 



02 53 

0254 

0255 

0255 

0256 

02 57 

0258 

0259 

025A 

025B 

025C 

025D 

025E 

025F 

0260 

0261 

0262 

0263 

0264 

0265 

0265 

0265 

0265 

02 66 

0267 

0268 

0269 

026A 

026B 

026C 

02 60 

026E 

026F 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

02 79 

027A 

027B 

027C 

0270 

027E 

02 7F 

0280 

0281 

0282 

0283 

02 84 

0284 

02 85 

02 86 

0287 

0288 

028o 

028A 

028B 

02 8C 

028D 



4F10 A 
5000 A 



0A00 
5E01 
13 01 
3600 
5AFF 
5CFF 
4BFF 
21FA 
3181 
3881 
8004 
8902 
0A80 
0200 
0264 
0265 



0000 
A924 
3281 
5001 
3C00 
IBID 
4CF0 
A1F8 
OAOO 
4C00 
5C01 
5D01 
5A01 
3881 
5001 
3C00 
1B03 
4C00 
5C01 
2104 
5001 
3281 
4CFF 
5C01 
5901 
79E6 
21F1 
3481 
1201 
2105 
3881 

0A80 
8905 
8005 
0200 
8004 
3F00 
21F9 
0000 
0000 
7000 



$LOOP: 



$S2: 
$S3: 



$COUNT: 
DIVD: 



$POOL: 



$GOES: 



$SHFTLO 



$DONE: 



$OVFLW: 



$SAV2: 
$SAV3: 
$H7000: 



LI AC3,16 

CAI ACOtO 

SFLG $SELFF 

SHL AC2 t l 

BOC $BIT0,.+2 

RAOD AC1»AC2 

ROR AC2 T 1 

SHR AC0,1 

AISZ AC3,-1 

JMP $LOOP 

RCPY ACOtACl 

RCPY AC2tAC0 

ID AC3,$S3 

LD AC2,$S2 

PFLG SSELFF 
RTS 
.=. + 1 
• = • + 1 

SUBRCUTINE DIVD 

.WORD 

ST AC2,$SAV2 

RCPY AC0 t AC2 

CAI AC0,1 

RADD AC3,AC0 

30C $NRGTO,$OVFLW 

LI AC0,-16 

ST ACOt$COUNT 

SFLG $SELFF 

LI ACO.O 

SHL AC0,1 

SHL ACltl 

ROL AC2,1 

RCPY AC2.AC0 

CAI AC0,1 

RADD AC3 f AC0 

BOC $NRGTO,$GOES 

LI ACO,0 

SHL AC0,1 

JMP $SHFTLO 

CAI AC0,1 

RCPY ACO f AC2 

LI AC0,-1 

SHL ACOtl 

:ROL AC1.1 

ISZ $COUNT 

JMP SPOOL 

RCPY AC1,AC0 

BOC $PSIGN ? .+2 

JMP $OVFLW 

RCPY AC2,AC0 

PFLG $SELFF 

LD AC2,$SAV2 

LD AC3,$SAV3 

RTS 

LD AC3,$H7000 

RADD AC3 t AC3 

JMP $DONE 

.WORD 

•WORD 

.WORD X'7000 



;bit count=16 

complement aco to simplify 

branching on multiplier bito 

uncluce link in shifts 

;clear link 

;branch if aco complemented=0 

;ACl+AC2 — > AC2 

;ROTATE RESULT OF AOD INTO LINK 
;SHIFT LINK INTO ACO 
;DECR COUNT, SKIP IF ZERO 

;MOVE LO ORDER RESULT TO AC1 
;MOVE HI ORDER RESULT TO ACO 



;CLEAR SELF 



;SAVE AC2 

;SUBTRACT HI ORDER FROM DIVISOR 
;IS HI ORDER >= DIVISOR 

;no 

;SET C0UNT=16 
;SET SELX 

;CLEAR LINK 

;ROTATE HI ORDER LEFT WITH LINK 



JSUBTRACT HI ORDER FROM DIVISOP 
; IS HI ORDER >= DIVISOR 

;no 

*, clear link 

;yes 

;hi order = hi order - divisor 

*,SET LINK 

;ROTATE LO ORDER WITH LINK LEFT 

;ARE WE DONE? 

;no 

;YES 

;IS RESULT NEG 

;yes, OVERFLOW 

;N0 MOVE REMAINDER TO ACOtQUOT 

; IN AC1 

;CLEAR SELX 

'.RESTORE AC2 

;RESTORE AC3 



;SET OVERFLOW 



IMPASP8K 



122 028E 

123 028E ; 

124 028E 0029 A $TA 

125 028E 0012 A $TB 

126 C2 9E 0070 A $ TC 

127 028E 0009 A $EA 

128 028E 0016 A $EB 

129 028E 0026 A $EC 

130 028E 0038 A $TTYAD 



.PAGE "TELETYPE I/O - GETC/PUTC 
TELETYPE DELAY CONSTANTS 

41 

18 

112 

9 

22 

38 

7*8 



131 


028E 








•SPACE 


5 


132 


028E 






♦ 


TELETYPE TRANSMIT 


133 


02 8E 






* 






134 


028E 


2947 


A 


PUTC: 


JSR 


SAVE 


i-a s 


02 8F 


om r> 


A 


LPC: 


icno 


p> m \-rr- 


* ■* ■*" 


C- U' t c 


m 


r ru l i. 


136 


0290 


2110 


A 




JMP 


OONE+2 


137 


0291 


4C30 


A 




LI 


R0,030 


138 


0292 


293F 


A 




JSR 


$DELAY+1 


139 


0293 


4E09 


A 




LI 


R2»9 


140 


0294 


4F38 


A 




LI 


R3,$TTYAD 


141 


0295 


0603 


A 




ROUT 


3 


142 


0296 


293A 


A 


$LPl: 


JSR 


$DELAY 


143 


0297 


5829 


A 




ROL 


R0,$TA 


144 


02 98 


4AFF 


A 




AISZ 


R2,-l 


145 


0299 


2101 


A 




JMP 


+2 


146 


029A 


2104 


A 




JMP 


DONE 


147 


029B 


59FF 


A 




ROR 


Rlil 


148 


029C 


3481 


A 




RCPY 


RltRO 


149 


02 90 


060? 


A 




ROUT 


3 


150 


029E 


21F7 


A 




JMP 


$LP1 


151 


029F 


4CFF 


A 


OCNE: 


LI 


R0,-1 


152 


02A0 


0603 


A 




ROUT 


3 


153 


02A1 


213D 


A 




JMP 


RET 


154 


02 A2 


7E59 


A 


PPUTC: 


• WORD 


07E59 



155 02A3 








•SPACE 


5 


156 02A? 


2 93 2 


A 


ECHOGC: 


JSR 


SAVE 


157 02A4 


2D2A 


A 


LECO: 


JSR3 


PGECO 


158 02A5 


2127 


A 




JMP 


$X 


159 02 A6 






♦ 


GET CHARACTER ROUTIN 


160 02A6 


292F 


A 


GETC: 


JSP 


SAVE 


161 02A7 


2D28 


A 


LGET: 


JSR3 


PGETC 


162 02A8 


2124 


A 




JMP 


$X 


163 02A9 


0A80 


A 




PFLG 


2 


164 02AA 


4F38 


A 




LI 


R3,$TTYAD 


165 02A8 


0605 


A 


$25: 


ROUT 


5 


166 02AC 


4E08 


A 




LI 


R2,8 


167 02AD 


0604 


A 




ROUT 


4 


168 02 AE 


0402 


A 




RIN 


2 


169 02AF 


1201 


A 




BOC 


2, .+2 


170 02B0 


21FD 


A 




JMP 


e-2 


171 02 Bl 


4C09 


A 




LI 


RO,$EA 


172 02B2 


291F 


A 




JSR 


$DELAY+1 


173 02B3 


58EA 


A 




ROR 


ROt$EB 


174 02B4 


0402 


A 




RIN 


2 


175 02B5 


1201 


A 




BOC 


2, ,+2 


176 02B6 


21F4 


A 




JMP 


$25 


177 02B7 


792D 


A 


$LP2: 


ISZ 


FLAG 


178 02B8 


7D2C 


A 




DSZ 


FLAG 


179 02B9 


2101 


A 




JMP 


.+2 



IMPASP8K 



180 02BA 0603 A ROUT 3 

181 02BB 2915 A JSR $DELAY 

182 02BC 5826 A ROL RO,$EC 

183 02BO 040? A RIN 2 

184 02BE 6125 A AND R0,X8000 

185 07BF 5DFF A SHR Rlfl 

186 02CO 3182 A RXOR RO.Rl 

187 02C1 4AFF A AISZ R2,-l 
183 02C2 21F4 A JMP $LP2 

189 02C3 7921 A ISZ FLAG 

190 02C4 7020 A DSZ FLAG 

191 02C5 2104 A JMP $11 

192 02C6 0603 A ROUT 3 

193 02C7 2909 A JSR $DELAY 

194 02C8 4CFF A LI ROt-1 

195 02C9 0603 A ROUT 3 

196 0?CA $11: 

197 02CA 2906 A JSR $DELAY 

198 02CB 5DF8 A SHR Rl»8 

199 02CC 3481 A RC PY Rl.RO 

200 02CD A10D A $X: ST RO,$REG 

201 02CE 211 A JMP RET 

202 02CF 7E73 A PGECO: .WORD 07E73 

203 02DO 7E3B A PGETC: .WORD 07E3B 



204 


02D1 








.SPACE 


5 


205 


02 Dl 






* 


DELAY 


ROUTINE 


206 


02D1 






» 






207 


0201 






$DELAY: 






208 


02D1 


4C12 


A 




LI 


RO,$TB 


209 


02D2 


5890 


A 




ROR 


ROtSTC 


210 


02D3 


48FF 


A 




AISZ 


ROt-1 


211 


0204 


21F0 


A 




JMP 


.-2 


212 


0205 


0200 


A 




RTS 





213 0?D6 .SPACE 5 

214 02D6 ; SAVE AND RESTORE REGISTERS ROUTINE 

215 02D6 

216 02D6 A104 A SAVE: ST ROr$REG 

217 02D7 A504 A ST R1,$REG+1 

218 02D8 A904 A ST R2t$REG+2 

219 02D9 AD04 A ST R3,$REG+3 

220 02DA 0200 A RTS 

221 02DB 02DF A $REG: .=.+4 

222 02DF ; 

223 02DF 81FB A RET: LD R0 t $REG 

224 02E0 85FB A LD R1 T $REG+1 

225 02E1 89FB A LD R2»$REG+2 

226 02E2 8DFB A LD R3,$REG+3 

227 02E3 0200 A RTS 

228 02E4 ; 

229 02E4 8000 A X8000: .WORD 08000 

230 02E5 02E6 A FLAG: .=.+1 

231 02E6 .IF SIZES 



IMPASP8K 



232 


02E6 






233 


02E6 






234 


02E6 


4D17 


A 


235 


02E7 


4C0A 


A 


236 


02E8 


2C1A 


A 


237 


02E9 


49FF 


A 


238 


02EA 


21F0 


A 


239 


02EB 


8917 


A 


240 


02EC 


8600 


A 


241 


02ED 


4A01 


A 


242 


02EE 


2908 


A 


243 


02EF 


3E81 


A 


244 


02 F0 


4A0* 


A 


245 


02F1 


400E 


A 


246 


02F2 


2904 


A 


24 7 


02 F3 


4C0D 


A 


248 


02F4 


2C1A 


A 


249 


02F5 


4C0C 


A 


250 


02^6 


241 A 


A 


251 


02F7 






252 


02 F7 


8200 


A 


253 


0?F8 


5808 


A 


254 


02F9 


6908 


A 


255 


02FA 


2C1A 


A 


256 


02FB 


8200 


A 


257 


02FC 


6905 


A 


253 


C2FD 


2C1A 


A 


259 


02 FE 


4A01 


A 


260 


02FF 


^9FF 


A 


261 


0300 


21F6 


A 


262 


03 01 


0200 


A 


263 


03 02 


0080 


A 



.PAGE 'OUTPUT TITLE MESSAGE 1 



MESS: 



TYPE 



X80: 



264 


03 03 






265 


0303 




« 


26 6 


0^03 


0304 


A HEAD 


267 


0304 


0039 


A 


268 


0305 


2020 


A 




0306 


2020 


A 




03 07 


2020 


A 




03 08 


2 04E 


A 






/. 1 c /. 


A 




030A 


494F 


A 




C30B 


4E41 


A 




030C 


4C20 


A 




03 00 


5345 


A 




030E 


4D49 


A 




030F 


434F 


A 




0310 


4E44 


A 




03 ll 


5543 


A 




031.2 


544F 


A 




0313 


5220 


A 


26° 


0314 


ODOA 


A 


270 


0315 


ODOA 


A 


271 


0316 


ODOA 


A 


272 


0317 


2020 


A 




0318 


2020 


A 




0319 


2020 


A 




031 A 


2020 


A 




0318 


2020 


A 




031C 


2020 


A 




0310 


2 02 


A 




031E 


2 049 


A 




031F 


4D50 


A 




0320 


2 03! 


A 




0321 


3620 


A 



LI 


1,23 


LI 


0,X'OA 


JSR 


3PRINT 


AISZ 


1,-1 


JMP 


• -2 


LD 


2, HEAD 


LD 


1,(2) 


AISZ 


2,1 


JSR 


TYPE 


RCPY 


3,2 


AISZ 


2,4 


LI 


1,14 


JSR 


TYPE 


LI 


0,X»OD 


JSP 


3PRINT 


LI 


0,X'OC 


JMP 


SPRINT 


LD 


0,(2) 


ROL 


0,8 


OR 


R0,X80 


JSR 


3PRINT 


LD 


0,(2) 


OR 


R0,X80 


JSR 


3PRINT 


AISZ 


2,1 


AISZ 


1,-1 


JMP 


TYPE 


RTS 




• WORD 


080 


.PAGE 


•MESSAGE* 



„WORD o+l 

.WORD BOTTOM-. 

.ASCII ' NATIONAL SEMICONDUCTOR 1 



.WORC 
.WORD 
• WORD 
.ASCII 



ODOA 
ODOA 
ODOA 



IMP-16' 



IMPASP8K 



273 0322 0D0A 

274 0323 OOOA 

275 0324 ODOA 

276 0325 2020 

0326 2020 

0327 2020 

0328 2020 

0329 2052 
032A 4553 
03 28 4944 
032C 454E 
032D 5420 
032E 4153 
032F 5345 

0330 4042 

0331 4C45 

0332 5220 

277 0333 ODOA 

278 0334 ODOA 

279 0335 ODOA 

280 0336 ODOA 

281 0337 ODOA 

282 0338 ODOA 

283 0339 ODOA 

284 033A 5449 
033B 544C 
033C 453A 

285 033D 2000 



A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A BOTTOM 



• WORC 

• WORC 

• WORD 
.ASCII 



• WORC 

• WORD 

• WORD 

• WORC 

• WORC 

• WORD 

• WORC 
•ASCII 



ODOA 
ODOA 
ODOA 



ODOA 
CDOA 
ODOA 
ODOA 
ODOA 
ODOA 
ODOA 
•TITLE:' 



RESIDENT ASSEMBLER' 



•WORD 02000 



286 
287 
288 
289 
290 
291 
29 2 
293 
294 



295 



296 



29 7 



C33E 
03 3E 
033E 
033E 
033E 
03 8E 
038E 
038E 
03 8E 
038F 
0390 
0391 
0392 
0393 
0394 
03 95 
0396 
03 97 

0398 
0399 
039A 
039B 
03 9C 
039D 
039E 
039F 
03A0 
03A1 
03 A 2 
03A3 
03 A4 
03A5 
C3A6 
03A7 
03A8 
03A9 
03AA 
03AB 
03AC 



•PAGE 'CARD INPUT ROUTINE - RDCRD' 



0012 
0013 
038E 



0000 

0482 

0006 

0042 

0442 

0222 

0800 

0012 

0812 

0412 

0422 

080A 

0242 
0400 

0842 

0300 
0200 
0100 

0080 

0040 

0020 A 

0010 A 

0008 

0004 

0002 

0001 

0082 

040A 

0822 

OOOA 

020A 



$BBUF=INBUFB 
$EBUF=INBUFE 
$BUF2: .=*+80 



ASCII CODE TABLE 
$ASCTBL:.W0RC 0,0482,6,042,0442,0222,0800,012 



•WORC 08 12, 0412, 0422, 080A, 0242, 0400, 0842, 0300 



•WORD 200,0100,080,0^0,020,010,8,4,2,1 



•WORD 082, 040A, 0822, 0A,020A 



IMPASP8K 



293 
299 



500 



301 



302 



303 

304 

305 

306 

307 

308 

309 

310 

31 1 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

232 

233 



03 AD 

03AE 

03AF 

03B0 

03 61 

03B2 

03B3 

03B4 

03 B5 

03B6 

03 B7 

03B8 

03B9 

03BA 

03BB 

C3BC 

03B0 

03 8E 

03BF 

03C0 

03 CI 

03C2 

03 C3 

03O 

03C5 

03C6 

03C7 

03C8 

03C9 

03CA 

03CB 

03CC 

03CD 

03CE 

03CF 

03CF 

03D0 

0301 

03D2 

0302 

0303 

03 D4 

0304 

03D5 

03D6 

03D7 

03D8 

03 09 

03DA 

03 DB 

03 0C 

0300 

030E 

03DF 

03E0 

03E1 

C3E2 

03E3 

03 E4 

03E5 

03E5 

03F6 

03E7 

03 E8 

03E9 



0206 

0022 

0900 

0880 

0840 

0820 

0810 

0808 

0804 

0802 

0801 

0500 

0480 

0440 

0420 

0410 

0408 

0404 

0402 

0401 

0280 

0240 

0220 

0210 

0208 

0204 

02 02 

0201 

0882 

0282 

0806 

0406 

0212 

0102 



A $CM: 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



.WORD 0206,022 

.WORD 90 0» 08 80 T C840t 08 20 t 0810,0808, 08 04, 08 02, 08 01 



0000 
*C01 
2101 

4C00 
A123 

8122 
15CF 
4F10 
21 04 
711F 
21 p 5 
5CFE 
l^FB 
8C12 
8918 
4D50 
8200 
A300 
4A01 
4B01 
49 FF 
21FA 

4F10 
2100 
5CFF 
1405 
810D 



.WORD 500,0480,0440,0420,0410,0408,0404,0402,0401 



.WORD 0280,0240,0220,0210,0208,02 04,0202,0201 



A INERR: 

A 

A 

A FIRS2: 
A 

» 
A RQCARD: 
A 
A 

A WTLOOP: 
A 
A 
A 
A 
A 
A 
A 

A $l: 
A 
A 
A 
A 
A 

A FIRST: 

A 

A 

A 

A OFFLN: 



.WORC 088 2,02 82,0806,0406,0212,0102 



HALT 

LI 

JMP 

LI 
ST 

LD 

BOC 

LI 

JMP 

SKAZ 

JMP 

SHR 

BOC 

LD 

LD 

LI 

LD 

ST 

AISZ 

AISZ 

AISZ 

JMP 

LI 

JMP 

SHR 

BOC 

LD 



TRANSMISSION ERROR 



0,1 
.+2 

0,0 
0,FSTCD 

O.FSTCO 

NZRO, FIRST 

3,CRADDR 

.+5 

0,HCO 

INERR 

0,2 

B I Tli WTLOOP 

3,$BBUF 

2,BBUF2 

1,80 

0,(2) 

0,(3) 

2,1 

3,1 

1,-1 

$1 

3,CRADDR 

.+1 

0,1 

BITlfONLN 

0,FSTCD 



5 BRANCH IF BUSY 
; MOVE DATA 



BRANCH IF ONLINE 

CARD READER IS OFFLINE 



IMPASP8K 



334 
335 
336 
337 
338 
s 39 
340 
341 
342 
343 
344- 
345 
346 

34 7 
348 
349 

35 
351 
35 2 
35? 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 



03EA 

03 FB 

03 EC 

03EO 

03EE 

03 EE 

03EF 

03F0 

03 Fl 

03F2 

03F3 

03 F4 

C3F5 

03F5 

03F6 

03F7 

03 F8 

03F9 

03F9 

03 F9 

03F9 

03 F9 

03F9 

03F9 

03 F9 

03F9 

03FA 

03 C B 

03F8 

03 FC 
03FD 
03FE 
0?F C 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
040A 

04 OB 
040C 
040D 
040E 
040F 
0410 



1503 A 
4C01 A 
A10A A 
0200 A 



8107 
3281 
2D04 
21DD 
8104 
150E 
0200 



ONLN: 



7FD3 A ROCRDP: 
033E A BBUF2: 
0001 A FSTCD: 
OOCO A HCO: 



0004 
0005 
0001 
0002 
OOOC 
0010 
0048 A 
02D6 A 
02DF A 



2DFD 

2907 

8C12 

8300 

890F 

F200 

210* 

4A0! 

E90A 

2!FB 

8907 

D908 

4A20 

ABOO 

4B01 

EC13 

21F2 

25ED 

03AD 

03CE 

038E 



BIT1 

NZRO 

STATUS 

STNDRD 

POA 

CRAODR 

HSPAD 

ASAVE1 : 

ARET1: 

» 

ROCRD: 



SGETCOL 
$CMPRE: 



$ FOUND: 



BOC 
LI 
ST 
PTS 

LD 

RCPY 

JSR 

JMP 

LD 

BOC 

PTS 

• WORD 

• WORC 

• WORD 

• WORD 



PNTQM: 
$EASCI : 
SBASCI: 



• WORD 
.WORD 

JSR 
JSR 
LD 
:LD 
LD 

SKNE 
JMP 
AISZ 
SKG 
JMP 
LD 
SUB 
AISZ 
ST 

AISZ 
SKG 
JMP 
JMP 
.WORD 
.WORD 
• WORD 
.ENDIF 



NZRO, ONLN 

0,1 

0, FSTCD 



0,BBUF2 

0,2 

dRDCRDP 

INERR 

0, FSTCD 

NZR0,FIRS2 



07F03 
$BUF2 
1 
X'CO 

4 

5 

1 

2 

12 

2*8 

9*8 

SAVE 

RET 

3ASAVE1 

ROCARD 

R3,$BBUF 

R0,0(R3) 

R2,$BASCI 

R0,0(R2 > 

$F9UND 

R2,l 

R2,$EASCI 

$CMPRE 

R2, PNTQM 

R2,$BASCI 

R2,X'20 

R2,0(R3) 

R3,l 

R3,$EBUF 

SGETCOL 

a/ARETl 

$QM 

SASCTBL+64 

$ASCTBL 



; BRANCH IF FIRST CARD 



384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
39 8 
399 



0410 
0410 
0410 
0410 
0410 
0410 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0*17 
0418 
0419 



.PAGE »16L INITIALIZATION ROUTINE" 



8117 
A1C5 
A1D3 
8115 
A1D2 
8114 
A1D8 
8113 
A1D7 
8112 



16L 



LINIT: 



!ITIAL 


IZATION ROUTINE 


.IF 


SIZES 


LD 


CWAIT 


ST 


CWTLOOP 


ST 


0,FIRST+1 


LD 


CFIRTS2 


ST 


C,PIRST+2 


LD 


CLONLN 


ST 


0,ONLN+1 


LD 


CLONLN+l 


ST 


0,CNLN+2 


LO 


OtLONLN+2 



IMPASP8K 



400 

401 

402 

403 

404 

405 

406 

40 7 

408 

409 

410 

Ml 

M2 

413 

£14 

415 

416 

417 

418 

419 

^2 

421 

422 

423 

424 

42 5 

42 6 

427 

42 8 
42<? 
430 
431 
432 

43 3 
434 
435 



436 



041A 

04TB 

0413 

04 IB 

041C 

04 ID 

041E 

041F 

04 IF 

042 

0421 

0422 

0423 

0423 

0424 

042 5 

0426 

0427 

04 28 

0428 

0428 

0429 

042A 

042 B 

042C 

042D 

0420 

042D 

042E 

042F 

042F 

0430 

0431 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 



A106 A 



8111 
BU6 
8110 
B115 

810F 
B114 
810E 
B113 

8100 

B112 

81 0C 

Bill 
no nn 

WC WW 



0401 
5CFF 
0602 
1C01 
21FD 



3181 
0A80 

^F00 
2102 

4F01 

AD3C 
028F 
0290 
02A4 
02 A5 
02A7 
02A8 



A WAIT: 
A FIRTS2 
A L0NLN: 
A 
A 



A LPCC: 

A 

A LEC0C: 
A 

A LGETC: 

A 

A LLl: 

A 

A 

A 

A 



ST 
.ENDIF 

LD 
ST 
LD 
ST 

LD 
ST 
LD 
ST 

LD 
ST 
LD 
ST 
RTS 

.IF 

RIN 

SHR 

ROUT 

BOC 

JMP 

oENDIF 

RCPY 
PFLG 

LI 
JMP 

LI 
ST 
• WORD 



• IF 



OtONLN+3 



R0,LPCC 
ROfdlLLL 
R0,LPCC+1 
P0,3LLL+1 

ROtLECOC 
R0,3LLL+2 
R0,LECOC+l 
R0,3LLL+3 

RO, LGETC 
R0,5)LLL + 4 
R0,LGETC+! 
R0t3LLL+5 



SIZE8 

STATUS 

0,1 

STNDRD 

P0A,.+2 

.-2 



R0,R1 
2 

R3,0 

, ., -mm 

• * *} 

R3,i 

R3,.+X'3D 

LPC,LPC+l,LECO,LEC0+l,LGET,LGET+l 



SIZE8 



437 0^39 

438 0439 

439 0439 2D65 A 
^40 043A 4F48 A 

441 043B 0607 A 

442 043C 1C01 A 

443 043D 21 FD A 

444 043E 0401 A 

445 043F 1401 A 

446 0440 21 FD A 

447 0441 255C A 



z^8 0442 

449 0442 

450 0442 
^51 0^42 
452 0442 
45 3 0^42 
4*54 0442 

455 94<t2 

456 046-2 



2D5C 
801E 
457 0444 6111 



HSPRT: 



WDSKOB: 



,PAGE 'HIGH SPEED PRINTER OUTPUT ROUTINE'. 



OUTPUT ASCII CHARACTER 



JSR 


SASAVE 


LI 


3,HSPAD 


ROUT 


7 


BOC 


POA,.+2 


JMP 


.-2 


RIN 


STATUS 


BOC 


BITl,o+2 


JMP 


.-2 


JMP 


3ARET 


.PAGE 


•DISK I/O' 


.LOCAL 





WRITE DISK OBJECT RECORD 

(Rl)= ADDRESS CF BUFFER CONTAINING OBJECT RECORD 



JSR 

LD 

AND 



3ASAVE 

RO,DSKOBJ 
R0,$4000 



IMPASP8K 



458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

49 2 

493 

494 

49 5 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 



0445 
0446 
0447 
0448 
0449 
044A 

044 B 
044C 
0440 
044E 
04 4F 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0^57 
0457 
0457 
0457 
0458 
0459 
045A 

045 B 
04 5C 
045D 
04 5D 
045D 
045D 
045D 
045E 
045F 
0460 
0461 
0462 
0463 
0464 
0465 
0466 

046 7 
0*68 
C469 

046 A 
046B 
046C 
046D 
046E 
046 F 
0470 
0471 
0472 
0472 
0472 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
047A 

047 B 
04 7C 
047D 



1506 
801 E 
A11B 
69CD 
A01E 
8119 
A178 
3781 
8700 
657C 
4902 
8300 
2905 
4B01 
49FF 
21FB 
2548 
4000 



896C 
A2 00 
796A 
F96D 
2101 
0200 



$100: 



$101: 



$4000: 



$STOB: 



4100 A 

4300 A 

4CFA A 

A174 A 

2D3E A 

0007 A 

0464 A 

0580 A 

0466 

0467 

3081 

81FC 

2964 

21F6 

79F7 

81F7 

A156 

4700 

4500 

81F2 

0200 



2D2C 
8020 
3181 
6154 
1508 
A56B 
6D51 
A420 
4C00 
A15C 
A15E 
8148 



CLOSEOi 



$202: 

DOBS: 

ADOBBF: 

$201: 



WDSKTM: 



BOC 


NZ,$100 


LD 


RO,DSKOBJ 


ST 


RO,DOBS 


OR 


R0»$4000 


ST 


RO,DSKOBJ 


LD 


RO, ADOBBF 


ST 


R0,DOBW 


RCPY 


R1,R3 


LD 


Ri,0(R3) 


AND 


R1,XFF 


AISZ 


Rl,2 


LD 


R0,0(R3) 


JSR 


$STOB 


AISZ 


R3,l 


AISZ 


Rl,-1 


JMP 


$101 


JMP 


3ARET 


.WORD 


04000 



; STORE OBJECT WORD 



STORE OBJECT WORD (FROM RO) 
(SAVE R1,R3) 



LD 

ST 

ISZ 

SKNE 

JMP 

RTS 



R2,D0BW 
R0,0<R2) 
DOBW 

R2,D0BMX 
• + 2 



WRITE OR CLOSE DECK OBJECT FILE 



PUSH 

PUSH 

LI 

ST 

JSR 

• WORD 

.=. + 1 

.WORD 

.=.+1 

. = . +1 

NOP 

LD 

JSP. 

JMP 

ISZ 

LD 

ST 

PULL 

PULL 

LD 

RTS 



Rl 
R3 

R0,-6 
R0,$CNT 
3ADSKI0 
7 

DOBUF 



R0t$201 
$ERCK 
$202 

DOBS 

RO, ADOBBF 

RO,DOBW 
R3 
Rl 
R0,DOBS 



WRITE DISK TEMPORARY (FROM INBUF) 



JSR 

LD 

RCPY 

AND 

BOC 

ST 

OR 

ST 

LI 

ST 

ST 

LD 



3ASAVE 

RO,DSKTMP 

R0,R1 

RO t X4000 

NZ,$50 

Rl.DTMS 

RltX4000 

R1,DSKTMP 

R0,0 

ROtLNUM 

R0,INHALF 

RQtADINB 



10 



IMPASP8K 



526 

527 
528 
529 
530 
531 
5 32 

53 3 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 

54 8 
549 
550 
551 
55? 
553 
554 
555 
556 
557 
558 

56 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
59 2 
593 



C47E 

04 7F 

0480 

04 81 

0482 

0483 

0484 

0485 

0486 

0487 

0*88 

0489 

04 8A 

0*8 B 

04 8C 

048D 

048 E 

04 8F 

0490 

0491 

C492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

049A 

049A 

04 9B 

049C 

049D 

049D 

049 E 

049F 

04 A0 

04 Al 

C4A1 

04A1 

C4AI 

C4A2 

04 A3 

04A4 

04 A 5 

04 A6 

04A7 

04A8 

04A9 

0*AA 

04 A B 

04AC 

04AD 

04AE 

04AE 

04AE 

04AE 

04AF 

04B0 

04 Bl 

04B2 

04B3 

04B4 

04B5 

04 B6 

04B7 

04B8 

04 B9 



A143 

7958 

8^57 

291F 

8C12 

4C00 

8700 

F547 

210C 

1103 

C14D 

2924 

21F8 

3481 

F110 

210C 

291F 

FC13 

2109 

4B01 

21F0 

4801 

FC13 

2102 

4B01 

21EC 

C13D 

2914 



$50; 



$53: 
$54: 



$52: 



$51 



$55: 



4D0D A $60: 
2905 A 
2501 A 

GOOD A $CR: 
02DF A ARFT: 
02D6 A A SAVE: 
054C A ADSKIO: 



8920 

8138 

1305 

A600 

F91B 

2105 A 

791A A 

0200 

4C00 

2903 

21F5 

2930 

0200 



$STK2: 



4000 
8912 
812A 
1305 
4400 
5C08 
A200 
7925 
0200 
4400 
C200 
A200 



$70: 



$71: 



$STR1 



ST 

ISZ 

LD 

JSR 

LD 

LI 

LD 

SKNE 

JMP 

BOC 

ADD 

JSR 

JMP 

RCPY 

SKNE 

JMP 

JSR 

SKNE 

JMP 

AISZ 

JMP 

AISZ 

SKNE 

JMP 

AISZ 

JMP 

ADD 

JSR 

FINISHED 

LI 

JSR 

JMP 



RO,DTMW 

LNUM 
RltLNUM 

$STR2 

R3,INBUFB 
R0,0 

Rl ,0(R3) 

Rl, BLANK 

$51 

Z,$52 
R0,HEX80 

$STR1 

$53 

R1,R0 

RO,$CR 

$60 

$STR1 

R3 • INBUFE 

$60 

R3,l 

$53 

ROtl 

R3, INBUFE 

$55 

R3,l 

$54 
R0,HEX80 

$STR1 

R1,0D 
$STR2 
3ARET 



; NUM OF BLANKS 



; ANOTHER BLANK 

; NO PRECEDING BLANKS 



; FINISHED 



•WORD OD 

•WORD RET 

•WORD SAVE 

.WORD DSCIO 

STORE 2 CHAR FROM Rl (SAVE R3 I 



LD 


R2,DTMW 


LD 


ROtlNHALF 


BOC 


ODD, $70 


ST 


Rl t0(R2) 


SKNE 


R2,DINMX 


JMP 


$71 


ISZ 


DTMW 


RTS 




LI 


ROtO 


JSR 


$STR1 


JMP 


$STR2 


JSR 


$WRIT 


RTS 





STORE 1 CHAR FROM RO (SAVE R1,R3) 



$8C: 



PUSH 

LD 

LD 

BOC 

PULL 

SHL 

ST 

ISZ 

RTS 

PULL 

ADD 

ST 



RO 

R2,DTMW 

ROtlNHALF 

ODD, $80 

RO 

R0,8 

R0,0(R2) 

INHALF 

RO 

R0,0(R2) 

R0,0(R2) 



11 



IMPASP8K 



594 04BA 


F906 


A 




SKNE 


R2 t DINMX 




595 04BB 


2103 


A 




JMP 


$81 




596 04BC 


7905 


A 




ISZ 


DTMW 




597 04BD 


791D 


A 




ISZ 


INHALF 




598 04BE 


0200 


A 




RTS 






599 04BF 


291D 


A 


$81: 


JSR 


$WRIT 




600 04C0 


0200 


A 




RTS 






601 04C1 


067F 


A 


DINMX: 


• WORD 


DINB+127 




602 04C2 


04C3 


A 


DTMW: 


.=.+1 






603 C4C3 


04C4 


A 


DINW: 


• = • + 1 






604 04C4 


04C5 


A 


DOBW: 


. = . + 1 






605 04C5 


001 F 


A 


ADSKIN: 


.WORC 


DSKIN 




606 C4C6 


0600 


A 


ADINB: 


• WORD 


DINB 




607 04C7 


067F 


A 


DINWMX: 


• WORD 


DINB+127 




608 04C8 


05FF 


A 


DOBMX: 


• WORD 


DOBUF+127 




609 04C9 


OOOD 


A 


XOD: 


.WORD 


OD 




610 04CA 


4000 


A 


X4000: 


.WORD 


04000 




611 04CB 


OOFF 


A 


XFF: 


• WORD 


OFF 




612 04CC 


007F 


A 


X7F: 


• WORD 


07F 




613 04CD 


0020 


A 


BLANK: 


• WORD 


020 




614 04CE 






• 








615 04CE 


8908 


A 


$ERCK: 


LD 


R2 T K4 




616 04CF 


3382 


A 




RXOR 


R2.R0 




617 04D0 


1501 


A 




BOC 


NZ,.+2 




618 04D1 


0201 


A 




RTS 


1 




619 0^D2 


7902 


A 




ISZ 


$CNT 




620 0403 


0200 


A 




RTS 






621 04D4 


242? 


A 




JMP 


30SKERR 




622 04D5 


0000 


A 


$CNT: 


• WORD 







623 0406 


0080 


A 


HEX80: 


• WORD 


080 




624 04D7 


0004 


A 


K4: 


• WORD 


4 




62 5 04D8 


0409 


A 


LNUM: 


.=. + 1 






626 04D9 


04DA 


A 


BUFPTR: 


.= . + 1 






627 04DA 


040B 


A 


IBLKCT: 


.=.+1 






628 040B 


04DC 


A 


INHALF: 


.=. + 1 




;EVEN=LEFT,ODD=RI 


629 04DC 


0020 


A 


AOSKTM: 


• WORD 


DSKTMP 




630 040D 














631 04DD 








WRITE 


TEMP BUFFER TO 


DISK (SAVE R1,R3I 


632 O^DD 














633 04DD 






$KRIT: 








634 0*DD 






» 


CLOSE 


TEMP FILE 




635 04D0 






CLOSET: 








636 04D0 


4100 


A 




PUSH 


Rl 




637 04DE 


4300 


A 




PUSH 


R3 




638 040F 


4CFA 


A 




LI 


R0,-6 




639 04E0 


A1F4 


A 




ST 


ROt$CNT 




640 04E1 


2DBE 


A 


$W2: 


JSR 


3ADSKI0 




641 04E2 


0007 


A 




• WORD 


7 


; WRITE 


642 04E3 


04E4 


A 


DTMS: 


• = 0+1 




; LOGICAL SECTOR 


643 04E4 


0600 


A 




.WORD 


OINB 


*, BUFFER 


644 04E5 


04E6 


A 


$W1 : 


.=. + 1 




; STATUS 


645 04E6 


04E7 


A 




• =• + 1 




; PHYSICAL SECTOR 


646 04E7 


3081 


A 




NOP 




; ERROR RETURN 


647 04E8 


81FC 


A 




LD 


R0»$W1 




648 04 E9 


29E4 


A 




JSR 


$ERCK 




649 04EA 


21 F6 


A 




JMP 


$W2 




650 04EB 


79F7 


A 




ISZ 


DTMS 




651 04EC 


4C00 


A 




LI 


R0,0 




652 04ED 


A1E0 


A 




ST 


ROt INHALF 




653 04EE 


81D7 


a 




LD 


ROtADINB 




654 04EF 


A1D2 


A 




ST 


R0,DTMW 




655 04F0 


4700 


A 




PULL 


R3 




656 04F1 


4500 


A 




PULL 


Rl 




657 04F2 


81F0 


A 




LD 


ROtDTMS 




658 04F3 


0200 


A 




RTS 






659 04F4 














660 04F4 








READ DISK TEMPORARY 


INTO INBUF) 


661 04F4 
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662 04F4 


20AA 


A 


RDSKTM: 


JSR 


3ASAVE 


663 04F5 


80E6 


A 




LD 


R3»ADSKTM 


664 04F6 


2102 


A 




JMP 


RDSK 


665 04F7 












666 04F7 








READ 


DISK INPUT (INTO INBUF) 


667 04^7 












668 04 F7 


2DA7 


A 


RDSKIN: 


JSR 


3ASAVE 


669 04F8 


8DCC 


A 




LD 


R3»ADSKIN 


670 04F9 


8300 


A 


RDSK: 


LD 


R0,0(R3) 


671 04FA 


3181 


A 




RCPY 


ROtRI 


672 04FB 


61CE 


A 




AND 


R0,X4OOO 


673 04FC 


1506 


A 




BOC 


NZ,$1 


674 04FD 






t 


INITIALIZE 


675 04FD 


A52F 


A 




ST 


RltDINS 


676 04FE 


6DCB 


A 




OR 


R1,X4000 


677 04FF 


A700 


A 




ST 


R1,0(R3I 


678 0500 


4C00 


A 




LI 


R0,0 




H1V/JL 


A 




CT 


R0,DINW 


«* 




O 1 


680 0502 


A1D7 


A 




ST 


RO,IBLKCT 


681 0503 






y 


READ 


FROM DINS, DINW 


682 0503 


8012 


A 


$i: 


LD 


RO, INBUFB 


683 0504 


A1D4 


A 




ST 


RO,BUFPTR 


684 0505 


79BD 


A 




ISZ 


DINW 


68* 0506 






» 


LOOP 




686 0506 


290B 


A 


$3: 


JSP 


$GIOC 


687 0507 


B1D1 


A 




ST 


R0,3BUFPTR 


688 0508 


79D0 


A 




ISZ 


BUFPTR 


689 0509 


D1BF 


A 




SUB 


RO,XOD 


690 050A 


1106 


A 




BOC 


Z,$3A ; FINISHED 


691 050B 


81CD 


A 




LD 


RO, BUFPTR 


692 050C 


E013 


A 




SK3 


RO,INBUFE 


693 050D 


21F8 


A 




JMP 


$3 ; NEXT 


694 050E 






» 


SKIP 


EXCESS CHARACTERS UNTIL CR 


695 050E 


2903 


A 




JSR 


$3 IOC 


696 050F 


D1B9 


A 




SUB 


RO,XOD 


697 0510 


15FD 


A 




BOC 


NZ,.-2 


698 0511 


258C 


A 


$3A: 


JMP 


3ARET 


69° 0512 












700 0512 








GET NEXT I/O CHAR (INTO RO ) (FROM D 


701 0512 












702 0512 


81C7 


A 


$GI0C: 


LD 


RO,IBLKCT 


703 0513 


152C 


A 




BOC 


NZ,$G9 


704 0514 


81AE 


A 




LD 


RO,DINW 


705 0515 


3381 


A 




RCPY 


R0,R3 


706 0516 


5CFF 


A 




SHR 


RO.l 


707 0517 


1100 


A 




BOC 


Z,$G1 ; READ DISK 


708 0518 


8700 


A 




LD 


R1,0(R3) 


709 0519 


81C1 


A 




LD 


RO,INHALF 


710 05! A 


79C0 


A 




ISZ 


INHALF 


711 051 B 


1302 


A 




BOC 


ODD,. +3 


712 051C 


5DF8 


A 




SHR 


Rl,3 


713 0510 


2119 


A 




JMP 


$G2 


714 051 E 


79A4 


A 




ISZ 


DINW 


715 051F 


81A3 


A 




LD 


RO,DINW 


716 0520 


E1A6 


A 




SKG 


RO,DINWMX 


717 0521 


2115 


A 




JMP 


$G2 


718 0522 


4C00 


A 




LI 


R0,0 


719 0523 


A19F 


A 




ST 


RO,DINW 


720 0524 


2112 


A 




JMP 


$G2 


721 0525 






» 


READ 


SECTOR 


722 0525 


A1B5 


A 


$G1: 


ST 


RO, INHALF 


723 0526 


8107 


A 




LD 


R0,$G4 


724 0527 


C19B 


A 




ADD 


R0,DINW 


725 0528 


A19A 


A 




ST 


R0,DINW 


726 0529 


4CFA 


A 




LI 


R0,-6 


727 052A 


A1AA 


A 




ST 


R0,$CNT 


728 052B 


2D1F 


A 


$G6: 


JSR 


a$ADIO 


729 052C 


0002 


A 




•WORD 2 ; READ 
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730 052D 0000 ft 


DINS: 


.WORD 





; LOGICAL SECTOR 


731 052E 0600 A $G4: 


• WORD 


DINB 


; BUFFER 


732 052P 0000 A $G5: 


• WORD 





; STATUS 


733 0530 0000 A 


• WORD 





; PHYSICAL SECTOR 


734 0531 308! A 


NOP 




; ERROR 


735 0532 81FC A 


LD 


R0,$G5 




736 0533 299A A 


JSR 


$ERCK 




737 05?4 ?1F6 A 


JMP 


$G6 




738 0535 79F7 A 


ISZ 


DINS 




739 05'6 21DB A 


JMP 


$GIOC 




740 0537 ; 


CHECK CHAR IN Rl FOR RETURN 


741 0537 3481 A $G2: 


RCPY 


R1,R0 




742 0538 6192 A 


AND 


R0,XFF 




743 0539 11D8 A 


BOC 


Z,$GIOC 




744 053A F18E A 


SKNE 


RO,XOD 




745 053B 2108 A 


JMP 


$G10 


; CR 


746 053C E18F A 


SKG 


R0 t X7F 




747 053D 0200 A 


RTS 




; NORMAL CHAR 


748 053E ; 


N BLANKS 




749 053E 6180 A 


AND 


R0,X7F 




750 053F A19A A 


ST 


RO,IBLKCT 




751 0540 ; 


BLANKS 


LEFT 




752 0540 7D99 A $G9: 


DSZ 


IBLKCT 




753 C541 3081 A 


NOP 






754 05^2 4C20 A 


LI 


R0»020 




755 0543 0200 A 


RTS 






756 0544 ; 


CARRIAGE RETURN 




757 0544 $G10: 








758 0544 9505 A 


LD 


R1,3$ADW 




759 0545 E581 A 


SKG 


RltDINWMX 




760 0546 C200 A 


RTS 






761 0547 4000 A 


LI 


RltO 




762 0548 B501 A 


ST 


Rlt3$ADW 




763 0549 0200 A 


RTS 






764 054A 04C3 A $ADW: 


• WORD 


DINW 




76^ 054B 054C A $ADI0: 


• WORD 


DSCIO 




766 05 4C 


• PAGE 


•DISC I/O* 




767 054C 


•LOCAL 






768 054C 










769 054C 




CALLING 


SEQUENCE 




770 054C 










771 054C 




JSR 


DSCIO 




772 054C ; 




(OPERATICN CODE ) 




77 3 054C \ 




(LOGICAL SECTOR NUMBER) 




774 054C 




(MEMORY 


BUFFER ADDRESS) 




775 054C j 




(STATUS 


RETURN) 




776 054C ; 




(ACTLAL 


DISC ADDRESS REFERENCEC) 


777 05^C 




(ERRCR 


RETURN) 




778 054C J 




(NORMAL 


RETURN) 




779 05^C 0000 A R0 


3S 







780 054C 0001 A Rl 


= 


l 




781 054C 0002 A R2 


= 


2 




782 054C 0003 A R3 


= 


3 




783 054C ; 








784 054C OOOC A POA 


= 


12 




785 054C 0005 A NPARMS 


= 


5 




786 054C ; 








787 054C ; 


DISC PARAMETERS 




788 05^C 0000 A OPCODE 


= 







789 054C 0001 A SECNO 


= 


1 




790 054C 0002 A MEMAD 


= 


2 




791 054C 0003 A $STAT 


= 


3 




792 054C C004 A DSCAD 


= 


4 




793 054C ; 








794 054C ; 


RETURN 


*DDRESSES 




795 054C 0000 A ERROR 


= 







796 054C 0001 A N 


ORMAL 


= 


1 
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797 
79 8 
■?99 
800 
801 
802 
803 
80* 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
8 22 
823 
824 
82 5 
826 
827 
82 8 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
84? 
843 
84* 
845 
846 
847 
848 
849 
850 
851 
852 
8 53 
854 
855 
856 
857 
858 
859 
860 
861 
86 2 
86 3 
864 



05AC 
C54C 
054C 
054C 
054C 
054C 
054C 
054C 
05*C 
054C 
054C 
054C 
054C 
054C 
054D 
054E 
054F 
0550 
0551 
05 5 2 
0553 
0554 
05 5 5 
0556 
0557 
0557 
0557 
0557 
0558 
0559 
055A 
05 5 8 
05 5 C 
055D 
055E 
055F 
0560 
0561 
0562 
0563 
0564 
C565 
0566 
0567 
0563 
0568 
0568 
0568 
05 69 
056a 
056B 
05 6C 
056D 
056F. 
056E 
056E 
056E 
05 6F 
0570 
05 7 1 
0572 
05 73 
0574 
0575 
05^6 
0577 
0578 
0579 



0004 
0002 
0007 
0003 
0001 
0005 



0018 A 
4600 A 
4A05 A 
4200 A 
4AFB A 

g?Q2 A 

4F04 
0618 
1C03 
2919 
2 00 
21FA 



8201 

9C21 

CC21 

FC21 

2104 

E300 A 

2102 A 

ABFF 

21FA 

DC21 

3C00 

3181 

5003 

6 1 1 6 

6516 

3400 

A204 



8E00 
0618 
1C03 
2902 
0200 
21 FA 



4F01 
0418 
A203 
710B 
0200 
710A 
2103 
4F05 
0618 
0200 
7106 
21F4 



SETADR 

READ 

WRITE 

RDCHK 

ROSTAT 

RESET 



DISC 
DSCIO: 



DSO: 



DS1 



DS2: 



DS3. 



DS*: 



DISC OPERATION CODES 

4 
2 
7 
3 
I 
5 

DEVICE ADDRESS 

= 3*8 

PULL R2 

AISZ R2 T NPARMS 

PUSH R2 

AISZ R2,-NPARMS 

LD R0?MEMAD(R2) 

LI R3!SETADR 

ROUT DISC 

BOC P0A,DS1 

JSR STATSUB 

RTS ERROR 

JMP DSO 



; SET MEMORY ADDRESS 



; OBTAIN PARAMETERS LIST ADDRESS 



; PASS MEM BUFFER ADDR TO DISC 
; TEST DISC STATUS 



SCAN BAD SECTOR TABLE TO COMPUTE TRACK/SECTOR ADDRESS 



LD 


R0,SECNO(R2) 


LD 


R3»3ABST 


ADD 


R3,ABST 


SKNE 


R3,ABST 


JMP 


DS3 


SKG 


ROt <R3 1 


JMP 


DS3 


AISZ 


R3,-l 


JMP 


DS2 


SUB 


R3,ABST 


RADD 


R3,R0 


RCPY 


ROtRl 


SHL 


Rl,3 


AND 


ROtHOOIF 


AND 


RI.H1F00 


RADD 


R 1 1 RO 


ST 


R0,DSCAD(R2) 



PERFCRM REQUESTED I/O OPERATION 



LD 


R3,0PC0DE<R2> 


ROUT 


DISC 


BOC 


POA, STATSUB 


JS* 


STATSUB 


RTS 


ERROR 


JMP 


DS4 



; GET OPERATION CODE 



READ STATUS AND SAVE STATUS WORD 



STATSUB: 



STl: 



LI 

RIN 

ST 

SKAZ 

RTS 

SKAZ 

JMP 

LI 

ROUT 

RTS 

SKAZ 

JMP 



R3,RDSTAT 

DISC 

R0,$STAT(R2i 

RO,HOOCO 

ERROR 

R0,H0004 

STl 

R3,RESET 

DISC 

ERROR 

R0,H0008 

STATSUB 



; READ DISC STATUS 

; SAVE 

; TEST XMISSION ERROR OR DATA OVERRUN 

; TEST DISC ON-LINE 

; NOT ON-LINE - RESET DISC 



; TEST BUSY BIT 
; DISC STILL BUSY 
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865 


057A 


0201 


A 




RTS 


NORMAL 


866 


057B 


001F 


A 


H001F: 


• WORD 


X»1F 


e67 


057C 


1F00 


A 


H1F00: 


.WORD 


X'IFOO 


868 


05 70 


OOCO 


A 


HCOCO: 


.WORD 


X«CO 


869 


057E 


0004 


A 


H0004: 


• WORC 


4 


87 


057F 


0008 


A 


H0008: 


• WORD 


8 


871 


0580 


0600 


A 


DOBUF: 


.=.+128 




872 


0600 


0680 


A 


DINB: 


.=.+128 




873 


0680 








.END 




$ # jjr sj: £ sjt 


( 


3 i 


ERRORS I 


N ASSEMBI 


_Y ** 



; ALSO USED AS TEMP BUFFER 



$1 


$1" 


$100" 


$101" 


$11 


$201" 


$202" 


$25 


$3" 


$3A" 


03DF A 


0503 A 


044C A 


0450 A 


02CA A 


0465 A 


0461 A 


02AB A 


0506 A 


0511 A 


$4000" 


$50" 


$51" 


$52" 


$5 3" 


$54" 


$55" 


$60" 


$70" 


$71" 


0*56 A 


047 F A 


049 3 A 


048B A 


048 3 A 


048* A 


0498 A 


049A A 


04 A 9 A 


04AC A 


$80" 


$81" 


$ADI0" 


$ADW" 


$ASCT 


$BASC 


$BBUF 


$BITO 


$BUF2 


$CMPR 


04B7 A 


04BF A 


054B A 


054A A 


038E A 


040F A 


0012 A 


0OC3 A 


03 3E A 


0400 A 


$CNT» 


$COUN 


$CR" 


$DELA 


$D0NE 


$EA 


$EASC 


$EB 


$EBUF 


$EC 


04D5 A 


0265 A 


049D A 


02D1 A 


0284 A 


0009 A 


040E A 


0016 A 


0013 A 


0026 A 


$ERCK" 


$FOUN 


$G1" 


$G10" 


$G2» 


$G4" 


$G5» 


$G6" 


$G9" 


$GETC 


04CE A 


0406 A 


0525 A 


0544 A 


0537 A 


052E A 


052F A 


052B A 


0540 A 


03FE A 


$GIOC" 


$GOES 


$H700 


$L00P 


$LP1 


$LP2 


$NRGT 


$OVFL 


$P00L 


$PSIG 


0512 A 


0279 A 


028D A 


0257 A 


0296 A 


02B7 A 


OOOB A 


0288 A 


0271 A 


0002 A 


$QM 


$REG 


$S2 


$S3 


$SAV2 


$SAV3 


$SELF 


$SHFT 


$STAT# 


$ST0B" 


03 AD A 


02DB A 


0263 A 


0264 A 


028B A 


028C A 


0002 A 


027D A 


0003 A 


0457 A 


$STR1" 


$STR2" 


$TA 


$TB 


$TC 


$TTYA 


$W1" 


$W2" 


$WRIT" 


$X 


04AE A 


04A1 A 


0029 A 


0012 A 


0070 A 


0038 A 


C4E5 A 


04E1 A 


04DD A 


02CD A 


ABST 


ACO 


AC1 


AC2 


AC3 


ADINB 


ADOBBF 


ADSKIN 


ADSKIO 


ADSKTM 


0021 A 


0000 A 


0001 A 


0002 A 


0003 A 


04C6 A 


0464 A 


04C5 A 


C4A0 A 


04 DC A 


ARET 


ARET! 


A SAVE 


ASAVE1 


B1EQ1 


BBUF2 


BIT1 


BLANK 


BOTTOM 


BUFPTR 


049E A 


03FA A 


049F A 


03F9 A 


0004 A 


03F6 A 


0004 A 


04CD A 


033D A 


04 D9 A 


CLOSEO 


CLOSET 


CRADDR 


DINB 


DINMX 


DINS 


DINW 


DINWMX 


CISC 


DIVD 


045D A 


04DD A 


0010 A 


0600 A 


04C1 A 


052D A 


04C3 A 


04C7 A 


0018 A 


0266 A 


DOBMX 


DOBS 


DOBUF 


DOBW 


DONE 


DSO 


DS1 


DS2 


DS3 


DS4 


0^C8 A 


0463 A 


0580 A 


04C4 A 


029F A 


0551 A 


0557 A 


055A A 


0560 A 


0568 A 


DSCAD 


DSCIO 


DSKERR 


DSKIN 


DSKOBJ 


DSKTMP 


DTMS 


DTMW 


ECHOGC 


ERROR 


000* A 


054C A 


0022 A 


001F A 


001E A 


00 20 A 


04E3 A 


04C2 A 


02A3 A 


0000 A 


FIRS2 


FIRST 


FIRTS2 


FLAG 


FSTCD 


GETC 


H0004 


H0008 


H001F 


HOOCO 


03D2 A 


03E5 A 


042 9 A 


02E5 A 


03F7 A 


02A6 A 


057E A 


057F A 


057B A 


0570 A 


H1F00 


HCO 


HEAD 


HEX80 


HSPAD 


HSPRT 


IBLKCT 


INBUFB 


INBUFE 


INERR 


057C A 


3F8 A 


0303 A 


04D6 A 


0048 A 


0439 A 


04DA A 


0012 A 


0013 A 


03CF A 


INHALF 


K4 


LECO 


LECOC 


LGET 


LGETC 


LINIT 


LLL 


LNUM 


LONLN 


0<+DB A 


04D7 A 


02A4 A 


042F A 


02A7 A 


0^31 A 


0410 A 


0433 A 


04D8 A 


042A A 


LPC 


LPCC 


MEMAD 


MESS 


MULT 


NORMAL 


NPARMS 


NZ 


NZRO 


ODD 


028F A 


042D A 


000 2 A 


02E6 A 


0250 A 


0C01 A 


0005 A 


0005 A 


C005 A 


0003 A 



16 



IMPASP8K 



OFFLN ONLN OPCCOE P PGECO PGETC PNTQM POA PPUTC PRINT 

03E9 A C3EE A 000C A 0002 A 02CF A 0200 A 040D A OOOC A 02A2 A 001A A 

PUTC PO Rl R2 R3 RDCARD ROCHK RDCRD RDCRDP RDSK 

028E A 0000 A 0001 A 0002 A 0003 A 03D4 A 0003 A 03FB A 03F5 A 04F9 A 

RDSKIN RDSKTM RDSTAT READ RESET RET SAVE SECNO SETADR SIZE4 

04F7 A 04F4 A 0001 A 0002 A 0005 A 02DF A 02D6 A 0C01 A 0004 A FFFF A 

SIZE8 ST1 STATSU STATUS STNDRD TYPE WAIT WDSKOB WDSKTM WRITE 

0001 A 0578 A 056E A 0001 A 0002 A 02 F7 A 0428 A 0442 A 0472 A 0007 A 

WTLOOP XOD X4000 X7F X80 X8000 XFF Z 

03D7 A 04C9 A 04CA A 04CC A 0302 A 02E4 A 04CB A 0001 A 



84BA B09D 
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REVISION-G 01/02/74 
IMPASM 0000370A 6/25/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 000D 

16 000E 

17 000F 

18 001fi 

19 0011 

20 0012 

21 0013 

22 0014 

23 0015 

24 0016 

25 0017 

26 0018 

27 0019 

28 001A 

29 001B 

30 001C 

31 001D 

32 001E 

33 001F 

34 0020 

35 0021 

36 0022 

37 0023 

38 0023 

39 0023 

40 0023 

41 0023 

42 0023 

43 0023 

44 0023 

45 0023 

46 0023 

47 0023 
43 0023 

49 0023 

50 0023 

51 0023 

52 0023 

53 0023 

54 0023 



0001 
FFFF 

1FFF 
0001 

000C 
000D 
000E 
000F 
0010 
0011 
0012 
06A0 
06EF 
0015 
0016 
0017 
0018 
0019 
001A 
(301B 
001C 
001D 
001E 
FFFE 
FFFE 
FFFE 
1699 
1343 



.TITLE IMPASM8K, '0000370A 6/25/74 
**************************************** 

SIZE8=-1 IF 4K VERSION 

SIZE8=1 IF 8K VERSION 

A SIZES = 1 

A SIZE4 = -SIZE8 

.IF SIZE8 

A STTOP * 8191 

A DBGVER = 1 



.BSECT 



a PNCHMD = 
B 

B MULT: 
B DIVD: 
B GETC: 
B PUTC: 
B RDCRD: 
A INBUFB 
A INBUFE 
B ECHOGC 
B LINIT: 
B WDSKTM 
B WDSKOB 
B RDSKIN 
B RDSKTM 
B HSPRT: 
B MESS: 
B CLOSET 
B CLOSEO 
A DSKOBJ 
A DSKIN: 
A DSKTMP 
A ABST: 
A 

***** 



ac. 



DEBUG ALSO USES THIS LOCATION 



= .+0D 
= . + 1 
= . + 1 
= . + 1 
= . + 1 
= . + 1 
WORD 
WORD 
= . + 1 
= . + 1 
= .+1 
= .+1 
= . + 1 
= . + 1 
= . + 1 
= . + 1 
«. + l 
= . + 1 
WORD 
WORD 
WORD 
WORD 
WORD 



INBUF 
INBUF+79 



-2 

-2 

-2 

BADSTB 

DSKERR 



BAD SECTOR TABLE 



*********************************** 



BOC ASSIGNMENTS 



0001 
0002 
0003 

0004 

0005 
000B 

0000 
0001 
0002 
0003 
8000 
0008 



Z=l 

P=2 

ODD=3 

B1EQ1=4 

NZ=5 

LEZ=11 

R0=0 

Rl = l 

R2=2 

R3=3 

S=08000 

ELIM=8 



; NUMBER OF ERRORS LIMIT FOR EACH STATEMENT 



55 0023 

56 0023 0000 A ZERO: 

57 0024 00FF A K255: 



.PAGE 'CONSTANTS 
.WORD 
.WORD 255 



IMPASP8K 



58 


0025 


000B 


A 


Kll: 


.WORD 


11 


59 


0026 


0001 


A 


Kl: 


.WORD 


1 


60 


0027 


0003 


A 


K3: 


.WORD 


3 


61 


0028 


0006 


A 


K6: 


.WORD 


6 


62 


0029 


0008 


A 


K8: 


.WORD 


8 


63 


002A 


0007 


A 


K7: 


.WORD 


7 


64 


002B 


0009 


A 


K9: 


.WORD 


9 


65 


002C 


0004 


A 


K4: 


.WORD 


4 


66 


002D 


000F 


A 


K15: 


.WORD 


15 


67 


002E 


FFF0 


A 


XFFF0: 


.WORD 


0FFF0 


68 


002F 


FFF7 


A 


XFFF7: 


.WORD 


0FFF7 


69 


0030 


8000 


A 


X8000: 


.WORD 


08000 


70 


0031 


6666 


A 


X6666: 


.WORD 


06666 


71 


0032 


0040 


A 


HEX40: 


.WORD 


040 


72 


0033 


005A 


A 


HEX5A: 


.WORD 


05A 


73 


0034 


0020 


A 


HEX20: 


.WORD 


020 


74 


0035 


002F 


A 


HEX2F: 


.WORD 


02F 


75 


0036 


0039 


A 


HEX39: 


.WORD 


039 


76 


0037 


0046 


A 


HEX46: 


.WORD 


046 


77 


0038 


0030 


A 


HEX30: 


.WORD 


030 


78 


0039 


0037 


A 


HEX37: 


.WORD 


037 


79 


003A 


007F 


A 


HEX7F: 


.WORD 


07F 


80 


003B 


003F 


A 


HEX3F: 


.WORD 


03F 


81 


003C 


002A 


A 


HEX2A: 


.WORD 


02A 


82 


003D 


0400 


A 


HEX400: 


.WORD 


0400 


83 


003E 


1000 


A 


X1000: 


.WORD 


01000 


84 


003F 


0100 


A 


K256: 


.WORD 


256 


85 


0040 


0002 


A 


K2: 


.WORD 


2 


86 


0041 


0010 


A 


K16: 


.WORD 


16 


87 


0042 


FF00 


A 


XFF00: 


.WORD 


0FF00 


88 


0043 


0029 


A 


RPAREN: 


.WORD 


') 7256 


89 


0044 


0058 


A 


CHARX: 


.WORD 


'x'/256 


90 


0045 


0027 


A 


QUOTE : 


.WORD 


""/256 


91 


0046 


0028 


A 


LPAREN: 


.WORD 


'( 7256 


92 


0047 


000D 


A 


CR: 


.WORD 


0D 


93 


0048 


2020 


A 


BLANKS: 


.WORD 


' ' 


94 


0049 


003B 


A 


SEMI: 


.WORD 


V/256 


95 


004A 


002E 


A 


DOT: 


.WORD 


'.7256 


96 


004B 


003A 


A 


COLAN : 


.WORD 


':7256 


97 


004C 


003D 


A 


EQUAL : 


.WORD 


'=7256 


98 


004D 


5C00 


A 


SHLIN: 


SHL 


R0 r 


99 


004E 


0024 


A 


DOLLAR: 


.WORD 


'$7256 


100 


004F 


002C 


A 


COMMA : 


.WORD 


',7256 


101 


0050 


002B 


A 


CPLUS: 


.WORD 


'+7256 


102 


0051 


002D 


A 


CMINUS: 


.WORD 


'-7256 


103 


0052 


0025 


A 


CNOT: 


.WORD 


'%'/256 


104 


0053 


0026 


A 


CAND: 


.WORD 


'&'/256 


105 


0054 


0021 


A 


COR: 


.WORD 


'! '/256 


106 


0055 


13E8 


A 


ERRBAS : 


.WORD 


ERBUF 


107 


0056 






i 






108 


0056 


0034 


B 


BLANK 


= 


HEX 20 


109 


0056 


0038 


B 


CZERO 


= 


HEX30 ; 


110 


0056 


0032 


B 


CAT 


= 


HEX40 ; 


111 


0056 


003C 


B 


CMPY 


= 


HEX2A ; 


112 


0056 


0035 


B 


CDIV 


= 


HEX2F ; 



' 7256 
'07256 
'§7256 
'*'/256 
77256 



113 0056 

114 0056 ; 

115 3056 0000 A ACTR: 

116 0057 0000 A BCTR: 

117 0058 0000 A TCTR: 

118 0059 005A B AMAX: 



.PAGE 'VARIABLES' 

ACTR, BCTR, TCTR, MUST BE IN THAT SEQUENCE 
.WORD ;ASECT LOC CTR 

.WORD ;BSECT LOC CTR 

.WORD ;TSECT LOC CTR 

. = . + 1 



IMPASM8K 



119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 

1 CT 
x -» / 

158 



161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
1R1 



005A 
005B 
005C 
005D 
005E 
005F 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
006C 
006D 
006E 
006F 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
007A 
007B 
007C 
007D 
007E 
007F 
0080 
0081 



005B 
005C 
0000 
0000 
06A0 
0060 
0000 
0000 
0000 
16C1 
1FFF 
1FFF 
16C1 
1FFF 
1FFF 
006A 
006B 
0003 
0000 
070E 
070E 
0000 
0001 
003C 
0000 
0000 
0000 
0076 
0077 
0078 
0079 
007A 
0000 
007C 
007D 
0000 
0000 
0000 
0000 
0000 



159 0082 0083 



B BMAX: 
B TMAX: 
A LOCCTR: 
A PASS: 
A INPTR: 
B LCPTR: 
A BASE: 
TOP: 
NEXT: 
BASEA: 
TO PA: 
NEXTA: 
BASEB: 
TOPB: 
NEXTB: 
B XINOK: 
B MOFLAG; 
A SECT: 
LOCREG : 
IFPTR: 
IFPTRA! 
IFSTAT: 
IFMODE; 
PGRL: 
IVAL: 
ICLASS: 
FORMPT: 
FORMB: 
B FORMT: 
B FORMM: 
B FORMBN: 
B FORMTN; 
A EXPVAL: 
B EXPPD: 
B EXPREL: 
NAM0: 
NAMl: 
NAM2: 

CNAM1 : 
STVAL: 



n n ft A rt nmr>i\BTl . 

"ooot o oirucr ; 



0084 
0085 
0036 
0087 
0038 
0089 
008A 
008B 
008C 
008D 
008E 
008F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 



0085 
0086 
0087 
0088 
0089 
0001 
00 8 B 
008C 
008D 
003E 
008F 
0001 
0091 
0001 
0093 
0094 
FFFE 
FFFE 
0000 
0000 



B STREL: 
B STPT: 
B ITVAL: 
B ITREL: 
B EC: 
A INDEV: 
B LBLPT: 
B ERRPT: 
B LCNT1: 
B LCNT2: 
B LISTMDi 
A ERRLSTs 
B OBJMOD: 
A NOLI ST: 
B NOCOM: 
B NOMAP: 
A IDSKIN: 
A IDSKTMi 
A HSPR: 
A TYPMOD: 



. = . + 1 

.= . + 1 

.WORD 

.WORD 

.WORD 

.». + l 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

. = . + 1 

. = . + 1 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

. = . + 1 

. = .+1 

. = . + 1 

. = . + 1 

. = .+1 

.WORD 

. = . + 1 

. = .+1 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

. = . + 1 
_ • i 

.— .TJL 
. = .+1 
.= .+1 
. = .+1 
.= .+1 
.= .+1 

.WORD 
. = .+1 
. = . + 1 
. = . + 1 
. = . + 1 
. = . + 1 
.WORD 
. = . + 1 
.WORD 
. = .+1 
. = . + 1 
.WORD 
.WORD 
.WORD 
.WORD 
.IF 



; CURRENT LOC CTR 

;PASS1 =0 , PASS2 =NON ZERO 

INBUF ; POINTS TO NEXT INPUT CHAR. 

;LAST ACTIVE CHAR PTR (USED BY ERROR) 







STBAS 

STTOP 

STTOP 

STBAS 

STTOP 

STTOP 

; EXTENDED INSTRUCTIONS OK? 0=NO 
^MULTIPLE OUTPUT FLAG 0=1ST 1=SUBSEQ. 

3 ; SECTION 1=ASECT 2=BSECT 3=TSECT 

; LOCAL REGION NUMBER (0 TO 255) 

INITIALIZATION FOR IFPTR 

=ENDIF LAST 2=IF LAST 4=ELSE LAST 

0=SKIP l=NO SKIP 

NUM OF LINES REMAINING ON PAGE 

INSTR. VALUE FROM DI TABLE 

INSTR CLASS DI TABLE 

SYMBOL TABLE FORM PTR 

FORM BEGIN FIELD BITS 

FORM TERMINAL FIELD BITS 

FORM FIELD MASK 

FORM BEGINNING BIT NUMBER 

FORM TERMINAL BIT NUM. 

VALUE FROM EXP. ROUTINES 

EXP PREVIOUS DEF FLAG 

EXP RELOCATION CODE 






IFTAB-1 

IFTAB-1 

;IFSTATUS 

1 

60 









; '; '=NO COMMENT 

; NO MAP FLAG 0= 

-2 

-2 





DBGVER 



SYMBOL TALBE VALUE 



e?v\A-nr\T 



Br\r 
\JLt 



m»r>T r< nnuti t\ootvit m r r\*.t cr nr> 



SYMBOL TABLE RELOCATION FLAG 
SYMBOL TABLE PRT. 
ITEM VALUE 
ITEM RELOCATION 
ERROR COUNT 

INPUT DEVICE 0=CR 1=KB 2=PT 
LABEL PRT, USED BY ASSIGN DIRECTIVE 
POINTS TO NEXT ERROR ENTRY 
DEC LINE CNT FOR PRINTING1 ('0'/256) 
DEC LINE CNT FOR PRINTING2 (06666=0) 
VALUE FROM LAST LIST DIRECTIVE 
ERROR LISTING REQUESTED l=NO 0=YES 
0=NO OBJECT MODULE NZ=OBJ MOD 
0=NO LISTING 
PRINTING 
NONE 

-2=NO, OTHER=INITIAL LOGICAL SECTION 

-2=NO, OTHER=INITIAL LOGICAL SECTION 

l=NO, 0=HIGH SPEED PRINTER 

0=PRINT r NZ=TYPE OR PUNCH 



IMPASM8K 



182 0098 0000 A ERDEB: .WORD 

183 0099 0000 A MAPDEB: .WORD 

184 009A .ENDIF 



;l=ERROR DEBUG MODE 
;1=MAP DEBUG MODE 



185 


009A 






186 


009A 






187 


009A 






188 


009A 






189 


0000 


06A0 


A 


190 


06A0 


06F0 


A 


191 


06F0 


070E 


A 


192 


070E 


070F 


A 


193 


070F 


0719 


A 


194 


0719 


072B 


A 


195 


072B 


0000 


A 


196 


072C 






197 


072C 






198 


072C 






199 


072C 






200 


072C 






201 


072C 


8D3B 


A 


202 


072D 


0418 


A 


203 


072E 


4801 


A 


204 


072F 


2C15 


B 


205 


0730 






206 


0730 






207 


0730 


4CD8 


A 


208 


0731 


8937 


A 


209 


0732 


8C21 


B 


210 


0733 


8600 


A 


211 


0734 


A700 


A 


212 


0735 


4A01 


A 


213 


0736 


4B01 


A 


214 


0737 


4801 


A 


215 


0738 


21FA 


A 


216 


0739 






217 


0739 






218 


0739 


4C01 


A 


219 


073A 


A089 


B 


220 


073B 


A096 


B 


221 


073C 


A097 


B 


222 


073D 


4C00 


A 


223 


073E 


A00C 


A 


224 


073F 


A05D 


B 


225 


0740 


9C9A 


I 


226 


0741 


2C9B 


I 


227 


0742 






228 


0742 


2C9C 


I 


229 


0743 


21E8 


A 


230 


0744 


290E 


A 


231 


0745 


210A 


A 


232 


0746 


1101 


A 


233 


0747 


A063 


B 


234 


0748 


A464 


B 


235 


0749 


A467 


B 


236 


074A 


2C9D 


I 


237 


074B 


2104 


A 


238 


074C 


2906 


A 


239 


074D 


2102 


A 


240 


074E 


A06 6 


B 


241 


074F 


A467 


B 


242 


0750 







.PAGE INITIALIZATION AND START' 
. LOCAL 
j************************************* 

.ASECT 
.=06A0 

INBUF: .=.+80 
PGSTRG: .=.+30 ;PAGE STRING BUFFER 

. = .+1 
IFTAB: .=.+10 ;IF TABLE 

TTLBUF: .=.+18 

.WORD 

.ENDIF 



START : 



NEW1 



IMP 16/L TEST 



LD 

RIN 

AISZ 

JSR 

.IF 



R3 f HEX760 

018 

R0,1 

@LINIT 

SIZE8 



MOVE BAD SECTOR TABLE 



LI 

LD 

LD 

LD 

ST 

AISZ 

AISZ 

AISZ 

JMP 

.ENDIF 



R0,-40 

R2,LABST 

R3,ABST 

R1,0(R2) 

R1,0(R3) 

R2,l 

R3,l 

R0,1 

NEW1 



$2: 



LI R0,1 

ST R0,INDEV 

ST R0,HSPR 

ST R0 r TYPMOD 

LI R0,0 

ST R0,PNCHMD 

ST R0,PASS 

LD R3,MSGBEG 

JSR ONLMSG 
READ MEMORY SIZE 

JSR RDTTY 

JMP START 

JSR GSIZE 

JMP $2 

BOC Z,.+2 

ST R0,BASEA 

ST Rl,TOPA 

ST Rl,TOPB 

JSR GCOMMA 

JMP $2 

JSR GSIZE 

JMP $2 

ST R0,BASEB 

ST Rl,TOPB 



yUSE DEFAULT SIZE 



;GET ALTERNATE REGION SIZE 



IMPASH8K 



243 0750 

244 0751 

245 0752 

246 0753 

247 0753 

248 0753 

249 0753 

250 0753 

251 0753 

252 0754 

253 0755 

254 0756 

255 0757 

256 0758 

257 0759 

258 075A 

259 075B 

260 075C 

261 075D 

262 075E 

263 075F 

264 0760 

265 8761 

266 0762 

267 0762 

268 0762 

269 0762 

270 0763 

271 0764 

272 0765 

273 0766 

274 0767 

275 0768 

276 0769 



2C9E I 
2118 A 
21D9 A 



GSIZE: 



JSR GNVC 

JMP NEWASM 

JMP START 

END OF MEMORY SIZE INPUT 

GET SIZE PAIR 



290E A 

0200 A 
A511 A 
2C9E I 
2108 A 
F04B B 
2101 A 
2105 
2906 
2103 
8109 
D426 B 

0201 A 
7C5E B $3: 
0200 A 



2C9F I 

0200 A 
8486 B 
5O0A A 

0201 A 
0768 A 



$GDEC: 



$TMPs 
0760 A HEX760 
1E63 A LABSTt 



j ERROR-EXTRA DATA 



JSR 

RTS 

ST 

JSR 

JMP 

SKNE 

JMP 

JMP 

JSR 

JMP 

LD 

SUB 

RTS 

DSZ 

RTS 



SGDEC 

R1,$TMP 

GNVC 

$3 

R0,COLAN 

. + 2 

$3 

$GDEC 

$3 

R0,$TMP 

R1,K1 

1 

INPTR 



; FORCE ERROR 
. FORCE ERROR 

? INPUT CHAR PTR ? FORCE ERROR 



GET DECIMAL VAL FOR SIZE 



JSR 

RTS 

LD 

SHL 

RTS 

,*,+! 

.WORD 

.WORD 



GITEM 

Rl,ITVAL 

Rl,10 

1 

0760 
01E63 



} VAL* 10 24 



277 
278 
279 
280 
281 

ton 

283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 



076A 
076A 
076A 
076A 
076A 

ana ji 

076B 
076C 
076D 
076E 
076F 
076F 
0770 
0771 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
077A 
077B 
077C 
077D 



.PAGE 
.LOCAL 



'NEW ASSEMBLY 



UDUXCU , 



A00C A 
A05D B 
A069 B 
A090 B 

A098 B 
A099 B 

A05A B 
A05B B 
B0A0 I 
B0A1 I 
A1AA A 
8064 B 
A065 B 
8067 B 
A068 3 
4C01 A 
A093 B 
A097 B 
A089 B 



BEGIN NEW ASSEMBLY 



ST 

ST 

ST 

ST 

.IF 

ST 

ST 

.ENDIF 

ST 

ST 

ST 

ST 

ST 

LD 

ST 

LD 

ST 

LI 

ST 

ST 

ST 



R0,PNCHMD 

R0,PASS 

R0,XINOK 

R0,OBJMOD 

DBGVER 

R0 r ERDEB 

R0,MAPDEB 

R0,BMAX 

R0,TMAX 

R0,PTRTAB 

R0,PTREND-1 

R0,TTLBUF+7 

R0,TOPA 

R0,NEXTA 

R0,TOPB 

R0,NEXTB 

R0,1 

R0,NOMAP 

R0,TYPMOD 

R0 f INDEV 



; 0=PASS 1 

• 0= EXTENDED INSTR ILLEGAL 



; RESET ERROR DEBUG MODE 
; RESET MAP DEBUG MODE 



; EMPTY POINTER TABLE 



j INPUT DEVICE 0=CR,1=KB,2»PT ;SET INPU 



IMPASM8K 



304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 



077E 

077F 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

078A 

078B 

078C 

078D 

078E 

078F 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

079A 

079A 

079A 

079B 

079C 

079D 

079E 

079F 

07A0 

07A1 

07A2 

07A2 

07A2 

07A2 

07A3 

07A4 

07A5 

07A6 

07A7 

07A8 

07A9 

07AA 

07AB 

07 AC 

07AD 

07AE 

07AF 

07B0 

07B1 

07B2 

07B3 

07B4 

07B5 

07B6 

07B7 



A091 B 
A08E B 
A08F B 
A096 B 
4CFE A 
A094 B 
A095 B 
A01E B 
4C05 A 
A191 
8138 
A193 
8137 
A192 
8136 
A191 
A092 B 
4FF5 A 
8048 B 
890F A 
A200 
4A01 
4B01 
21FC 
4F06 
2CA2 
9CA3 
2C9B 



2C9C 
21CE 
2CA4 
21CC 
2903 
2CA5 
2132 
0720 



4D03 A 
A46B B 
4D01 A 
A48E B 
A470 B 
4C00 A 
A00C A 
B0A6 I 
A06F B 
A06C B 
A056 B 
A057 B 
A053 B 
A05C B 
B0A7 I 
B0A8 I 
846E B 
A46D B 
8431 B 
A488 B 
A48D B 
4D30 A 



$TTL: 



PINIT: 



ST 

ST 

ST 

ST 

LI 

ST 

ST- 

ST 

LI 

ST 

LD 

ST 

LD 

ST 

LD 

ST 

ST 

LI 

LD 

LD 

ST 

AISZ 

AISZ 

JMP 

LI 

JSR 

LD 

JSR 



R0, NOLI ST 

R0,LISTMD 

R0 , ERRLST 

R0 f HSPR 

R0,-2 

R0 f IDSKIN 

R0,IDSKTM 

R0,DSKOBJ 

R0,5 

R0,TTLBUF 

R0,$MAIN 

R0,TTLBUF+4 

R0,$MAIN+1 

R0,TTLBUF+5 

R0,$MAIN+2 

R0,TTLBUF+6 

R0,NOCOM 

R3,-ll 

R0, BLANKS 

R2 , $TTL 

R0,0(R2) 

R2,l 

R3,l 

.-3 

R3,6 

MANYNL 

R3,MSGNXT 

ONLMSG 



;SET LISTING MODE 



INPUT CONTROL STATEMENT 



JSR 
JMP 
JSR 
JMP 
JSR 
JSR 
JMP 
.WORD 



RDTTY 

NEWASM 

PRCTRL 

NEWASM 

PINIT 

NEWLIN 

NEXTST 

TTLBUF+7 



-, NEXT ASSEMBLY *.ASM 



; PROCESS CONTROL STATEMENT 



PASS INITIALIZATION 



LI 
ST 
LI 
ST 
ST 
LI 
ST 
ST 
ST 
ST 
ST 
ST 
ST 
ST 
ST 
ST 
LD 
ST 
LD 
ST 
ST 
LI 



Rl,3 

R1,SECT 

Rl,l 

R1,LISTMD 

Rl,IFMODE 

R0,0 

R0,PNCHMD 

R0,PGSTRG 

R0,IFSTAT 

R0 , LOCREG 

R0 f ACTR 

R0,BCTR 

R0,TCTR 

R0,LOCCTR 

R0 , SOUCK 

R0,OBJCK 

R1,IFPTRA 

R1,IFPTR 

R1,X6666 

R1,EC 

R1,LCNT2 

Rl,'0'/256 



;SECT:=TSECT 



; RESET PAGE STRING 
? LOCAL REGION NUMBER 



; SOURCE CHECKSUM 
; OBJECT CHECKSUM 



IMPASM8K 



367 07B8 

368 07B9 

369 07BA 

370 07BB 

371 07BC 

372 07BD 

373 07BE 

374 07BF 

375 07C0 

376 37C1 
07C2 
07C3 



A48C B 
4D37 A 
A471 B 

8094 B 
A01F B 

8095 B 
A020 B 
2CA9 I 
0200 A 
4D41 A 
494E A 
5052 A 



$MAIN: 



ST 


R1,LCNT1 


LI 


Rl,55 


ST 


Rl , PGRL 


LD 


R0,IDSKIN 


ST 


R0,DSKIN 


LD 


R0,IDSKTM 


ST. 


R0,DSKTMP 


JSR 


INITOR 


RTS 




.ASCII 


'MAINPR' 



INITIALIZE OBJECT RECORD 



377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
403 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 



07C4 
07C4 
07C4 
07C4 
07C4 
07C4 
07C4 
07C5 
07C6 
07C7 
07C7 
07C8 
07C8 
07C9 
07CA 
07CB 
37CC 
07CD 
07CE 
07CE 
07CF 
07D0 
07D1 
07D2 
07D3 
07D3 
07D4 
07D5 
07D6 
07D7 
07D8 
07D9 
07DA 
07DB 
07DC 
07DD 
07DE 
07DF 
07DF 
07DF 
07E0 
07E1 
07E2 
07E3 
07E4 
07E4 
07E5 
07E6 
07E7 



.PAGE 'STATEMENT PROCESS AND FORM USAGE' 
. LOCAL 

STATEMENT PROCESS 



1101 A $XARG: 
2042 A $CB: 
4C18 A XERROR! 



2105 
2CAA 
4C00 
4D01 
2CAB 
2103 

2DF5 
2CAC 
2102 
2DF2 
2CAD 



ERRST: 

INABS: 
INOUT; 



DIRENDi 



ENDST : 



NEXTSTs 



.WORD 
.WORD 
LI 



2CAA I XERR1: JSR 



3096 3 
A097 B 
8055 B 
A08B B 
4C00 A 
A06A B 
4DF1 A 
4400 
4901 
21FD 
81E7 
B0AE 



2CAF I 

2C9E I NEXTLB: 

21EC A 

F04A B 

2108 A 

2CB0 I 
21E0 A 
F04B B 
24B1 I 



JMP 

JSR 

LI 

LI 

JSR 

JMP 

JSR 
JSR 
JMP 
JSR 
JSR 

LD 

ST 

LD 

ST 

LI 

ST 

LI 

PULL 

AISZ 

JMP 

LD 

ST 



JSR 

JSR 

JMP 

SKNE 

JMP 



XARGCK 

' B' 
R0,24? 

ERROR 

DIREND 

ERROR 

R0,0 

Rl,l 

OUTWRD 

ENDST 

@$XARG 
OIBREP 
NEXTST 
@$XARG 
REPERR 

R0,HSPR 

R0 f TYPMOD 

R0 / ERRBAS 

R0 ', ERRPT 

R0,0 

R0,MOFLAG 

Rl,-15 

R0 

Rl,l 

.-2 

R0 , $CB 

R0,RELTB+3 



READ 

GNVC 

DIREND 

R0,DOT 

$DOT 



SYNTAX ERROR 



; SYNTAX ERROR 



?ABS 



; OUTPUT INPUT BUFFER AND REPORT ERRORS 



; REPORT ERRORS 



LABEL, INSTR OR FORM 



JSR 
JMP 
SKNE 
JMP 



BLDNAM 
XERROR 
R0,COLAN 
LABEL 



; REPLACE B IN ENTRY WHICH MAY HAVE I 



?GET NEXT VALID CHAR 
; FINISH STATEMENT (END OF STAT) 

; DIRECTIVE OR .= 

; BUILD NAME 
;NO NAME 

; LABEL 



IMPASM8K 



426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
463 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
491 
482 
483 
484 
485 
486 
487 
488 



07E8 
07E9 
07EA 
07EB 
07EC 
07ED 
07EE 
07EF 
97F0 
07F1 
07F2 
07F3 
07F4 
07F4 
07F5 
07F6 
07F6 
07F7 
07F8 
07F9 
07FA 
07FB 
07FC 
07FD 
07FD 
07FD 
07FE 
07FF 
0800 
0801 
0802 
0302 
0802 
0802 
0803 
0304 
0805 
0806 
0807 
0808 
0809 
030A 
080B 
080C 
080D 
080E 
080F 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0817 
0818 
0819 
0819 
081A 
081B 
081C 
081D 
081E 



F04C B 
24B2 I 
2CB3 I 
2108 A 
2C9E I $DOT: 
21D8 A 
F04C B 
24B4 I 
7C5E B 
4C2E A 
2CB5 I 
21D2 A 

2CB6 I $SERCH: 
2107 A 

8300 A 
8701 A 
A072 B 
A473 B 
8069 B 
3681 A 
2200 A 



SKNE R0, EQUAL 

JMP ASSIGN 

JSR IFBYP 

JMP $SERCH 

JSR GNVC 

JMP XERROR 

SKNE R0, EQUAL 

JMP DOTASN 

DSZ INPTR 

LI R0 f '.'/256 

JSR BLDDIR 

JMP XERROR 

DIRECTIVE OR INSTR OR FORM SEARCH 

JSR DISER 

JMP $5A 

MATCH FOUND 



;ASSIGN DIRECTIVE 

?IF BYPASS? 

; INSTR OR FORM SEARCH 



INPUT CHAR PTR 



$5 A: 



4C02 A 
C080 B 
A080 B 
2CB7 I 
215E A 



83FE A 
A160 A 
8300 A 
682C B 
A300 A 
8083 B 
1155 A 
83FF A 
6027 B 
A159 A 
8874 B 

8200 A 
A076 B 

8201 A 
A075 B 
4C10 A 
A078 B 
A079 B 
8075 B 
2935 A 
2140 A 
A075 B 
2118 A 



2CB8 I 
213A A 
6077 B 
844D B 
C479 B 
A500 A 



$12 



LD 

LD 

ST 

ST 

LD 

RCPY 

JMP 



R0,0(R3) 

R1,1(R3) 

R0 , IVAL 

R1,ICLASS 

R0,XINOK 

Rl r R2 

0(R2) 



EXTENDED INST OK FLAG (0=NO) 



TABLE EXHAUSTED, SEARCH FORM IN SYMBOL TABLE 



LI 

ADD 

ST 

JSR 

JMP 



R0,2 

R0,CNAM0 

R0,CNAM0 

STSER 

$7A 



PROCESS FORM REFERENCE 



LD 

ST 

LD 

OR 

ST 

LD 

BOC 

LD 

AND 

ST 

LD 

LD 

ST 

LD 

ST 

LI 

ST 

ST 

LD 

JSR 

JMP 

ST 

JMP 

TOP OF 

JSR 

JMP 

AND 

LD 

ADD 

ST 



R0,-2(R3) 
R0 r $FVAL 
R0,0(R3) 
R0 f K4 
R0,0(R3) 
R0,STPDEF 
Z,$7 

R0 r -1(R3) 
R0,K3 
R0,$FREL 
R2,FORMPT 
R0,0(R2) 
R0 , FORMT 
R0,1(R2) 
R0 , FORMB 
R0,16 
R0,FORMBN 
R0 , FORMTN 
R0 r FORMB 
$FBIT 
$13 

R0, FORMB 
$11B 
FORM LOOP 
EXPABS 
$8 

R0 , FORMM 
R1,SHLIN 
Rl, FORMTN 
Rl,$9 



1ST 2 COMPRESSED CHARS. 
1ST 2 COMPRESSED CHARS. 
SEARCH SYMBOL TABLE 
TABLE OVERFLOW 



;FORM VALUE 

;SET USED BIT 

; ERROR NOT PREV. DEFINED 



OF NAME 
OF NAME 



yFORM FIELD TERMINAL BITS 

;FORM FIELD BEGIN BITS 

INITIALIZE 

;FORM FIELD BEGINNING BIT NUMBER 

;FORM FIELD TERMINAL BIT NUMBER 

;FORM FIELD BEGIN BITS 

FORM END 

FORM FIELD BEGIN BITS 

GO TO BOTTOM OF FORM LOOP 



;NONE 
yFORM FIELD MASK RIGHT JUSTIFIED ;MASK 

;FORM FIELD TERMINAL BIT NUMBER yTERMIN 



IMPASM8K 



499 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

c -in 
_» j w 

531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 



081F 

0820 

0821 

0822 

9822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0829 

082A 

082B 

082C 

082D 

082E 

082F 

0830 

0831 

0831 

0832 

0833 

0834 

0834 

0835 

0836 

0837 

0838 

0839 

083A 

083B 

083B 

083B 

083B 

083C 

083D 

\j j u 

083F 
0840 



0000 
C143 
A142 

807A 
8477 
5100 
3483 
1102 
3482 
1532 

8075 
2920 
212B 
A075 
A534 
2C9D 
2125 
8531 

D441 
C478 
A478 

8076 
2915 
2124 
A076 
D441 
C479 
A479 



A $9: 

A 

A 

i 
B 
B 
A 
A 
A 
A 
A 

B $11: 

A 

A 

B 

A 

I 

A 

A 



*** A SHL INST. WILL BE STORED HERE *** 



$11B: 



8478 
D479 
F525 
2108 
C426 
C44D 



■mi » 



U Q*s X «3B Jl H 



0842 
0843 
0844 
0845 
0846 
0847 
0847 
0847 
0848 
0849 
084A 
084B 
084B 
084B 
084B 
084C 
084D 
084E 
084F 
0350 
0851 



4C01 A 
5C00 A $11A: 
D026 B 
A077 B 
21D2 A 



2CB9 I $F16 
210C A 
2CAB I 
2186 A 



4D0F 
1501 
0200 
1202 
5C01 
0201 
5C01 



$FBIT: 



SFB1: 



$FB2: 



HALT 

ADD R0,$FVAL ;FORM VALUE 

ST R0,$FVAL ;FORM VALUE 

NOW CHECK FOR EXP. SIZE ERROR 



LD 

LD 

CAI 

RAND 

30C 

RXOR 

BOC 



R0 , EXPVAL 

Rl , FORMM 

R1,0 

R1,R0 

Z,$ll 

R1,R0 

NZ,$10 



BOTTOM OF FORM LOOP 



LD 

JSR 

JMP 

ST 

ST 

JSR 

JMP 

LD 

SUB 
ADD 
ST 

LD 

JSR 

JMP 

ST 

SUB 

ADD 

ST 



R0 , FORMB 

$FBIT 

$13 

R0 , FORMB 

R1,$TMP 

GCOMMA 

$8 

Rl , $TMP 

R1,K16 
Rl , FORMBN 
Rl f FORMBN 

R0 , FORMT 

$FBIT 

$10 

R0 , FORMT 

R1,K16 
Rl , FORMTN 
Rl , FORMTN 



GENERATE MASK 



LD 

SUB 

SKNE 

JMP 

ADD 

ADD 

ST 

LI 

SHL 

SUB 

ST 

JMP 



Rl, FORMBN 

Rl , FORMTN 

R1,HEXF 

$F16 

R1,K1 

R1,SHLIN 

Ri,$iiA 

R0,1 

R0,0 

R0,K1 

R0, FORMM 

$12 



J EXPRESSION VALUE ; VALUE FROM EXP. 
;FORM FIELD MASK RIGHT JUSTIFIED ;MASK 



; ERROR - FIELD OVERFLOW 



;FORM FIELD BEGIN BITS 

;FORM END 

:FORM FIELD BEGIN BITS 



•FORM FIELD BEGINNING BIT NUMBER ;PREV 
;FORM FIELD BEGINNING BIT NUMBER 

?FORM FIELD TERMINAL BITS 



;FORM FIELD TERMINAL BITS 

;FORM FIELD TERMINAL BIT NUMBER ; PREV B 
;FORM FIELD TERMINAL BIT NUMBER 



;FORM FIELD BEGINNING BIT NUMBER 
;FORM FIELD TERMINAL BIT NUMBER 

? SPECIAL CASE 16 BIT FORM 

;SHL R0,0 INSTR. 
; *** CAREFUL **** 

. ***************** 

?FORM FIELD MASK RIGHT JUSTIFIED ; FORM 



SPECIAL CASE 16 BIT FORM TO ALLOW RELOCATABLE ADR 
JSR EXP 
JMP $8 
JSR OUTWRD 
JMP ENDST 

FIND BIT NUM IN WORD(R0), RESULT IN Rl , SHIFT R0 ACCORDINGLY 



LI 


Rl,15 


BOC 


NZ,$FB1 


RTS 




BOC 


P,$FB2 


SHL 


R0,1 


RTS 


1 


SHL 


R0,1 



IMPASM8K 



552 0852 

553 0853 

554 0854 

555 0855 

556 0855 

557 0856 

558 0857 

559 0857 
550 0858 

561 0859 

562 085A 

563 085B 

564 085B 

565 085C 

566 085D 

567 085E 

568 085E 

569 085E 

570 085F 

571 0860 

572 0860 

573 0861 

574 0862 

575 0863 

576 0864 

577 0865 

578 0866 



49FF A 
3081 A 
21F9 A 

4C00 A $8: 
2CAA I 

810C A $13; 
850C A 
2CAB I 
24BA I 

4C06 A $10: 
2CAA I 
21F9 A 



4C2A A $7 
24BB I 



$7A: 

$TMP: 
HEXF: 
$FVAL: 
0866 A $FREL! 



4C24 A 
24BB I 
0863 A 
000F A 
0865 A 



AISZ Rl,-1 

NOP 

JMP $FB1 

MISSING ARG ERROR 

LI R0,0; 

JSR ERROR 

FORM PROCESS END 

LD 

LD 

JSR 

JMP 

ERROR 

LI 

JSR 

JMP 



R0,$FVAL 

R1,$FREL 

OUTWRD 

ENDST 

FIELD OVERFLOW 

R0,6; 

ERROR 

$13 



MISSING ARG. ERROR 



;FORM VALUE 



VALUE ERROR 



ERROR ILLEGAL INSTR 

LI R0,42; 

JMP ERRST 

ERROR SYMBOL TABLE OVERFLOW 



UNDEFINED INSTRUCTION 



LI 
JMP 
. = .+1 
.WORD 
.= .+1 
. = .+1 
.ENDIF 



R0,36; 
ERRST 

0F 



TABLE OVERFLOW ERROR 



;FORM VALUE 



579 0866 

580 0866 

581 0866 

582 0367 

583 0867 
534 e*67 

585 0867 

586 0867 

587 0868 

588 0869 

589 086A 

590 036B 

591 086C 

592 086D 

593 086E 

594 086F 

595 0870 

596 0871 

597 0872 

598 0373 

599 0374 

600 0875 

601 0876 

602 0877 

603 0878 

604 0879 

605 087A 

606 087B 

607 087C 

608 087D 

609 087E 

610 087F 

611 0880 

612 0381 



2031 A $X2031 



2CBC I 
2CB9 I 
3081 A 
3881 A 
1502 A 
4C2A A 
2CAA I 
8C6B B 
805C B 
A355 B 
8758 B 
2CBD I 
A758 B 
806D B 
F06E B 
2102 A 
4C12 A 
2CAA I 
807A B 
2CBE I 
2CAC I 
805D B 
C1E8 A 
B0BF I 
805D B 
1102 A 
1459 A 



END: 



.PAGE 

. LOCAL 

.WORD 2031 

END DIRECTIVE 



END DIRECTIVE 



JSR 


OOREC 


JSR 


EXP 


NOP 




RCPY 


R2,R0 


BOC 


NZ,.+3 


LI 


R0,42; 


JSR 


ERROR 


LD 


R3,SECT 


LD 


R0,LOCCTR 


ST 


R0,ACTR-1(R3) 


LD 


Rl r AMAX-l(R3) 


JSR 


MAXR1 


ST 


Rl,AMAX-l(R3) 


LD 


R0 r IFPTR 


SKNE 


R0,IFPTRA 


JMP 


. + 3 


LI 


R0,18; 


JSR 


ERROR 


LD 


R0 r EXPVAL 


JSR 


OVAL 


JSR 


OIBREP 


LD 


R0,PASS 


ADD 


R0,$X2031 


ST 


R0 r MSGP 


LD 


R0,PASS 


BOC 


Z,ENDP1 


BOC 


B1EQ1,ENDP3 



; OUTPUT OBJECT RECORD IF ANY 



UNDEFINED ERROR 



;SET Rl = MAX OF Rl AND R0 



NESTING USAGE ERROR 



; OUTPUT INPUT BUFFER, REPORT ERRS, 
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613 0982 1326 A 


BOC 


ODD,ENDP2 


614 0833 ; 






615 0383 ? 


END PASS 1 


616 0883 ; 






617 0883 ENDPl: 






618 0883 4C00 A 


LI 


R0,0 


619 0884 A154 A 


ST 


R0,TLAST 


620 0335 A154 A 


ST' 


R0,OLAST 


621 0886 4D01 A 


LI 


Rl r l 


622 0887 8091 B 


LD 


R0,NOLIST 


623 0833 C03F B 


ADD 


R0 r ERRLST 


624 0989 D026 B 


SUB 


R0,K1 


625 088A 1501 A 


BOC 


NZ, . + 2 


626 088B 4D02 A 


LI 


Rl,2 


627 088C 


.IF 


SIZE8 


628 088C P440 B 


SKNE 


Rl,K2 


629 088D 2108 A 


JMP 


$EP1 


630 038E 8090 B 


LD 


R0,OBJMOD 


631 088F 1106 A 


BOC 


Z f $EPl 


632 0390 8096 B 


LD 


R0,HSPR 


633 0391 1103 A 


BOC 


Z,$EP2 


634 3892 801E B 


LD 


R0,DSKOBJ 


635 0893 C040 B 


ADD 


R0,K2 


636 0894 1101 A 


BOC 


Z,$EP1 


637 0895 4D03 A $EP2: 


LI 


Rl,3 


638 0896 $EP1: 






639 0896 


.ENDIF 




640 0896 A45D B 


ST 


R1,PASS 


641 0897 8020 B 


LD 


R0,DSKTMP 


642 0898 1B02 A 


BOC 


LEZ § $ 5 1 


643 0899 2C1C B 


JSR 


9CLOSET 


644 089A A13E A 


ST 


R0,TLAST 


645 089B 3096 B $51: 


LD 


R0,HSPR 


646 089C 1502 A 


BOC 


NZ,.+3 


647 089D 9CC0 I 


LD 


R3,$TTL 


648 089E 2C1B B 


JSR 


@MESS 


649 089F 2CC1 I 


JSR 


OEPM 


650 08A0 805D B 


LD 


R0,PASS 


651 08A1 1410 A 


BOC 


B1E01,BEGP34 


652 08A2 ; 






653 08A2 ; 


BEGIN 


PASS 2 


654 08A2 ; 






655 08A2 2CC2 I 


JSR 


RESETP 


656 08A3 2CC3 I 


JSR 


PINIT 


657 08A4 803F B 


LD 


R0 f ERRLST 


658 03A5 A08E B 


ST 


R0,LISTMD 


659 08A6 4F06 A 


LI 


R3,6 


660 08A7 2CA2 I 


JSR 


MANYNL 


661 08A8 24C4 I 


JMP 


NEXTST 


662 08A9 ; 






663 08A9 ? 


END PASS 2 


664 08A9 ; 






665 08A9 ENDP2: 






666 08A9 2CC5 I 


JSR 


OPTRS 


667 08AA 8093 B 


LD 


R0 f NOMAP 


668 08AB 1102 A 


BOC 


Z,. + 3 


669 08AC 2CC6 I 


JSR 


OMAP 


670 08AD 2101 A 


JMP 


.+2 


671 08AE 2CC2 I 


JSR 


RESETP 


672 08AF 2919 A 


JSR 


$EL 


673 08B0 2CC1 I 


JSR 


OEPM 


674 08B1 785D B 


ISZ 


PASS 


675 08B2 BEGP34 







; BEGIN PASS 3 OR 4 



JKESET V BITS IN SXHBUJj TABJjC 



; OUTPUT ALL POINTERS 
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676 08B2 


8090 


B 


LD 


R0 r OBJMOD 


677 08B3 


1145 


A 


BOC 


Z f $FINIS 


678 08B4 


801E 


B 


LD 


R0 , DSKOBJ 


679 08B5 


1206 


A 


BOC 


P,$50 


680 08B6 


9CC7 


I 


LD 


R3 f MSGTO 


681 08B7 


AC97 


B 


ST 


R3,TYPMOD 


682 08B8 


2C9B 


I 


JSR 


ONLMSG 


683 08B9 


2CA5 


I 


JSR 


NEWLIN 


684 08BA 


0000 


A 


HALT 




685 08BB 


2CC8 


I 


JSR 


LEAD 


686 08BC 




t 






687 08BC 




$50: 






68? 08BC 


805B 


B 


LD 


R0,TMAX 


689 08BD 


B0C9 


I 


ST 


R0,TTLBUF+3 


690 08BE 


805A 


B 


LD 


R0,BMAX 


691 08BF 


B0CA 


I 


ST 


R0 r TTLBUF+2 


692 08C0 


8D6E 


A 


LD 


R3 , $TTL 


693 08C1 


2CCB 


I 


JSR 


CKPNCH 


694 08C2 


2CCC 


I 


JSR 


OGLOB 


695 08C3 


2CC3 


I 


JSR 


PINIT 


696 08C4 


805D 


B 


LD 


R0,PASS 


697 08C5 


848F 


B 


LD 


R1,ERRLST 


698 08C6 


F027 


B 


SKNE 


R0,K3 


699 08C7 


A48E 


B 


ST 


R1,LISTMD 


700 08C8 


24C4 


I 


JMP 


NEXTST 


701 08C9 










702 08C9 






OUTPUT 


ERROR LINES 


703 08C9 










704 08C9 


4C01 


A SEL: 


LI 


R0,1 


705 08CA 


A08E 


B 


ST 


R0,LISTMD 


706 08CB 


2CA5 


I 


JSR 


NEWLIN 


707 08CC 


8888 


B 


LD 


R2,EC 


708 08CD 


4D20 


A 


LI 


Rl,020 


709 08CE 


8109 


A 


LD 


R0,$NO 


710 08CP 


F831 


B 


SKNE 


R2,X6666 


711 08D0 


2CCD 


I 


JSR 


02CH 


712 08D1 


F831 


B 


SKNE 


R2,X6666 


713 08D2 


2101 


A 


JMP 


. + 2 


714 08D3 


2CCE 


I 


JSR 


OSPDEC 


715 08D4 


9CCF 


I 


LD 


R3,MSGNOE 


716 08D5 


2CD0 


I 


JSR 


OMSG 


717 08D6 


0200 


A 


RTS 




718 08D7 




i 






719 08D7 


08D8 


A $TMP: 


. = .+1 




720 03D8 


4E4F 


A $N0: 


.WORD 


'NO' 


721 08D9 


08DA 


A TLAST: 


. = . + 1 




722 08DA 


08DB 


A OLAST: 


. = . + 1 




723 08DB 










724 08DB 










725 08DB 










726 08DB 




ENDP3: 






727 08DB 


2967 


A 


JSR 


OPTRS 


728 08DC 






.IF 


SIZE8 


729 08DC 


805D 


B 


LD 


R0,PASS 


730 08DD 


D027 


B 


SUB 


R0,K3 


731 08DE 


1504 


A 


BOC 


NZ,$OE 


732 08DF 


8093 


B 


LD 


R0,NOMAP 


733 08E0 


1102 


A 


BOC 


Z,$OE 


734 08E1 


2CC6 


I 


JSR 


OMAP 


735 08E2 


29E6 


A 


JSR 


$EL 


736 38E3 






.ENDIF 




737 08E3 




$OE: 






738 08E3 


4C01 


A 


LI 


R0,1 



?WAIT FOR PT PUNCH ON 



; CHECKSUM AND PUNCH 



; 'ERROR LINES' 
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739 


08E4 


A08E 


B 


740 


08E5 


807A 


B 


741 


08E6 


A14D 


A 


742 


08E7 


807C 


B 


743 


08E8 


1101 


A 


744 


08E9 


D026 


B 


745 


08EA 


A148 


A 


746 


08EB 


8D44 


A 


747 


08EC 


2CCB 


I 


748 


08ED 


801E 


B 


749 


08EE 


1B03 


A 


750 


08EF 


2C1D 


B 


751 


03F0 


A1E9 


A 


752 


08F1 


2102 


A 


753 


08F2 


2CC8 


I 


754 


08F3 


0000 


A 


755 


08F4 


2942 


A 


756 


08F5 


9CD1 


I 


757 


08F6 


2CD0 


I 


758 


08F7 


813E 


A 


759 


08F8 


2CD2 


I 


760 


08F9 






761 


08F9 






762 


08F9 


81DF 


A 


763 


08FA 


1105 


A 


764 


08FB 


8D0C 


A 


765 


08FC 


2C9B 


I 


766 


08FD 


81DB 


A 


767 


08FE 


D026 


B 


768 


08FF 


2CD2 


I 


769 


0900 


81D9 


A 


770 


0901 


1120 


A 


771 


0902 


8D13 


A 


772 


0903 


2C9B 


I 


773 


0904 


81D5 


A 


774 


0905 


D026 


B 


775 


0906 


2CD2 


I 


776 


0907 


211A 


A 


777 


0908 


0909 


A 


778 


0909 


4C41 


A 




090A 


5354 


A 




090B 


2054 


A 




aqar* 


icjln 






090D 


5020 


A 




090E 


5345 


A 




090F 


4354 


A 




0910 


4F52 


A 




0911 


2028 


A 




0912 


4845 


A 




0913 


5829 


A 




9914 


3D20 


A 


779 


0915 


0000 


A 


780 


0916 


0917 


A 


781 


0917 


4C41 


A 




0918 


5354 


A 




0919 


204F 


A 




091A 


424A 


A 




091B 


2053 


A 




091C 


4543 


A 




091D 


544F 


A 




091E 


5220 


A 




091F 


2848 


A 




0920 


4558 


A 



SFINIS: 



$FIN2 



$H1: 



ST 


R0,LISTMD 


LD 


R0,EXPVAL 


ST 


R0,ENDBUF+3 


LD 


R0,EXPREL 


BOC 


Z,. + 2 


SUB 


R0,K1 


ST 


R0,ENDBUF+2 


LD 


R3,$EB 


JSR 


CKPNCH 


LD 


R0,DSKOBJ 


BOC 


LEZ,.+4 


JSR 


@CLOSEO 


ST 


R0,OLAST 


JMP 


.+3 


JSR 


LEAD 


HALT 




JSR 


OEPM 


LD 


R3 f MSGOCK 


JSR 


OMSG 


LD 


R0,OBJCK 


JSR 


OHEX 


.IF 


SIZE8 


LD 


R0 , TLAST 


BOC 


Z,$FIN2 


LD 


R3,$M1 


JSR 


ONLMSG 


LD 


R0, TLAST 


SUB 


R0,K1 


JSR 


OHEX 


LD 


R0,OLAST 


BOC 


Z f $FIN3 


LD 


R3,$M2 


JSR 


ONLMSG 


LD 


R0 ,OLAST 


SUB 


R0,K1 


JSR 


OHEX 


JMP 


$FIN3 


.WORD 


. + 1 



• c\u\~.. 



$M2: 



.WORD 
.WORD 
.ASCII 



; EXPRESSION VALUE 

; EXPRESSION RELOCATION MODE 



; OUTPUT LEADER TO PT 
; WAIT FOR PT PUNCH OFF 

? 'OBJECT CHECKSUM =' 

? OBJECT CHECKSUM 



T nem rnpun oor<mnn /unv*— ' 




.+1 

'LAST OBJ SECTOR (HEX)=' 
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0921 293D A 








782 


0922 $FIN3: 






783 


0922 8096 B 




LD 


R0,HSPR 


784 


0923 1505 A 




BOC 


NZ,$FIN1 


785 


0924 4C0D A 




LI 


R0,0D 


786 


0925 2C1A B 




JSR 


@HSPRT 


787 


0926 4C0C A 




LI 


R0,0C 


788 


0927 2C1A B 




JSR 


@HSPRT 


789 


0928 2C1A B 




JSR 


§HSPRT 


790 


0929 




.ENDIF 




791 


0929 24D3 I $FIN1: 


JMP 


NEWASM 


792 


092A 








793 


092A ; 








794 


09 2A 2CAC I ENDP4: 


JSR 


OIBREP 


795 


092B 2917 A 




JSR 


OPTRS 


796 


092C 2CC6 I 




JSR 


OMAP 


797 


092D 21B5 A 




JMP 


$OE 


798 


092E ; 








799 


092E 2031 A X2031: 


.WORD 


02031 


800 


092F 0719 A $TTL: 


.WORD 


TTLBUF 


801 


0930 0931 A $EB: 


.WORD 


ENDBUF 


802 


0931 C004 A ENDBUF: 


.WORD 


0C004 


803 


0932 0935 A 




. = .+3 




804 


0935 0936 A SOUCK: 


. = .+1 




805 


0936 0937 A OBJCK: 


. = . + 1 




806 


0937 ; 








807 


0937 ; 




OUTPUT 


END PASS X 


808 


0937 ; 








809 


0937 C 


)EPM: 






810 


0937 8D3C A 




LD 


R3,MSGEP 


811 


0938 AC97 B 




ST 


R3,TYPMOD 


812 


0939 2C9B I 




JSR 


ONLMSG 


813 


093A 8096 B 




LD 


R0 f HSPR 


814 


093B A097 B 




ST 


R0,TYPMOD 


815 


093C 813C A 




LD 


R0,MSGP 


816 


093D F1F0 A 




SKNE 


R0,X2031 


817 


093E 0200 A 




RTS 




818 


093F 8D3B A 




LD 


R3,MSGSOV 


819 


0940 2C9B I 




JSR 


ONLMSG 


820 


0941 81F3 A 




LD 


R0 , SOUCK 


821 


0942 24D2 I 




JMP 


OHEX 


822 


0943 








823 


0943 








824 


0943 




OUTPUT 


POINTERS 


825 


0943 








826 


0943 ( 


DPTRS: 






827 


0943 2CA5 I 




JSR 


NEWLIN 


828 


0944 2CD4 I 




JSR 


06B 


829 


0945 4F02 A 




LI 


R3,2 


830 


0946 AC6B B 




ST 


R3,SECT 


831 


0947 8057 B 




LD 


R0,BCTR 


832 


0948 A05C B 




ST 


R0 , LOCCTR 


833 


0949 9CD5 I 




LD 


R3,PTABF 


834 


094A AD8C A 




ST 


F3,$TMP 


835 


094B 2CA9 I 




JSR 


INITOR 


836 


094C 


$NP: 






837 


094C 8D8A A 




LD 


R3,$TMP 


838 


094D 8300 A 




LD 


R0,0(R3) 


839 


094E 1501 A 




BOC 


NZ, .+2 


840 


094F 24BC I 




JMP 


OOREC 


841 


0950 3181 A 




RCPY 


R0,R1 


842 


0951 8301 A 




LD 


R0,1(R3) 


843 


0952 2CAB I 




JSR 


OUTWRD 



; OUTPUT INPUT BUFFER, REPORT ERRS, 
; OUTPUT POINTERS 

; OUTPUT END RECORD 



; 'END PASS 1 
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844 


0953 


7983 


A 


ISZ 


$TMP 


845 


0954 


7982 


A 


ISZ 


$TMP 


846 


0955 


21F6 


A 


JMP 


$NP 


847 


0956 




t 


END OF 


POINTER OUTPUT 


848 


0956 




i 






849 


0956 


0957 


A MSGBEG: 


.WORD 


.+1 


850 


0957 


4E53 


A 


.ASCII 


'NSC IMP-16 A! 




0958 


4320 


A 








0959 


494D 


A 








095A 


502D 


A 








095B 


3136 


A 








095C 


2041 


A 








095D 


5353 


A 








095E 


454D 


A 








095F 


424C 


A 








0960 


4552 


A 






851 


0961 


0D0A 


A 


.WORD 


0D0A 


852 


8962 


4D45 


A 


•ASCII 


MEMORY =s 




0963 


4D4F 


A 








0964 


5259 


A 








0965 


203D 


A 






353 


0966 


0000 


A 


.WORD 





854 


0967 


0968 


A MSGNXT: 


.WORD 


. + 1 


855 


0968 


4E45 


A 


.ASCII 


'NEXT ASSEMBL 1 




0969 


5954 


A 








095A 


2041 


A 








096B 


5353 


A 








096C 


454D 


A 








096D 


424C 


A 








096E 


5920 


A 






355 


096F 


0D0A 


A 


.WORD 


0D0A 


857 


0970 


2A2E 


A 


.ASCII 


'♦.ASM ' 




0971 


4153 


A 








0972 


4D20 


A 






858 


0973 


0000 


A 


.WORD 





859 


0974 


0975 


A MSGEP: 


.WORD 


. + 1 


860 


0975 


454E 


A 


.ASCII 


'END PASS' 




0976 


4420 


A 








0977 


5041 


A 








0978 


5353 


A 






861 


0979 


0000 


A MSGP: 


.WORD 





862 


097A 


0000 


A 


.WORD 





Rfi3 


0Q7R 


PIQ7C! 


A MSnSOVs 


-WORn 


s +l 


864 


097C 


534F 


A 


.ASCII 


'SOURCE CK.=' 




097D 


5552 


A 








097E 


4345 


A 








097F 


2043 


A 








0980 


4B2E 


A 








0981 


3D20 


A 






865 


0982 


0000 


A 


.WORD 





866 


0983 


0984 


A MSGTO: 


.WORD 


.+1 


867 


0984 


5455 


A 


.ASCII 


'TURN PT PUNC1 




0985 


524E 


A 








0986 


2050 


A 








0987 


5420 


A 








0988 


5055 


A 








0989 


4E43 


A 








098A 


4820 


A 








0983 


4F4E 


A 








098C 


2041 


A 








098D 


4E44 


A 








098E 


2050 


A 








093F 


5553 


A 







;LOOP FOR NEXT PTR 
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0990 


4820 


A 










0991 


5255 


A 








0992 


4E20 


A 






868 


0993 


0000 


A 


.WORD 





869 


0994 


0995 


A MSGOCK: 


.WORD 


. + 1 


870 


0995 


204F 


A 


.ASCII 


' OBJ.CK.=' 




0996 


424A 


A 








0997 


2E43 


A 








0998 


4B2E 


A 








0999 


3D20 


A 






871 


099A 


0000 


A 


.WORD 





872 


099B 


099C 


A MSGNOE: 


.WORD 


. + 1 


873 


099C 


2045 


A 


.ASCII 


' ERROR LINES 




099D 


5252 


A 








099E 


4F52 


A 








099F 


204C 


A 








09A0 


494E 


A 








09A1 


4553 


A 






874 


09A2 


0000 


A 


.WORD 





875 


09A3 






.PAGE 


'IF,ELSE,ENDI 


876 


09A3 






. LOCAL 




877 


09A3 












878 


09 A3 








IF, ELSE 


,ENDIF DIRECTI 1 


879 


09A3 












880 


09A3 




IF: 






881 


09A3 


8070 


B 


LD 


R0 r IFMODE 


882 


09A4 


C06F 


B 


ADD 


R0,IFSTAT 


883 


09A5 


8C6D 


B 


LD 


R3,IFPTR 


884 


09A6 


FD2D 


A 


SKNE 


R3,IFTBL 


885 


09A7 


210F 


A 


JMP 


$OV 


886 


09A8 


786D 


B 


ISZ 


IFPTR 


887 


09A9 


A301 


A 


ST 


R0,1(R3) 


888 


09AA 


4C02 


A 


LI 


R0,2 


989 


09AB 


A36F 


B 


ST 


R0,IFSTAT 


890 


09AC 


2CB8 


I 


JSP 


EXPABS 


891 


09AD 


210C 


A 


JMP 


SNOEX 


892 


09AE 


E023 


B 


SKG 


R0,ZERO 


R93 


09AF 


4C00 


A 


LI 


F0,0 


894 


09B0 


1101 


A 


BOC 


Z,.+2 


895 


09B1 


4C01 


A SI: 


LI 


R0,1 


896 


09B2 


6070 


B 


AND 


R0 f IFMODE 


897 


09B3 


A070 


B 


ST 


R0,IFMODE 


898 


09B4 


807A 


B 


LD 


R0,EXPVAL 


899 


09B5 


2CD6 


I 


JSR 


OHEXIF 


900 


09B6 


24D7 


I 


JMP 


DIREND 


901 


09B7 




t 






902 


09B7 




i 


IF TABLE OVERFLOW 


903 


09B7 


4C24 


A SOV: 


LI 


R0,36; 


904 


09B8 


2CAA 


I 


JSR 


ERROR 


905 


09B9 


24D7 


I 


JMP 


DIREND 


906 


09BA 




» 


NO EXP 


ERROR 


907 


09BA 


4C2A 


A $NOEX: 


LI 


R0,42; 


908 


09BB 


2CAA 


I 


JSR 


ERROR 


909 


09BC 


21F4 


A 


JMP 


$1 


910 


09BD 












911 


09BD 








ELSE DIRECTIVE 


912 


09BD 












913 


09BD 




ELSE: 






914 


09BD 


806F 


B 


LD 


R0,IFSTAT 


915 


09BE 


F040 


B 


SKNE 


R0,K2 


916 


09BF 


2103 


A 




JMP 


$ELOK 



;IF TABLE OVERFLOW 



; ERROR - NO EXP 



EXPRESSION VALUE 



TABLE OVERFLOW ERROR 



UNDEFINED ERROR 



;IF STATUS 
;ELSE OK 
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917 09C0 ; 


NESTING 


ERROR 


918 09C0 4C12 A $NERR: 


LI 


R0,18; 


919 09C1 2CAA I 


JSR 


ERROR 


920 09C2 24D7 I 


JMP 


DIREND 


921 09C3 ', 


ELSE OK 




922 09C3 $ELOK: 






923 09C3 4C04 A 


LI 


R0,4 


924 09C4 A06F B 


ST- 


R0,IFSTAT 


925 09C5 8070 B 


LD 


R0,IFMODE 


926 09C6 5000 A 


CAI 


R0,0 


927 09C7 6026 B 


AND 


R0,K1 


928 09C8 A070 B 


ST 


R0,IFMODE 


929 09C9 24D7 I 


JMP 


DIREND 


930 09CA ; 






931 09CA ; 


ENDIF DIRECTIVE 


932 09CA 






933 09CA ENDIF: 






7J1 B3V,fl OHOr D 




R0 , IFSTAT 


LiD 


935 09CB 11F4 A 


BOC 


Z,$NERR 


936 09CC 906D B 


LD 


R0,@IFPTR 


937 09CD 6026 B 


AND 


R0,K1 


938 09CE A070 B 


ST 


R0 f IFMODE 


939 09CF 906D B 


LD 


R0,@IFPTR 


940 09D0 6028 B 


AND 


R0,K6 


941 09D1 A06F B 


ST 


R0, IFSTAT 


942 09D2 7C6D B 


DSZ 


IFPTR 


943 09D3 24D7 I 


JMP 


DIREND 


944 09D4 ; 






945 09D4 0718 A IFTBL: 


.WORD 


IFTAB+9 


946 09D5 


.IF 


SIZE8 


947 09D5 


.PAGE 


'FORM DIRI 


948 09D5 


. LOCAL 




949 09D5 ; 






950 09D5 ; 


FORM DIRECTIVE 


951 09D5 






952 09D5 2CB3 I FORM: 


JSR 


IFBYP 


953 09D6 4C00 A 


LI 


R0,0 


954 09D7 A075 B 


ST 


R0, FORMS 


955 09D8 A076 B 


ST 


R0 , FORMT 


956 09D9 A164 A 


ST 


R0,FORMV 


957 09DA 4C01 A 


LI 


R0 ,- 1 


958 09DB A164 A 


ST 


R0^FRMREL 


959 09DC 4C0F A 


LI 


R0,15 


960 09DD A15E A 


ST 


R0,$BBIT 


961 09DE 2CD8 I 


JSR 


GFORM 


962 09DF 24D9 I 


JMP 


XERROR 


963 09E0 4300 A 


PUSH 


R3 


964 09E1 2CB5 I 


JSR 


DISER 


965 09E2 2101 A 


JMP 


. + 2 


966 09E3 2155 A 


JMP 


$20 


967 09E4 4700 A 


PULL 


R3 


968 09E5 83FF A 


LD 


R0,-1(R3) 


969 09E6 7029 B 


SKAZ 


R0,K8 


970 09E7 2151 A 


JMP 


$20 


971 09E8 AD54 A 


ST 


R3,$FPTR 


972 09E9 8074 B 


LD 


R0,FORMPT 


973 09EA A154 A 


ST 


R0,$FFFF 


974 09EB 






975 09EB $LOOP: 






976 09EB 2C9D I 


JSR 


GCOMMA 


977 09EC 213E A 


JMP 


$END 



NESTING - USAGE ERROR 



; COMPLEMENT IF MODE 



; NESTING ERROR 



STATUS 



?IF TABLE LIMIT 



? FORM FIELD BEGIN BITS 
;FORM FIELD TERMINAL BITS 



;GET FORM NAME 

; SYNTAX ERROR - NO SYMBOL 



;DUP DEF ERROR 
yFORM PTR 
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978 

979 

980 

981 

982 

983 

934 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 



09ED 

09EE 

09EF 

09F0 

09F1 

09F2 

09F2 

09F3 

09F4 

09F5 

09F6 

09F7 

09F7 

09F8 

09F9 

09FA 

09FB 

09FC 

09FC 

09FD 

09FE 

09FF 

0A00 

0A01 

0A02 

0A03 

0A04 

0A05 

0A06 

0A07 

0A08 

0A09 

0A0A 

0A0B 

0A0C 

0A0D 

0A0E 

0A0E 

0A0E 

0A0F 

0A10 

0A11 

0A12 

0A13 

0A14 

0A15 

0A16 

0A17 

0A18 

0A19 

0A1A 

0A1B 

0A1C 

0A1C 

0A1D 

0A1E 

0A1F 

0A20 

0A21 

0A21 

0A22 

0A23 

0A24 



814E A 
1203 A 
4C12 A $11: 
2CAA I 
2139 A 

2CDA I $10: 
21FB A 
D147 A 
D040 B 
12F8 A 

2C9E I 
2103 A 
F046 B 
2113 A 
7C5E B 

804D B $12 
C13E A 



A101 A 
4C01 A 
5C00 A 
C075 B 
A075 B 
3138 A 
D07A B 
A136 A 
C026 B 
C04D B 
A101 A 
4C01 A 
5C00 A 
C076 B 
A076 B 
21DD A 



812D A 
D07A B 
A12B A 
C04D B 
C026 B 
A10F A 
804D B 
C07A B 
A101 A 
4C01 A 
5C00 A 
D026 B 
5000 A 
1505 A 



$4: 



$5: 



$13 



$2: 



2CB9 I 
21D1 A 
6427 B 
A520 A 
2102 A 



2CDB 
21CC 
5C00 
C119 



$2A: 



$3: 



LD 

BOC 

LI 

JSR 

JMP 

JSR 
JMP 
SUB 
SUB 
BOC 

JSR 

JMP 

SKNE 

JMP 

DSZ 



R0 f $BBIT 

P,$10 

R0,18; 

ERROR 

$END 

EXPP7 

$11 

R0,$BBIT 

R0,K2 

P,$ll 

GNVC 

$12 

R0 f LPAREN 

$13 

INPTR 



; BEGIN BIT NUM (15 TO 0) 
USAGE ERROR 



NO PRESET VALUE 



LD 

ADD 

ST 

LI 

SHL 

ADD 

ST 

LD 

SUB 

ST 

ADD 

ADD 

ST 

LI 

SHL 

ADD 

ST 

JMP 



R0,SHLIN 

R0,$BBIT 

R0,$4 

R0 r l 

R0,0 

R0,FORMB 

R0,FORMB 

R0 r $BBIT 

R0 f EXPVAL 

R0 r $BBIT 

R0,K1 

R0,SHLIN 

R0,$5 

R0,1 

R0,0 

R0,FORMT 

R0 , FORMT 

$LOOP 



; ERROR - FIELD SIZE TOO LARGE 



;( 

; YES-LEFT PAREN. 
; INPUT CHAR PTR 

;SHL R0,0 

. *** CAREFUL 



yFORM FIELD BEGIN BITS 

;FORM FIELD BEGIN BITS ;SET BEG BIT 

; EXPRESSION VALUE 
; UPDATE NEW $BBIT 

;SHL R0,0 
?*** CAREFUL 

. *** 

•FORM FIELD TERMINAL BITS 

;FORM FIELD TERMINAL BITS fSET TERMING 

yLOOP 



PRESET VALUE 

LD R0 r $BBIT 

SUB R0,EXPVAL ; 

ST R0,$BBIT 

ADD R0,SHLIN 

ADD R0 r Kl 

ST R0,$3 ! 

LD R0,SHLIN 

ADD R0 , EXPVAL 

ST R0,$2 i 

LI R0,1 

SHL R0,0 ! 

SUB R0 f Kl 

CAI R0 f 

BOC NZ,$2A 

SPECIAL CASE 16 BIT FORM 

JSR EXP 

JMP $11 

AND Rl,K3 

ST Rl f FRMREL 

JMP - $3 



EXPRESSION VALUE 



*** CAREFUL 



*** CAREFUL 



JSR 

JMP 
SHL 
ADD 



EXPFRM 

$11 

R0,0 

R0 , FORMV 



GET EXP, MASK IN R0 

ERROR 
*** 
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1041 


0A25 


A113 A 




ST 


R0 , FORMV 


1042 


0A26 


2C9E I 




JSR 


GNVC 


1043 


0A27 


21C7 A 




JMP 


$11 


1044 


0A28 


F043 B 




SKNE 


R0,RPAREN 


1045 


0A29 


21C1 A 




JMP 


$LOOP 


1046 


0A2A 


21C4 A 




JMP 


$11 


1047 


0A2B 




t 






1048 


0A2B 




• 






1049 


0A2B 


8D11 A 


SEND: 


LD 


R3,$FPTR 


1050 


0A2C 


8912 A 




LD 


R2,$FFFF 


1051 


0A2D 


8110 A 




LD 


R0,FORJfV 


1052 


0A2E 


A3FE A 




ST 


R0,-2(R3) 


1053 


0A2F 


83FF A 




LD 


R0,-1(R3) 


1054 


0A30 


602E B 




AND 


R0,XFFF0 


1055 


0A31 


C029 B 




ADD 


R0,K8 


1056 


0A32 


C10D A 




ADD 


R0, FRMREL 


1057 


0A33 


A3FF A 




ST 


R0,-1(R3) 


1058 


0A34 


8075 B 




LD 


R0 , FORMB 


1059 


0A35 


A201 A 




ST 


R0,1(R2) 


1060 


0A36 


8076 B 




LD 


R0,FORMT 


1061 


0A37 


A200 A 




ST 


R0,0(R2) 


1062 


0A38 


24D7 I 




JMP 


D I REND 


1063 


0A39 




> 






1064 


0A39 




j 






1065 


0A39 


4C30 A 


$20: 


LI 


R0,48; 


1066 


0A3A 


2CAA I 




JSR 


ERROR 


1057 


0A3B 


24D7 I 




JMP 


DIREND 


1068 


0A3C 




t 






1069 


0A3C 


0A3D A 


$BBIT: 


. = . + 1 




1070 


0A3D 


0A3E A 


$FPTR: 


. = . + 1 




1071 


0A3E 


0A3F A 


FORMV: 


. = . + 1 




1072 


0A3F 


0A40 A 


$FFFF: 


= = *+! 




1073 


0A40 


0A41 A 


FRMREL: 


. = .+1 




1074 


0A41 






.ENDIF 




1075 


0A41 






.PAGE 


'ASECT, BSECT, 


1076 


0A41 




/ 






1077 


0A41 




t 


ASECT, BAECT, TSECT, AK 




n -a a t 




j 






1079 


0A41 






. LOCAL 




1080 


0A41 


4F01 A 


ASECT: 


LI 


R3,l 


1 n t\ i 

1BOI 


Vl\H£ 




$1: 






1082 


0A42 


2CB3 I 




JSR 


IFBYP 


1083 


0A43 


886B B 




LD 


R2,SECT 


1084 


0A44 


805C B 




LD 


R0 , LOCCTR 


1085 


0A45 


A255 B 




ST 


R0,ACTR-1(R2) 


1086 


0A46 


8658 B 




LD 


R1,AMAX-1(R2) 


1087 


0A47 


2910 A 




JSR 


MAXR1 


1088 


0A48 


A658 B 




ST 


Rl,AMAX-l(R2) 


1089 


0A49 


8755 B 




LD 


R1,ACTR-1(R3) 


1090 


0A4A 


AC6B B 




ST 


R3,SECT 


1091 


0A4B 


A45C B 




ST 


Rl , LOCCTR 


1092 


0A4C 


2CBC I 




JSR 


OOREC 


1093 


0A4D 


805C B 




LD 


R0 , LOCCTR 


1094 


0A4E 


2CBE I 




JSR 


OVAL 


1095 


0A4F 


24D7 I 




JMP 


DIREND 


1096 


0A50 




f 






1097 


0A50 


4F02 A 


BSECT: 


LI 


R3,2 


1098 


0A51 


21F0 A 




JMP 


$1 


1099 


0A52 




i 






1100 


0A52 


4F03 A 


TSECT: 


LI 


R3,3 


1101 


0A53 


21EE A 




JMP 


$1 



;NO CLOSING PAREN - ERROR 



;NO COSING PAREN - ERROR 



; PTS. TO LOWEST WORD OF ENTRY 
? SAVED FORMPT 



;FORM FIELD BEGIN BITS 
;FORM FIELD TERMINAL BITS 

DUP DEF ERROR 

;BEGIN BIT NUM (15 TO 0) 

; VALUE 

;TEMP FOR FORMPT 



?SET Rl = MAX OF Rl AND R0 



; OUTPUT OBJECT RECORD IF ANY 
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1102 
1193 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 



0A54 
0A54 
0A54 
0A54 
0A55 
0A56 
0A57 
0A58 
0A58 
0A58 
0A58 
0A59 
0A5A 
0A5B 
0A5C 
0A5D 
0A5E 
0A5F 
0A5F 
0A60 
0A61 
0A62 



2CB3 I 
4C01 A 
A069 B 
24D7 I 



A109 
3482 
1204 
8106 
1201 
8504 
0200 



EXTD 



MAXR1 



E502 A $SAME: 
3501 A 
0200 A 
0A63 A STMP: 



JSR 
LI 
ST 
JMP 



IFBYP 
R0,1 

R0,XINOK 
DIREND 



PUT MAX OF R0 AND Rl IN Rl 



ST 

RXOR 

BOC 

LD 

BOC 

LD 

RTS 

SAME S 

SKG 

LD 

RTS 

. = . + 1 



R0,$TMP 
R1,R0 
P,$SAME 
R0 , $TMP 
P,. + 2 
Rl,$TMP 

IGN 

Rl , $TMP 
R1,$TMP 



1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 



0A63 
0A63 
0A63 
0A63 
0A63 
0A63 
0A63 
0A64 
0A65 
0A66 
0A67 
0A68 
0A69 
0A69 
0A6A 
0A6B 
0A6C 
0A6C 
0A6D 
0A6E 
0A6F 
0A70 
0A71 
0A71 
0A72 
0A73 
0A74 
0A75 
0A76 
0A76 
0A76 
0A76 
0A76 
0A77 
0A78 
0A79 
0A7A 
0A7B 
0A7C 



2CB3 I 
2CDC I 
210E A 
3300 A 
6029 B 
1508 A 

33FF A 
682C B 
A3FF A 



2C9D 
24D7 
2CDC 
24D7 
21F5 



GLOBL: 



$1: 



$1A; 



4C12 A $3: 
2CAA I $2: 
21F8 A 
4C00 A $4: 
21 FC A 



2CB3 I 
4C01 A 
C06C B 
E03B B 
2103 A 
4C24 A 
2CAA I 



LOCAL: 



.PAGE GLOBL, LOCAL, ASCI I AND WORD DIRECTIVES 
. LOCAL 

GLOBL, LOCAL, ASCI I AND WORD DIRECTIVES 



JSR IFBYP 

JSR GSYM 

JMP $4 

LD R0,0(R3) 

AND R0,K8 

BOC NZ,$3 

SET GLOBL BIT 

LD R0,-1(R3) 

OR R0,K4 

ST R0,-1(R3) 



JSR 
JMP 
JSR 
JMP 
JMP 

LI 

JSR 

JMP 

LI 

JMP 



G COMMA 

DIREND 

GSYM 

DIREND 

$1 

R0,18; 

ERROR 

$1A 

R0,0; 

$2 



LOCAL DIRECTIVE 



JSR 


IFBYP 


LI 


R0,1 


ADD 


R0,LOCREG 


SKG 


R0,HEX3F 


JMP 


$5 


LI 


R0,36; 


JSR 


ERROR 



;IF BYPASS 
:NO SYMBOL 

-, ERROR-LOCAL CAN NOT BE MADE GLOBL 
;SET GLOBL BIT 



;LIST EXHAUSTED 
;LOOP 

USAGE ERROR 



;CONTRADICTON - GLOBL 



MISSING ARG. ERROR 



; ERROR - MISS 



;IF BYPASS 



TABLE OVERFLOW ERROR 



; ERROR - 63 L 
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1163 


0A7D 


24 D7 


I 




JMP 


DIREND 




1164 


0A7E 


A06C 


B 


$5: 


ST 


R0 r LOCREG 




1165 


0A7F 


24D7 


I 




JMP 


DIREND 




1166 


0AR0 














1167 


0A80 








WORD DIRECTIVE 




1163 


0A80 














1169 


0A80 






WORD: 








1170 


0A80 


2CB3 


I 




JSR 


IFBYP 


?IF BYPASS 


1171 


0A81 


2CB9 


I 




JSR 


EXP 




1172 


0A82 


24 BB 


I 




JMP 


ERRST 




1173 


9 AS 3 


2CAB 


I 


$6: 


JSR 


OUTWRD 


; OUTPUT WORD 


1174 


0A84 


2C9D 


I 




JSR 


GCOMMA 




1175 


0A85 


24 BA 


I 




JMP 


ENDST 




1176 


0A86 


2CB9 


I 




JSR 


EXP 


?GET EXPRESSION 


1177 


0A87 


24 BA 


I 




JMP 


ENDST 




1178 


0A88 


21 FA 


A 




JMP 


$6 




1179 


0A89 














1180 


0A89 








ASCII 


DIRECTIVE 




1181 


0A89 














1182 


0A39 






ASCII: 








1183 


0A89 


2CB3 


I 




JSR 


IFBYP 




1184 


0A8A 


2CDD 


I 




JSR 


GNSTRG 


?GET NEW STRING 


1185 


0A8B 


2108 


A 




JMP 


$10 


; ERROR - NONE 


1186 


0A8C 


4D01 


A 


$12: 


LI 


Rl,l 


?RELOCATION=ABS 


1187 


0A8D 


2CAB 


I 




JSR 


OUTWRD 


; OUTPUT WORD 


1188 


0A8E 


2CDE 


I 




JSR 


GCSTRG 


;GET CONTINUATION OF STRING 


1189 


0A8F 


2101 


A 




JMP 


$ir 


; STRING END 


1190 


0A90 


21 FB 


A 




JMP 


$12 




1191 


0A91 






i 


IS THERE ANOTHER STRING 




1192 


0A91 


2C9D 


I 


$11: 


JSR 


GCOMMA 


;GET COMMA 


1193 


0A92 


24 BA 


I 




JMP 


ENDST 




1194 


0A93 


21F5 


A 




JMP 


ASCII 


1 COMMA 


1195 


0A94 






> 


ERROR 






1196 


0A94 


4C18 


A 


$10: 


LI 


R0,24j 


SYNTAX ERROR 


1197 


0A95 


2CAA 


I 




JSR 


ERROR 




1198 


0A96 


24 D7 


I 




JMP 


DIREND 




1199 


0A97 








.PAGE 


'PAGE SPACE AND 


LIST DIRECTIVES' 


1200 


0A97 














1201 


0A97 








PAGE, SPACE AND LIST DIRECTIVES 


1202 


0A97 














1203 


0A97 








. LQCAI 






1204 


0A97 


2926 


A 


PAGE: 


JSR 


$BYP1 


; BYPASS IF PASS 1 


1205 


0A98 


2CB3 


I 




JSR 


IFBYP 




1206 


0A99 


4FE2 


A 




LI 


R3 r -30 


;MAX. 60 CHAR. STRING 


1207 


0A9A 


AD37 


A 




ST 


R3,$T1 




1208 


0A9B 


2CDD 


I 




JSR 


GNSTRG 


;GET NEW STRING 


1209 


0A9C 


210C 


A 




JMP 


$1 


;NO STRING 


1210 


0A9D 


2102 


A 




JMP 


$3 




1211 


0A9E 


2CDE 


I 


$2: 


JSR 


GCSTRG 


;GET NXT 2 CARS OF STRING 


1212 


0A9F 


2105 


A 




JMP 


$4 


;NONE LEFT 


1213 


0AA0 






$3: 








1214 


0AA0 


8931 


A 




LD 


R2,$T1 




1215 


0AA1 


C931 


A 




ADD 


R2,$PGBF 




1216 


0AA2 


A200 


A 




ST 


R0,0(R2) 




1217 


0AA3 


792E 


A 




ISZ 


$T1 




1218 


0AA4 


21F9 


A 




JMP 


$2 




1219 


0AA5 


892C 


A 


$4: 


LD 


R2,$T1 




1220 


0AA6 


C92C 


A 




ADD 


R2,$PGBF 




1221 


0AA7 


4C00 


A 




LI 


R0 f 




1222 


0AA8 


A200 


A 




ST 


R0,0(R2) 


;SET END MSG INDICATOR 


1223 


0AA9 






t 


EJECT 


PAGE AND PRINT 
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1224 


0AA9 


4F07 


A 


$1: 


LI 


R3,7 


1225 


0AAA 


CC71 


B 




ADD 


R3,PGRL 


1226 


0AAB 


2CDF 


I 




JSR 


OPGSTR 


1227 


0AAC 


2CD4 


I 




JSR 


06 B 


1228 


0AAD 


24D7 


I 




JMP 


DIREND 


1229 


0AAE 






i 






1230 


0AAE 


290F 


A 


SPACE: 


JSR 


$BYP1 


1231 


0AAF 


2CB3 


I 




JSR 


IFBYP 


1232 


0AB0 


2CE0 


I 




JSR 


EXPP 


1233 


0AB1 


3081 


A 




NOP 




1234 


GAB2 


E071 


B 




SKG 


R0,PGRL 


1235 


0AB3 


2101 


A 




JMP 


. + 2 


1236 


0AB4 


21F4 


A 




JMP 


$1 


1237 


0AB5 


3381 


A 




RCPY 


R0 r R3 


1238 


0AB6 


5001 


A 




CAI 


R0,1 


1239 


0AB7 


C071 


B 




ADD 


R0,PGRL 


1240 


0AB8 


A071 


B 




ST 


R0 , PGRL 


1241 


0AB9 


4300 


A 




PUSH 


R3 


1242 


0ABA 


2CAC 


I 




JSR 


OIBREP 


1243 


0ABB 


4700 


A 




PULL 


R3 


1244 


0ABC 


2CA2 


I 




JSR 


MANYNL 


1245 


0ABD 


24C4 


I 




JMP 


NEXTST 


1246 


0ABE 






i 






1247 


0ABE 


805D 


B 


SBYP1: 


LD 


R0,PASS 


1248 


0ABF 


1301 


A 




BOC 


ODD, .+2 


1249 


0AC0 


24D7 


I 




JMP 


DIREND 


1250 


0AC1 


0200 


A 




RTS 




1251 


0AC2 






i 






1252 


0AC2 






LIST: 






1253 


0AC2 


2CB3 


I 




JSR 


IFBYP 


1254 


0AC3 


2CB9 


I 




JSR 


EXP 


1255 


0AC4 


4C01 


A 




LI 


R0,1 


1256 


0AC5 


E023 


B 




SKG 


R0,ZERO 


1257 


0AC6 


4C00 


A 




LI 


R0,0 


1258 


0AC7 


1101 


A 




BOC 


Z f . + 2 


1259 


0AC8 


4C01 


A 




LI 


R0,1 


1260 


0AC9 


4000 


A 




PUSH 


R0 


1261 


0ACA 


2CAC 


I 




JSR 


OIBREP 


1262 


0ACB 


4400 


A 




PULL 


R0 


1263 


0ACC 


848F 


B 




LD 


Rl f ERRLST 


1264 


0ACD 


F426 


B 




SKNE 


R1,K1 


1265 


0ACE 


A08E 


B 




ST 


R0 f LISTMD 


1266 


0ACF 


1501 


A 




BOC 


NZ,.+2 


1267 


0AD0 


2CA5 


I 




JSR 


NEWLIN 


1268 


0AD1 


24C4 


I 




JMP 


NEXTST 


1269 


0AD2 






» 






1270 


0AD2 


0000 


A 


$T1: 


.WORD 





1271 


0AD3 






t 






1272 


0AD3 


070E 


A 


$PGBF: 


.WORD 


PGSTRG+30 


1273 


0AD4 






i 






1274 


0AD4 






ASMDIR: 






1275 


0AD4 


2CB3 


I 




JSR 


IFBYP 


1276 


0AD5 


2CA4 


I 




JSR 


PRCTRL 


1277 


0AD6 


24D9 


I 




JMP 


X ERROR 


1278 


0AD7 


24D7 


I 




JMP 


DIREND 


1279 


0AD8 








.PAGE 


'TITLE DI 


1280 


0AD8 








. LOCAL 




1281 


0AD8 












1282 


0AD8 








TITLE 


DIRECTIVE 


1283 


0AD8 












1284 


0AD8 






TITLE: 







;PAGE REMAINING LINES 
; OUTPUT PAGE STRING 



; BYPASS IF PASS 1 
;GET EXP POSITIVE 



;1=N0RMAL LISTING 0=ERROR LISTING 
;SET LISTING MODE 
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1285 


0AD8 


2CB3 


I 




JSR 


IFBYP 


1286 


3AD9 


2C9E 


I 




JSR 


GNVC 


1287 


0ADA 


24D9 


I 




JMP 


X ERROR 


1288 


0ADB 


2CB0 


I 




JSR 


BLDNAM 


1289 


0ADC 


24D9 


I 




JMP 


XERROR 


1290 


0ADD 


805D 


B 




LD 


R0,PASS 


1291 


0ADE 


1523 


A 




BOG 


NZ,$5 


1292 


0ADF 


4C10 


A 




LI 


R0,16 


1293 


0AE0 


B0E1 


I 




ST 


R0 r TTLBUF 


1294 


0AE1 


807D 


B 




LD 


R0,NAM0 


1295 


0AE2 


5C01 


A 




SHL 


R0,1 


1296 


0AE3 


5CFF 


A 




SHR 


R0,1 


1297 


0AE4 


B0E2 


I 




ST 


R0,TTLBUF+4 


1298 


0AE5 


807E 


B 




LD 


R0,NAM1 


1299 


0AE6 


B0E3 


I 




ST 


R0,TTLBUF+5 


1300 


0AE7 


807F 


B 




LD 


R0,NAM2 


1301 


0AE8 


B0E4 


I 




ST 


R0 r TTLBUF+6 


1302 


0AE9 


8120 


A 




LD 


R0,$PTR1 


1303 


0AEA 


A11E 


A 




ST 


R0,$PTR 


1304 


0AEB 


2C9D 


I 




JSR 


GCOMMA 


1305 


0AEC 


210E 


A 




JMP 


$BLNK 


1306 


0AED 


2CDD 


I 




JSR 


GNSTRG 


1307 


0AEE 


24D9 


I 




JMP 


XERROR 


1308 


0AEF 


B119 


A 




ST 


R0,§$PTR 


1309 


0AF0 


7918 


A 


$1: 


ISZ 


$PTR 


1310 


0AF1 


8117 


A 




LD 


R0,$PTR 


1311 


0AF2 


F118 


A 




SKNE 


R0,$PTRL 


1312 


0AF3 


2104 


A 




JMP 


$2 


1313 


0AF4 


2CDE 


I 




JSR 


GCSTRG 


1314 


0AF5 


2105 


A 




JMP 


$BLNK 


1315 


0AF6 


B112 


A 




ST 


R0,@$PTR 


1316 


0AF7 


21F8 


A 




JMP 


$1 


1317 


0AF8 






• 


BUFFER 


FULL 


1318 


0AF8 


2CDE 


I 


$2: 


JSR 


GCSTRG 


1319 


0AF9 


24D7 


I 


$4: 


JMP 


DIREND 


1320 


0AFA 


21FD 


A 




JMP 


$2 


1321 


0AFB 






i 






1322 


0AFB 






i 


BLANK OUT REST OF T 


1323 


0AFB 






$BLNK: 






1324 


0AFB 


4C00 


A 




LI 


R0,0 


1325 


0AFC 


8D0C 


A 




LD 


R3,$PTR 


1326 


0AFD 


A3 00 


A 


$3? 


ST 


R0 ,-0 (R3) 


1327 


0AFE 


4B01 


A 




AISZ 


R3^1* 


1328 


0AFF 


FD0B 


A 




SKNE 


R3,$PTRL 


1329 


0B00 


24D7 


I 




JMP 


DIREND 


1330 


0B01 


21 FB 


A 




JMP 


$3 


1331 


0B02 






i 






1332 


0B02 


2C9D 


I 


$5: 


JSR 


GCOMMA 


1333 


0B03 


24 D7 


I 




JMP 


DIREND 


1334 


0B04 


2CDD 


I 




JSR 


GNSTRG 


1335 


0B05 


24D9 


I 




JMP 


XERROR 


1336 


0B06 


2CDE 


I 




JSR 


GCSTRG 


1337 


0B07 


24 D7 


I 




JMP 


DIREND 


1338 


0B08 


21FD 


A 




JMP 


.-2 


1339 


0B09 






i 






1340 


0B09 


0B0A 


A 


SPTR: 


. = . + 1 




1341 


0B0A 


0720 


A 


$PTR1: 


.WORD 


TTLBUF+7 


1342 


0B0B 


072B 


A 


$PTRL: 


.WORD 


TTLBUF+18 


1343 


0B0C 








.PAGE 


'PROCESS LA 


1344 


0B0C 








. LOCAL 




1345 


0B0C 






i 







;1ST 2 CHARACTERS OF NAME 

;3RD AND 4TH CHARACTERS OF NAME 
?5TH AND 6TH CHARACTERS OF NAME 

;NO STRING, BLANK OUT BUFFER 



; TITLE BUFFER FULL 

;END OF STRING 

;LOOP FOR REST OF STRING 



;LOOP BACK 
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1346 


0B0C 




i 


PROCESS 


3 LABEL: 


1347 


0B0C 




$ 






1348 


0B0C 




LABEL: 






1349 


0B0C 


885E 


B 


LD 


R2,INPTR 


1350 


0B0D 


82FF 


A 


LD 


R0,-1(R2) 


1351 


0B0E 


F034 


B 


SKNE 


R0, BLANK 


1352 


0B0F 


24D9 


I 


JMP 


X ERROR 


1353 


0B10 


785E 


B 


ISZ 


INPTR 


1354 


0311 


2947 


A 


JSR 


PREPLB 


1355 


0B12 


24E5 


I 


JMP 


NEXTLB 


1356 


0B13 


8083 


B 


LD 


R0 r STPDEF 


1357 


0B14 


1103 


A 


BOC 


Z,$7 


1358 


0B15 




$20: 






1359 


0B15 


4C30 


A 


LI 


R0,48; 


1360 


0B16 


2CAA 


I 


JSR 


ERROR 


1361 


0B17 


24E5 


I 


JMP 


NEXTLB 


1362 


0B18 


2CE6 


I $7: 


JSR 


P2P1 


1363 


0B19 


2107 


A 


JMP 


$CK 


1364 


0B1A 


805C 


B 


LD 


R0, LOCCTR 


1365 


0B1B 


A3FE 


A 


ST 


R0,-2(R3) 


1366 


0B1C 


806B 


B 


LD 


R0 r SECT 


1367 


0B1D 


C029 


B 


ADD 


R0,K8 


1368 


0B1E 


C3FF 


A 


ADD 


R0,-1(R3) 


1369 


0B1F 


A3FF 


A 


ST 


R0,-1(R3) 


1370 


0B20 


24E5 


I 


JMP 


NEXTLB 


1371 


0B21 




> 


CHECK LOCCTR ALIG 


1372 


0B21 


83FF 


A SCK: 


LD 


R0,-1(R3) 


1373 


0B22 


C029 


B 


ADD 


R0,K8 


1374 


0B23 


A3FF 


A 


ST 


R0,-1(R3) 


1375 


0B24 


83FE 


A 


LD 


R0,-2(R3) 


1376 


0B25 


F05C 


B 


SKNE 


R0, LOCCTR 


1377 


0B26 


24 E5 


I 


JMP 


NEXTLB 


1378 


0B27 


21 ED 


A 


JMP 


$20 


1379 


0B28 










1380 


0B28 






ASSIGN 


DIRECTIVE 


1331 


0B28 










1382 


0B28 




ASSIGN: 






1383 


0B28 


785E 


B 


ISZ 


INPTR 


1384 


0B29 


292F 


A 


JSR 


PREPLB 


1385 


0B2A 


24D7 


I 


JMP 


DIREND 


1386 


0B28 


AC8A 


B 


ST 


R3,LBLPT 


1387 


0B2C 


2930 


A 


JSR 


EXP 


1388 


0B2D 


2125 


A 


JMP 


$2 


1389 


0B2E 


8C8A 


B 


LD 


R3,LBLPT 


1390 


0B2P 


83FF 


A 


LD 


R0 r -1(R3) 


1391 


0B30 


6029 


B 


AND 


R0,K8 


1392 


0B31 


150F 


A 


BOC 


NZ,$1 


1393 


0B32 


807A 


B 


LD 


R0 , EXPVAL 


1394 


0B33 


A3FE 


A 


ST 


R0,-2(R3) 


1395 


0B34 


807C 


B 


LD 


R0,EXPREL 


1396 


0B35 


6027 


B 


AND 


R0 f K3 


1397 


0B36 


HIE 


A 


BOC 


Z,$3 


1398 


0B37 


847B 


B 


LD 


R1,EXPPD 


1399 


0B38 


5D03 


A 


SHL 


Rl,3 


1400 


0B39 


3400 


A 


RADD 


Rl f R0 


1401 


0B3A 


87FF 


A 


LD 


R1,-1(R3) 


1402 


0B3B 


642E 


B 


AND 


R1,XFFF0 


1403 


0B3C 


3400 


A 


RADD 


R1,R0 


1404 


0B3D 


A3FF 


A 


ST 


R0,-1(R3) 


1405 


0B3E 




$10: 






1406 


0B3E 


807A 


B 


LD 


R0, EXPVAL 


1407 


0B3F 




t 


OUTPUT 


VALUE AND 


1408 


0B3F 


2CBE 


I $5: 


JSR 


OVAL 



? INPUT CHAR PTR 

; BYPASS LBL ASSIGNMENT, GO TO NEXT LBL 



DUPLICATE DEF ERROR 
ERROR - DUPLICATE DEF 



;SET PDEF BIT 

;SET RELOCATION 
;GO TO NEXT LBEL 



;MISALIN 



; INPUT CHAR PTR 
;PREP LABEL 

; SAVE LABEL PTR 

; NO EXP - ERROR 



; EXPRESSION VALUE 

; SET VALUE 

EXPRESSION RELOCATION MODE 



;0FFF0 



? EXPRESSION VALUE 
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1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
142R 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 



0B40 
0B41 
0B41 
0B42 
0B43 
0B44 
0B45 
0B46 
0B47 
3B47 
0B47 
0B47 
0B47 
0B48 
0B49 
0B4A 
0B4B 
0B4C 
034D 
0B4E 
0B4F 
0B50 
0B51 
0B52 
0B53 
0B53 
0B54 
0B55 
0B56 
0B57 
0B58 
0359 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B5A 
0B5B 
0B5C 



24 BA I 

83FF A 
60 2C B 
15FA A 
4C30 A 
2CAA I 
21F7 A 



2CB3 I 
2914 A 
2109 A 
3280 A 
1109 A 
F46B B 
2101 A 
2108 A 
A85C B 
2CBC I 
805C B 
21 EC A 



JMP 



ENDST 



4C00 
24E7 
4C12 
24E7 
4C12 
24 E7 



2CB3 I 
2CB7 I 

0200 A 

0201 A 



$1: 



LD 


R0 f -1(R3) 


AND 


R0,K4 


BOC 


NZ,$10 


LI 


R0,48? 


JSR 


ERROR 


JMP 


$10 



DUPLICATE DEF ERROR 



DOT ASSIGN DIRECTIVE 



DOTASN : 



$2: 
$3: 



$6: 



JSR 

JSR 

JMP 

RXCH 

BOC 

SKNE 

JMP 

JMP 

ST 

JSR 

LD 

JMP 

LI 

JMP 

LI 

JMP 

LI 

JMP 



IFBYP 

EXP 

$2 

R0,R2 

Zf $3 

RESECT 

. + 2 

$6 

R2,LOCCTR 

OOREC 

R0 , LOCCTR 

$5 

R0,0? 

XERR1 

R0,18? 

XERR1 

R0,18? 

XERR1 



;NO EXP ERROR 



MISSING ARG. ERROR ; MISSING EXP E 
NOT PREV DEFINED ERROR ;NOT PREV 
USAGE ERROR 



PREPARE LABEL FOR ASSIGNMENT OF VALUE 



PREPLBj 



JSR 
JSR 
RTS 
RTS 



JSR 



IFBYP 
STSER 



PREPLB 
NOT OK 
OK -LBL READY 



; SYMBOL TABLE SEARCH 
; OVERFLOW 



1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 



0B5D 
0B5D 
0B5D 
0B5D 
0B5D 
0B5D 
0B5D 
0B5D 

0B5D 4C00 A 
0B5E A07A B 
0B5F 4C01 A 
0B60 A07C B 
0B61 A07B B 
0B62 2C9F I 
0B63 2106 A 
0B64 F42C B 
2101 A 
2125 A 



.PAGE 
. LOCAL 



EXP 



EXPRESSION CALC. 



JSR EXP 

NO EXP RETURN (NOT AN ERROR) - EXPVAL=0 
NORMAL RETURN - R0=EXPVAL 

R2=EXPPD (PREV. DEF.) 



; EXPRESSION VALUE 



0B65 
0B66 



LI 


R0,0 


ST 


R0,EXPVAL 


LI 


R0,1 


ST 


R0,EXPREL 


ST 


R0,EXPPD 


JSR 


GITEM 


JMP 


$1 


SKNE 


Rl,K4 


JMP 


. + 2 


JMP 


$PLUS 



; EXPRESSION RELOCATION MODE ;SET ABS 
; PREV. DEF. 1=YES ?SET PREV. DEF. YES 

;NO ITEM, PROBABLY AN OPERATOR 
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1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 



0B67 

0B68 

0B69 

0B6A 

0B6B 

0B6C 

0B6D 

0B6E 

0B6F 

0B70 

0B71 

0B72 

0B72 

0B73 

0B74 

0B74 

0B74 

0B75 

0B76 

0B77 

0B78 

0B79 

0B7A 

0B7B 

0B7B 

0B7C 

0B7D 

0B7E 

0B7E 

0B7F 

0B80 

0B81 

0B82 

0B83 

0B84 

0B85 

0B86 

0B87 

0B88 

0B89 

0B8A 

0B8B 

0B8C 

0B8C 

0B8C 

0B8C 

0B8C 

0B8D 

0B8E 

0B8F 

0B90 

0B91 

0B92 

0B93 

0B94 

0B95 

0B96 

0B97 

0B98 

0B99 

0B99 

0B99 

0B99 



A07A B 
A47C B 
216D A 
2C9E I 
216F A 
F050 B 
2101 A 
2105 
4C18 
2CAA 
21F8 



$1: 



$NXT: 



2C9E I 
215D A 



$1A: 



A116 A 
F04F B 
2159 A 
F043 B 
2157 A 
F046 B 
2155 A 

2970 A 
212D A 
810D A 

F050 B 
210C A 
F051 B 
2117 A 
F03C B 
2137 A 
F035 B 
213B A 
F053 B 
213F A 
F054 B 
2142 A 
2109 A 
0B8C A 



$0P: 



8486 B $PLUS: 

C47A B 

291E A 

2104 A 

A47G B 

F42C B 

2101 A 

21 DE A 

4C12 A $EERR: 

2CAA I $15: 

4C00 A 

A07C B 

21D9 A 



847A B $MINUSi 



ST 


R0,EXPVAL 


ST 


R1,EXPREL 


JMP 


$FIN 


JSR 


GNVC 


JMP 


$EX0 


SKNE 


R0,CPLUS 


JMP* 


. + 2 


JMP 


$1A 


LI 


R0,24; 


JSR 


ERROR 


JMP 


$1 


JSR 


GNVC 


JMP 


$EXPND 


CECK 


DPERATOR ELS 


ST 


R0 , SOP 


SKNE 


R0 r COMMA 


JMP 


$COM 


SKNE 


R0,RPAREN 


JMP 


$COM 


SKNE 


R0,LPAREN 


JMP 


$COM 


JSR 


GITEM 


JMP 


SXERR 


LD 


R0,$OP 


SKNE 


R0,CPLUS 


JMP 


$PLUS 


SKNE 


R0,CMINUS 


JMP 


$MINUS 


SKNE 


R0,CMPY 


JMP 


$MPY 


SKNE 


R0,CDIV 


JMP 


$DIV 


SKNE 


R0,CAND 


JMP 


$AND 


SKNE 


R0,COR 


JMP 


$OR 


JMP 


$EERR 


. = . + 1 





;NO EXP 



ERROR SYNTAX 



?EXP. END 



PLUS OPERATOR 



LD 

ADD 

JSR 

JMP 

ST 

SKNE 

JMP 

JMP 

LI 

JSR 

LI 

ST 

JMP 



R1,ITVAL 

R1,EXPVAL 

$PMREL 

$EERR 

R1,EXPREL 

R1,K4 

SEERR 

$NXT 

R0,18? 

ERROR 

R0,0 

R0,EXPREL 

$NXT 



? EXP. ERROR 

7 TEMP SAVE OPERATOR 



; EXPRESSION VALUE 
; PLUS/MINUS REL.CALC. 

;1ST RETURN , BOTH T,B OR G RELOCATION 
EXPRESSION RELOCATION MODE ; 2ND RETURN 
f EXTERNAL? 
;YES 

;GO TO NXT OPERATOR 
EXP. -USAGE ERROR , GLOBAL SYMBOL 



EXPRESSION RELOCATION MODE ;SET UNDEFI 
;CONTNUE TO NXT OPERATOR 



MINUS OPERATOR 
LD R1,EXPVAL 



; EXPRESSION VALUE 
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1533 
1534 
1535 
153* 
1537 
153* 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1551 
1562 
1563 
1554 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1589 
1589 
1590 
1591 
1592 
1593 
1594 
1595 



0B9A 
0B9B 
0B9C 
QB9D 
0B9E 
0B9F 
0B9F 
0BA0 
0BA1 
0BA2 
0BA3 
0BA3 
0BA4 
0BA5 
0BA6 
0BA7 
0BA7 
0BA8 
0BA9 
0BAA 
0BAB 
0BAC 
0BAD 
0BAD 
0BAD 
0BAD 
0BAE 
0BAF 
0BB0 
0BB1 
0BB2 
0BB2 
0BB3 
0BB4 
0BB5 
0BB6 
0BB7 
0BB8 
0BB9 
0BB9 
0BB9 
0BBA 
0BBB 
0BBB 
0BBB 
0BBB 
0BBC 
0BBD 
0BBE 
0BBF 
0BC0 
0BC1 
0BC1 
0BC2 
0BC3 
0BC4 
0BC5 
0BC6 
0BC7 
0BC7 
0BC7 
0BC7 
0BC8 



D486 B 
2911 A 
2106 A 
F087 B 
2101 A 

21F4 A 
F42C B $14: 
21F2 A 
21CF A 

F42C B $13: 
21EF A 
3482 A 
15ED A 

4C01 A 
A07C B 
21C8 A 

4C18 A $XERRj 
2CAA I 
2124 A 



A47A B $PMREL: 
8087 B 
847C B 
E487 B 
3180 A 

1105 A 
F426 B 
2104 A 
F026 B 
0201 A 
0200 A 

A07C B $11: 

4400 A $12: 
21B7 A 



2923 A $MPY: 
807A B 
8486 B 
2C0D B 
A47A B $MPY1 
21B1 A 



$DIV: 



291D A 
4C00 A 
847A B 
8C86 B 
2C0E B 
21F8 A 



2917 A $AND: 
807A B 



SUB Rl , ITVAL 

JSR $PMREL 

JMP $13 

SKNE R0,ITREL 

JMP $14 

ARG 1 IS ABS,ARG2 GR THAN ABS (1) 

JMP $EERR 

SKNE R1,K4 

JMP $EERR 

JMP $NXT 



PLUS/MINUS RL.CALC. 
RET 1- BOTH T f B OR G RELOCATION 
RET 2- LOWEST IS ABS. 
ARG2 IS ABS 



BOTH ARGS HAVE T,B OR 

SKNE Rl f K4 

JMP $EERR 

RXOR Rl , R0 

BOC NZ r $EERR 

SAME - SAME REL = ABS 

LI R0,1 

ST R0,EXPREL 

JMP $NXT 

LI R0,24j 

JSR ERROR 

JMP $EXPND 



? GLOBAL USAGE ERROR 
?NEXT OPERATOR 
G RELOCATION 



; GLOBAL ERROR 
;NOT SAME - ERROR 



; EXPRESSION RELOCATION MODE 
?NEXT OPERATOR 
SYNTAX ERROR 



SPECIAL SUBR. USED TO HELP WITH REL.CALC. FOR PLUS/MINUS 



ST 

LD 

LD 

SKG 

RXCB 



R1,EXPVAL 

R0,ITREL 

R1,EXPREL 

R1,ITREL 

R0,R1 



R0 LESS OR EQUAL TO Rl 



BOC 

SKNE 

JMP 

SKNE 

RTS 

RTS 

UNDEFINED 



Z,$li 

R1,K1 

$12 

R0,K1 

1 



; EXPRESSION VALUE ; STORE VALUE RESULT 
; EXPRESSION RELOCATION MODE 



NOW 
;UNDEF INHERIT 



;BOTH ABS 

;LOW I ABS, OTHER? 
;LOW IS GR THAN ABS 



(1) 



ST 



R0,EXPREL 



; EXPRESSION RELOCATION MODE 
FINISHED BUT MUST POP RET. FROM STACK, THEN GO TO NXT OPERATOR 
PULL R0 
JMP $NXT 



JSR 

LD 

LD 

JSR 

ST 

JMP 

JSR 

LI 

LD 

LD 

JSR 

JMP 



$REL 

R0 , EXPVAL 

Rl, ITVAL 

§MULT 

Rl, EXPVAL 

$NXT 

$REL 

R0,0 

Rl, EXPVAL 

R3, ITVAL 

§DIVD 

$MPY1 



; EXPRESSION VALUE 



; EXPRESSION VALUE 



; EXPRESSION VALUE 



AND OPERATOR 



JSR 
LD 



$REL 

R0 , EXPVAL 



; EXPRESSION VALUE 
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$20: 



$0R: 



$COM: 
$EXPNDi 



$FIN: 



$EX0: 



1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 



1643 
1644 
1645 
1646 
1647 
1648 
1649 

1650 0BEC 

1651 0BEC 

1652 0BEC 

1653 0BEC 

1654 0BEC 

1655 0BEC 4C00 A GITEM: 

1656 0BED A086 B 



0BC9 

ABC A 

0BCB 

0BCC 

0BCC 

0BCC 

0BCC 

0BCD 

0BCE 

03CF 

0BD0 

0BD0 

0BD0 

0BD0 

0BD1 

0BD1 

0BD1 

0BD2 

0BD3 

0BD4 

0BD5 

0BD6 

0BD7 

0BD8 

0BD9 

0BDA 

0BDB 

0BDB 

0BDC 

0BDD 

0BDE 

0BDF 

0BDF 

0BDF 

0BDF 

0BE0 

0BE1 

0BE2 

0BE3 

0BE4 

0BE5 

0BE6 

0BE7 

0BE8 

0BE9 

0BEA 

0BEB 



0BEC 
0BEC 
0BEC 
0BEC 
0BEC 
0BEC 
0BEC 



6086 B 
A07A B 
21A6 A 



2912 A 
807A B 
6886 B 
21 FA A 



7C5E B 



2CE8 I 
2104 A 
807C B 
1502 A 
4C2A A 
2CAA I 
807A B 
887B B 
847C B 
0201 A 

807A B 
887B B 
847C B 
0200 A 



8087 B 
847C B 
E487 B 
3180 A 
E426 B 
2105 A 
4C00 A 
A07C B 
A07A B 
4400 A 
21AA A 
A07C B 
0200 A 



AND 

ST 

JMP 



R0 , ITVAL 
R0 EXPVAL 

$NXT 



; EXPRESSION VALUE 



$REL: 



$30: 



OR OPERATOR 



JSR 
LD" 
OR 
JMP 



$REL 

R0 , EXPVAL 

R0 , ITVAL 

$20 



; EXPRESSION VALUE 



EXPRESSION END 



DSZ 



INPTR 



; INPUT CHAR PTR 



DIAGNOSE IF PASS 2 AND UNDEFINED 



JSR 

JMP 

LD 

BOC 

LI 

JSR 

LD 

LD 

LD 

RTS 

LD 
LD 
LD 
RTS 



P1P2 

$FIN 

R0 f EXPREL 

NZ,$FIN 

R0,42; 

ERROR 

R0 , EXPVAL 

R2,EXPPD 

R1,EXPREL 

1 

R0 , EXPVAL 

R2 f EXPPD 

R1,EXPREL 





EXPRESSION RELOCATION MODE 

UNDEFINED ERROR 

EXPRESSION VALUE 

;PREV.DEF. 1=YES ;PREV. DEF. CODE 

EXPRESSION RELOCATION MODE 



EXPRESSION VALUE 
;PREV.DEF. 1=YES 
EXPRESSION RELOCATION MODE 



CALC. REL. FOR AND,OR,MPY , DIV 



LD 


R0,ITREL 


LD 


R1EXPREL 


SKG 


R1,ITREL 


RXCH 


R0,R1 


SKG 


R1,K1 


JMP 


$30 


LI 


R0,0 


ST 


R0,EXPREL 


ST 


R0 EXPVAL 


PULL 


R0 


JMP 


$EERR 


ST 


R0EXPREL 


RTS 




.PAGE 


' GET ITEM 


. LOCAL 





EXPRESSION RELOCATION MODE 



EXPRESSION RELOCATION MODE 
EXPRESSION VALUE 

?REL. ERROR IN EXP. 
EXPRESSION RELOCATION MODE 



LI 

ST 



JSR GITEM 

NONE (NOT AN ERROR) ITVAL=0 ITREL=1 (ABS) 
NORMAL RET 

SET ITVAL ,ITREL (IF GR 4, AND WITH 3] 

. REFERS TO LOCCTR 

ALLOW UNARY OPS 



R0,0 

R0 r ITVAL 
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1657 
1658 
1659 
1660 
1651 
1652 
1663 
1664 
1665 
1666 
1667 
1658 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1705 
1707 
1703 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 



0BEE 
0BEF 
0BF0 
0BF1 
0BF2 
0BF3 
0BF3 
0BF3 
0BF3 
0BF4 
0BF5 
0BF6 
0BF7 
0BF8 
0BF9 
0BFA 
0BFB 
0BFC 
0BFD 
0BFE 
0BFF 
0C00 
0C01 
0C02 
0C03 
0C04 
0C05 
0C06 
0C07 
0C08 
0C08 
0C08 
0C08 
0C08 
0C09 
0C0A 
0C0B 
0C0C 
0C0D 
0C0E 
0C0F 
0C10 
0C11 
0C12 
0C12 
0C13 
0C13 
0C13 
0C13 
0C14 
0C15 
0C16 
0C17 
0C18 
0C19 
0C1A 
0C1B 
0C1C 
0C1D 
0C1E 
0C1F 
0C20 
0C21 



A130 A 
4C01 A 
A087 B 
2C9E I 
0200 A 



F04A B STEST: 
216C A 
F038 B 
2111 A 
F045 B 
2140 A 
F04F B 
2125 A 
F052 B 
2133 A 
F051 B 
2133 A 
F044 B 
214B A 
F04E B 
214E A 
E035 B 
2167 A 
E036 B 
2136 A 
2149 A 



2CE9 I $HEX: 
2109 A 
E035 B 
2106 A 
E036 B 
2115 A 
E032 B 
2102 A 
E037 B 
2113 A 

7C5E B $BSPR1: 



ST 


R0,$UOP 


LI 


R0,1 


ST 


R0,ITREL 


JSR 


GNVC 


RTS 




TEST 


LEADING CHAR. 


SKNE 


R0,DOT 


JMP 


$DOT 


SKNE 


R0,CZERO 


JMP 


$HEX 


SKNE 


R0, QUOTE 


JMP 


$QUOTE 


SKNE 


R0, COMMA 


JMP 


$100 


SKNE 


R0.CNOT 


JMP 


$NOT 


SKNE 


R0 f CMINUS 


JMP 


$MINUS 


SKNE 


R0,CHARX 


JMP 


$X 


SKNE 


R0 r DOLLAR 


JMP 


$NAME 


SKG 


R0,HEX2F 


JMP 


$BS0 


SKG 


R0,HEX39 


JMP 


$DEC 


JMP 


$NAME 


ZERO 


- HEX CONSTANT 


JSR 


GNCVC 


JMP 


$RET1 


SKG 


R0,HEX2F 


JMP 


$BSPR1 


SKG 


R0,HEX39 


JMP 


$1 


SKG 


R0,HEX40 


JMP 


$BSPR1 


SKG 


R0,HEX46 


JMP 


S2 


BACKSPACE 


DSZ 


INPTR 



;NO ITEM RETURN 



; BACKSPACE AND RETURN 



; ALPHA - TRY NAME 



; FINISHED CONSTANT-GO PROCESS UNARY OP 
; BACKSPACE AND RETURN 1 

j A -1 

;F 

; INPUT CHAR PTR 
RETURN VALUE AFTER PROCESSING UNARY OPS WHICH WERE SAVED 



8486 B 
810A A 
1103 A 
1305 A 
5100 A 
A486 B 
8086 B 

8487 B 
0201 
5101 
14F9 
21F9 
0000 
4C18 
2CAA 



$RET1; 



$UNOT: 

$30: 

$NOUN: 



$UM: 



$UOP: 
$100: 



LD 

LD 

BOC 

BOC 

CAI 

ST 

LD 

LD 

RTS 

CAI 

BOC 

JMP 

.WORD 

LI 

JSR 



Rl , ITVAL 

R0 , $UOP 

Z , $NOUN 

ODD,$UM 

R1,0 

Rl , ITVAL 

R0, ITVAL 

Rl,ITREL 

1 

Rl,l 

B1EQ1,$UN0T 

$30 



R0,24; 

ERROR 



? NO UNARY 
; UNARY MINUS 



; UNARY OP CODE 
SYNTAX ERROR 



BIT MIN,BIT 1 NOT 
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1720 0C22 21EF A 




JMP 


$BSPR1 


1721 0C23 








1722 0C23 




CONTINUE HEX 


1723 0C23 








1724 0C23 D038 B 


$1: 


SUB 


R0,HEX30 


1725 0C24 2101 A 




JMP 


$3 


1726 0C25 D039 B 


$2: 


SUB 


R0,HEX37 


1727 0C26 8486 B 


$3: 


LD 


Rl, ITVAL 


1728 0C27 7546 A 




SKAZ 


R1,XF000 


1729 0C28 2104 A 




JMP 


$4 


1730 0C29 5D04 A 




SHL 


Rl,4 


1731 0C2A 3400 A 




RADD 


Rl f R0 


1732 0C2B A086 B 




ST 


R0, ITVAL 


1733 0C2C 21DB A 




JMP 


$HEX 


1734 0C2D 4C06 A 


$4: 


LI 


R0,6; 


1735 0C2E 2CAA I 




JSR 


ERROR 


1736 0C2F 21E3 A 




JMP 


$RET1 


1737 0C30 








1738 0C30 




% - NOT 


1739 0C30 








1740 0C30 4D02 A 


$NOT: 


LI 


Rl,2 


1741 0C31 2101 A 




JMP 


$MIN1 


1742 0C32 








1743 0C32 




MINUS 


1744 0C32 








1745 0C32 


$MINUS: 






1746 0C32 4D01 A 




LI 


Rl,l 


1747 0C33 81EB A 


$MIN1: 


LD 


R0,$UOP 


1748 0C34 3482 A 




RXOR 


R1,R0 


1749 0C35 A1E9 A 




ST 


R0,$UOP 


1750 0C36 2C9E I 




JSR 


GNVC 


1751 0C37 2131 A 




JMP 


$ERR 


1752 003 s ? 21BA A 




JMP 


$TEST 


1753 0C39 


t 






1754 0C39 


i 


QUOTE - 


STRING CC 


1755 0C39 2CEA I 


$QU0TE: 


JSR 


GSTCON 


1756 0C3A 212E A 




JMP 


$ERR 


1757 0C3B A086 B 




ST 


R0, ITVAL 


1758 0C3C 21D6 A 




JMP 


$RET1 


1759 0C3D 


/ 






1760 0C3D 


t 


NON-ZERO DIGIT 


1761 0C3D D038 B 


$DEC: 


SUB 


R0,HEX30 


1762 0C3E 


i 


MPY ITVAL BY 10 P 


1763 0C3E 8486 B 




LD 


Rl , ITVAL 


1764 0C3F 5D01 A 




SHL 


Rl,l 


1765 0C40 A486 B 




ST 


Rl, ITVAL 


1766 0C41 5D02 A 




SHL 


Rl,2 


1767 0C42 C486 B 




ADD 


Rl , ITVAL 


1768 0C43 3400 A 




RADD 


R1,R0 


1769 0C44 A036 B 




ST 


R0 , ITVAL 


1770 0C45 2CE9 I 




JSR 


GNCVC 


1771 0C46 21CC A 




JMP 


$RET1 


1772 0C47 E035 B 




SKG 


R0,HEX2F 


1773 0C48 21C9 A 




JMP 


$BSPR1 


1774 0C49 E036 B 




SKG 


R0,HEX39 


1775 0C4A 21F2 A 




JMP 


$DEC 


1776 0C4B 21C6 A 




JMP 


$BSPR1 


1777 0C4C 


t 






1778 0C4C 


i 


X - HEX 


OR NAME 


1779 0C4C 2CE9 I 


$X: 


JSR 


GNCVC 


1780 0C4D 2103 A 




JMP 


$NAME 


1781 0C4E F045 B 




SKNE 


R0, QUOTE 


1782 0C4F 21B8 A 




JMP 


$HEX 



;LOOP BACK FOR NEXT HEX DIGIT 
VALUE ERROR 



; ERROR - NO ITEM FOLLOWS UNARYOPERATOP 
;TEST NEW CHAR. 



;GET NEXT VALID CHAR. 
;N0 MORE 

; BACKSPACE AND RETURN 1 



yNONE - NAME IS X 

; x' 



IMPASM8K 



1783 
1784 
1785 
1786 
1787 
1788 
1739 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 



0C50 
0C51 
0C51 
3C51 
0C52 
0C53 
0C54 
0C55 
0C56 
0C57 
0C58 
0C59 
0C5A 
0C5B 
0C5C 
0C5D 
0C5E 
0C5F 
0C60 
0C61 
0C61 
0C61 
0C62 
0C63 
0C64 
0C65 
0C66 
0C67 
0C68 
0C69 
0C69 
0C69 
0C6A 
0C6B 
0C6C 
0C6C 
0C6D 
0C6E 



7C5E B 



7C5E B $NAME: 
291C A 
2115 A 

8082 B 
A086 B 

8083 B 
607B B 
A07B B 
8300 A 
682C B 
A300 A 

8084 B 
E02C B 
2105 A 
6027 B 
2103 A 



845C B $DOT: 

306B B 

A486 B 

A087 B $SYRET: 

F026 B 

21AC A 

81B7 A 

11B0 A 



4C18 A SERR: 
2CAA I 
0200 A 

7C5E B $BS0; 

0200 A 

F000 A XF00S 



DSZ 

NAME 

DSZ 

JSR 

JMP 

LD- 

ST 

LD 

AND 

ST 

LD 

OR 

ST 

LD 

SKG 

JMP 

AND 

JMP 



INPTR 



INPTR 

GSYM 

$ERR 

R0,STVAL 

R0 r ITVAL 

R0 r STPDEF 

R0,EXPPD 

R0 r EXPPD 

R0,0(R3) 

R0 f K4 

R0,0(R3) 

R0 , STREL 

R0 f K4 

$SYRET 

R0,K3 

$SYRET 



USE LOCCTR 



LD 

LD 

ST 

ST 

SKNE 

JMP 

LD 

BOC 



LI 

JSR 

RTS 



Rl f LOCCTR 

R0,SECT 

Rl , ITVAL 

R0 r ITREL 

R0,K1 

$RET1 

R0,$UOP 

Z f $NOUN 



R0 f 24? 

ERROR 



INPTR 



; INPUT CHAR PTR 



; INPUT CHAR PTR 

;GET SYMBOL 

;NOT A VALID NAME 



;PREV.DEF. 1=YES 
yPREV.DEF. 1=YES 



;SET USED BIT 



;SYMBL RETURN 



;ABS - PROCESS UNARY OPS IF THERE WERE 



DSZ 

RTS 

.WORD 0F000 



SYNTAX ERROR 



; INPUT CHAR PTR 



; SYNTAX ERROR 



1821 0C6F 
18T3 area 



.PAGE 'GET SYMBOL , BUILD NAME/DIR' 



1823 
1824 
1825 
1826 
1827 
1823 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1833 
1839 
1840 
1841 
1842 
1843 



0C6F 
0C6F 
0C6F 
0C6F 
0C6F 
0C6F 
0C6F 
0C6F 
0C70 
0C71 
0C71 
0C72 
0C73 
0C74 
0C75 
0C76 
0C77 
0C78 
0C79 
0C7A 
0C7B 



4C00 A GSYM: 
2101 A 



4C02 

A10E 

2C9E 

0200 

290C 

0200 

8109 

C080 B 

A030 B 

2963 A 

24EB I 



GFORM: 
$GS2: 



GET SYMBOL (IF ANY) 

SCANS NAME, SEARCHES SYMBOL TABLE, R0=STVAL , R1=STREL 
R3=STPT 



LI 
JMP 

LI 

ST 

JSR 

RTS 

JSR 

RTS 

LD 

ADD 

ST 

JSR 

JMP 



JSR 



R0 f 
$GS2 



GSYM 

NO SYMBOL RETURN 

NORMAL RETURN 



R0 r 2 

R0 r $SORF 

GNVC 

BLDNAM 

R0,$SORF 
R0,CNAM0 
R0 , CNAM0 
STSER 
INABS-1 



;SYMBOL30R3FORM 

;NO SYMBOL RETURN 
; BUILD NAME 
?NO NAME RETURN 

;1ST 2 COMPRESSED CHARS. OF NAME 
?1ST 2 COMPRESSED CHARS. OF NAME 
; SEARCH SYMBOL TABLE 
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1844 
1^45 
184^ 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 



0C7C 
0C7D 
0C7E 
0C7F 
0C80 
0C81 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C82 
0C83 
0C84 
0C85 
0C86 
0C87 
0C88 
0C89 
0C89 
0C8A 
0C8B 
0C8C 
0C8D 
0C8E 
0C8F 
0C90 
0C90 
0C90 
0C90 
0C91 
0C92 
0C93 
0C94 
0C95 
0C96 
0C97 
0C97 
0C98 
0C99 
0C9A 
0C9B 
0C9C 
0C9D 
0C9E 
0C9E 
0C9F 
0CA0 
0CA1 
0CA2 
0CA3 
0CA4 
0CA4 
0CA5 
0CA6 
0CA7 



8082 B 
8484 B 
0201 A 
4400 A 
24 BA I 
0C82 A 



$GS1: 
$SORF: 



F04E B BLDNAMi 

2105 A 

E032 B 

0200 A 

E033 B 

2108 A 

0200 A 



4D08 A 
A480 B 
806C B 
5C08 A 
3181 A 
5D02 A 
2103 A 



4D00 A 
A480 B 
2933 A 
2929 A 
A07D B 
C480 B 
A480 B 

2924 A 
A07E B 
A481 B 
2921 A 
A07F B 
F04 8 B 
210F A 

8030 B 
C07D 3 
A07D B 
4C01 A 
C080 B 
A080 B 

4C08 A 
7080 B 
2101 A 
2105 A 



$1: 



BLDDIR: 
$2: 



$3: 



LD 


R0 , STVAL 


LD 


Rl r STREL 


RTS 


1 


PULL 


R0 


JMP 


ENDST 


.= . + 1 





; VALUE 

; RELOCATION CODE 



STATEMENT END 



BUILD NAME OR DIRECTIVE 

JSR BLDNAM OR BLDDIR 
NO NAME RETURN 
NORML RETURN 

ENTRY: R0 CONTAINS 1ST CHAR 

EXIT: R0 CONTAINS NEXT VALID CHAR (BUT NOT SKIPPE 

$ REPLACED WITH REGION NUM. 

SET NAM0,NAM1,NAM2,CNAM0,CNAM1 



SKNE 

JMP 

SKG 

RTS 

SKG 

JMP 

RTS 

BUILD 

LI 

ST 

LD 

SHL 

RCPY 

SHL 

JMP 



R0, DOLLAR 

$1 

R0,HEX40 

R0,HEX5A 
$2 

LOCAL NAME 
Rl,8 

R1,CNAM0 
R0,LOCREG 
R0,8 
R0 r Rl 
Rl,2 
$3 



;$ OK 
;A -1 
;NOT A VALID NAME 

;z 

;NOT A VALID NAME 



;1ST 2 COMPRESSED CHARS. OF NAME; SET LO 



BUILD NON LOCAL NAME 



LI 

ST 

JSR 

JSR 

ST 

ADD 

ST 

JSR 

ST 

ST 

JSR 

ST 

SKNE 

JMP 

SET LONG 

LD 

ADD 

ST 

LI 

ADD 

ST 

TEST IF 

LI 

SKAZ 

JMP 

JMP 



R1,0 

R1,CNAM0 

$GL1 

$GP1 

R0,NAM0 

R1,CNAM0 

R1,CNAM0 



;1ST 2 COMPRESSED CHARS. OF NAME 



;1ST 2 CHARACTERS OF NAME ; STORE 1ST 
;1ST 2 COMPRESSED CHARS. OF NAME; PICK U 
;1ST 2 COMPRESSED CHARS. OF NAME 



$GP 

R0,NAM1 

R1,CNAM1 

$GP 

R0,NAM2 

R0, BLANKS 

$4 

SYMBOL FLAGS 
R0,X8000 
R0,NAM0 
R0,NAM0 
R0,1 

R0,CNAM0 
R0,CNAM0 
LOCAL LONG SYMBOL 
R0,8 

R0,CNAM0 ;1ST 
. + 2 
$4 



;3RD AND 4TH CHARACTERS OF NAME ; STORE 
;COMPRESSED 3RD AND 4TH CHARS. COMPRESSE 

;5TH AND 6TH CHARACTERS OF NAME ; STORE 



;1ST 
;1ST 

;1ST 
;1ST 



2 CHARACTERS OF NAME 

2 CHARACTERS OF NAME 

2 COMPRESSED CHARS. OF NAME 

2 COMPRESSED CHARS. OF NAME 



2 COMPRESSED CHARS. OF NAME 
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1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 



0CA8 
0CA8 
0CA9 
0CAA 
0CAB 
0CAC 
0CAD 
0CAE 
0CAF 
0CB0 
0CB1 
0CB2 
0CB2 
0CB3 
0CB4 
0CB5 
0CB6 
0CB7 
0CB8 
0CB9 
0CBA 
0CBB 
0CBC 
0CBC 
0CBC 
0CBC 
0CBD 
0CBE 
0CBF 
0CC0 
0CC1 
0CC2 
0CC3 
0CC3 
0CC4 
0CC5 
0CC5 
0CC5 
0CC5 
0CC6 
0CC7 



807F B 
5CF8 A 
5C08 A 
C034 B 
A07F B 
807D B 
F10B A 
24D9 I 
F10A A 
2409 I 



YES-FORCE BLANK IN 6TH CHAR OF LOCAL SYMBOL 



$4: 



291D A 
F034 B 
2101 
21FC 
2C9E 
0201 
7C5E B 
0201 A 
2E20 A 
2420 A 



2908 
A105 
A505 
290B 
C102 
C502 
0200 

0000 
0000 



3181 A 
D434 B 



1 n A a nr>r*o cr>«o x 
j.^"to zj\,\,a j\*vo n. 



1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1959 



0CC9 
0CCA 
0CCB 
0CCB 
0CCB 
0CCB 
0CCC 
0CCD 
0CCE 
0CCF 
0CD0 
0CD0 
0CD0 
0CD0 
0CD1 
0CD2 
0CD3 
0CD4 
0CD5 
0CD6 
0CD7 



5D0A A 
0200 A 



2904 A 
3181 A 
D434 B 
5D04 A 
0200 A 



2CEC I 
2107 A 
E035 B 

2104 A 
E032 B 

2105 A 
E033 8 
0200 A 



$4B: 



$4A: 



$DT: 
$DL: 



$GP: 
$GP1 



$T0: 
$T1: 



$GL: 
$GL1: 



$GR: 



$GAN: 



LD 

SHR 

SHL 

ADD 

ST 

LD 

SKNE 

JMP 

SKNE 

JMP 



R0 r NAM2 

R0 f 8 

R0,8 

R0 , BLANK 

R0,NAM2 

R0,NAM0 

R0,$DT 

XERROR 

R0,$DL 

XERROR 



;5TH AND 6TH CHARACTERS OF NAME 



5TH AND 6TH CHARACTERS OF NAME 

1ST 2 CHARACTERS OF NAME yTEST IF MA 



SKIP EXCESS CHARS. IN NAME IF ANY 



JSR 

SKNE 

JMP 

JMP 

JSR 

RTS 

DSZ 

RTS 

.WORD 

.WORD 



$GAN 

R0, BLANK 

$4A 

$4B 

GNVC 

1 

INPTR 

1 

'$' 



; INPUT CHAR PTR 



GET PAIR OF CHAR 



$GL 

R0,$T0 

R1,$T1 

$GR 

R0,$T0 

R1.ST1 



JSR 

ST 

ST 

JSR 

ADD 

ADD 

RTS 

.WORD 
.WORD 



GET LEFT CHAR 



TEMP0 
TEMPI 



Ten 

RCPY 

SUB 

SHL 

SHL 

RTS 



■?vaAN 

R0,R1 
R1,HEX20 
R0 , 8 
Rl,3* 



GET RIGH CHAR 



JSR 

RCPY 

SUB 

SHL 

RTS 



$GAN 
R0 r Rl 
R1,HEX20 
Rl,4 



GET NEXT CONSECUTIVE CHAR IF ALPHA/NUM ELSE BLANK 



JSR 
JMP 
SKG 
JMP 
SKG 
JMP 
SKG 
RTS 



GNC 

$11 

R0,HEX2F 

$10 

R0,HEX40 

$12 

R0 f HEX5A 



fNEXT CHAR 
;NONE 
;0 -1 
;NOT A/N 

;MAY BE NUMERIC 

;Z 

;CHAR I A/N 
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1970 0CD8 7C5E B $10: 

1971 0CD9 8034 B $11: 

1972 0CDA 0200 A 

1973 0CDB E036 B $12: 

1974 0CDC 0200 A 

1975 0CDD 21FA A 



DSZ 


INPTR 


LD 


R0, BLANK 


RTS 




SKG 


R0,FEX39 


RTS 




JMP 


$10 



; INPUT CHAR PTR ;NOT A/N - BACKSPACE 



;9 



; RETURN WITH A/N 



1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 



0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDF 
0CE0 
0CE1 
0CE2 
0CE3 
0CE4 
0CE5 
0CE5 
0CE5 
0CE5 
0CE6 
0CE7 
0CE8 
0CE8 
0CE9 
0CEA 
0CEB 
0CEC 
0CEC 
0CED 
0CEE 
0CEF 
0CF0 
0CF1 
0CF2 
0CF3 
0CF3 
0CF3 
0CF4 
0CF5 
0CF6 
0CF7 
0CFR 
0CF9 
0CF9 
0CFA 
0CFB 
0CFC 



8065 
A062 
8064 
A061 
8063 
A060 
8152 



8C61 
A152 
2108 

8300 
6150 
F080 
211D 

8300 
6027 
50FE 
3300 
FC62 
2137 
21F5 



8080 
6027 
50FE 
C062 
E060 
212A 

A062 
B13E 
4801 
A074 



STSER: 



.PAGE 'STSER - SYMBOL TABLE SEARCH' 
. LOCAL 

SYMBOL TABLE SEARCH 

JSR STSER 

OVERFLOW RETURN 

NORMAL RETURN (R3 PTS. TO ENTRY) 

WILL APPEND NEW ENTRY IF NOT FOUND 



SET REGION A 



B $RSER: 

A 

A 

A $1: 
A 
B 
A 

A $3: 

B 

A 

A 

B $4: 

A 

A 

$APEND: 
B $ APPEND; 
B 
A 
B 
B 
A 

B 
A 
A 
B 



LD 
ST 
LD 
ST 
LD 
ST 
LD 



R0,NEXTA 

R0,NEXT 

R0,TOPA 

R0 r TOP 

R0,BASEA 

R0,BASE 

R0,$NXTA 



REGION SEARCH 

LD R3,TOP 
ST R0 , $ONXT 
JMP $4 
TOP OF LOOP 
LD R0,0(R3) 
AND R0,XFFFB 
SKNE R0 r CNAM0 
JMP $2 
NO MATCH- LOOP 



;1ST 2 COMPRESSED CHARS. OF NAME 
;WORD MATCH 



LD 

AND 

CAI 

RADD 

SKNE 

JMP 

JMP 



R0,0(R3) 

R0,K3 

R0,-2 

R0,R3 

R3,NEXT 

$REND 

$1 



APPEND ENRY IF ROOM 



<.<ucv wuro otaoiG a 
2030 0CFE A300 A 



LD 
AND 
CAI 
ADD 
SKG 
JMP 
YES - 
ST 
ST 

AISZ 
ST 

ST 



R0,CNAM0 
R0,K3 
R0,-2 
R0,NEXT 
R0,BASE 
$ROV 
ROOM AVAIL. 
R0 r NEXT 
R0,@$QNXT 
R0,1 
R0 f FORMPT 

R0,0(R3) 



; REGION END 
;NEXT ENTRY LOOP 



;1ST 2 COMPRESSED CHARS. OF NAME 



; REGION OVERFLOW 
- APPEND ENTRY 



;xbT /. COMPRESSED CHARS. OF NAME 
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2031 
2032 
2033 
2034 
2035 
2035 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 

*\ n ■» *\ 
CO I 4 

2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2381 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 



0CFF 
0D00 
0D01 
0D02 
0D03 
0D04 
0D05 
0D05 
0D06 
0D07 
0D08 
0D09 
0D09 
0D0A 
0D0B 
0D0C 
0D0D 
0D0E 
0D0F 
0D0F 
0D10 
0D11 
0D12 
0D13 
0D14 
0D15 
0D16 
0D17 
0D18 
0D19 
0D1A 
0D1B 
0D1C 
0D1D 
0D1E 
0D1F 
0D1F 
0D1F 
0D20 
0D21 
0D2 2 
0D23 
0D23 
0D23 
0D23 
0D24 
0D25 
0D26 
0D27 
0D27 
0D28 
0D29 
0D29 
0D29 
0D29 
0D2A 
0D2B 
0D2C 
0D2C 
0D2D 
0D2E 
0D2F 
0D2F 



8481 B 

A7FF A 

4D00 

A7FE 

1301 

2102 



847F B $6 
A7FD A 
AC85 B $7 
2106 A 



$2: 



$2Ai 
$9: 



87FF A 
642E B 
F481 B 
2101 A 
21DE A 
1310 A 

8300 A 
6027 B 
50FF A 
3C00 A 
A074 B 
83FF A 
5CFD A 
6026 B 
A083 B 
83FF A 
602A B 
A084 B 
83FE h 
A082 B 
AC85 B 
0201 A 



87FD A $8 
F47F B 
21ED A 
21C9 A 



8060 B $ROV: 
F066 B 

A 

A 



2101 
2103 



4C24 
24AA 



; YES- 
$10: 



8060 B $REND: 

F066 B 

21C7 A 

8068 B 

F067 B 

21C4 A 



LD 

ST 

LI 

ST 

BOC 

JMP 



R1,CNAM1 

Rl,-1(R3) 

R1,0 

R1,-2(R3) 

ODD, $6 

$7 



; COMPRESSED 3RD AND 4TH CHARS. 



?LONG SYMBOL 



NEW ENTRY TO CONTAIN LONG SYMBOL 



LD 
ST 
ST 
JMP 



Rl r NAM2 
R1,-3(R3) 
R3,STPT 
$9 



;5TH AND 6TH CHARACTERS OF NAME 



•SET UP RESULTS AND RETURN 



WORD0 MATCH CHECK OTHERS 



LD 

AND 

SKNE 

JMP 

JMP 

BOC 



R1,-1(R3) 

R1,XFFF0 

R1,CNAM1 

$2A 

$3 

ODD ,$8 



;FFF0 INCLUDES LOCAL BIT 
; COMPRESSED 3RD AND 4TH CHARS. 

y NO MATCH 

; CHECK 3RD WORD 



MATCH GOOD - SET RESULTS AND RETURN 



LD 

AND 

CAI 

RADD 

ST 

LD 

SHR 

AND 

ST 

LD 

AND 

ST 

LD 

ST 

ST 

RTS 



R0,0<R3) 

R0,K3 

R0,-1 

R3 f R0 

R0,FORMPT 

R0,-1(R3) 

R0,3 

R0,K1 

R0,STPDEF 

R0,-1(R3) 

R0,K7 

R0 f STREL 

R0,-2(R3) 

R0,STVAL 

R3,STPT 

1 



CHECK MATCH OF 3RD WORD 



LD 

SKNE 
JMP 
JMP 



R1,-3(R3) 

R1,NAM2 

$9 

$3 



REGION OVERFLOW 

LD R0,BASE 

SKNE R0,BASEB 

JMP $10 

JMP $SETB 

SYMBOL TABLE OVERFLOW 

LI R0,36? 

JMP ERROR 

REGION END 



;5TH AND 6TH CHARACTERS OF NAME 
; MATCH 
;NO MATCH - LOOP 



;IS THIS LAST REGION? 



TABLE OVERFLOW ERROR 
;ALSO RETURN TO MY CALLER 



LD 
SKNE 

JMP 



R0,BASE 

R0 r BASEB 

$APEND 



;IS THIS LAST REGION? 
;YES 



MAYBE IN 2ND REGION UNLESS EMPTY 



LD 

SKNE 

JMP 



R0,NEXTB 

R0 f TOPB 

$APEND 



;IS REGION B EMPTY 
;YES 



SET UP REGION B 
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2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 



0D2F 
0D2F 
0D30 
0D31 
0D32 
0D33 
0D34 
0D35 
0D36 
0D37 
0D38 
0D39 
0D3A 
0D3B 
0D3B 
0D3B 
0D3B 
0D3B 
0D3B 
0D3B 
0D3C 
0D3D 
0D3E 
0D3E 
0D3F 
0D40 
0D41 
0D42 
0D43 
0D44 
0D45 
0D46 
0D47 
0048 
0D49 
0D49 
0D4A 
0D4B 
0D4C 
0D4D 
0D4E 
0D4F 
0D50 
0D51 



8068 B SSETB: 
A062 B 

8066 B 
A060 B 

8067 B 
A061 B 
8102 A 
21AE A 

0065 B $NXTA: 
0068 B $NXTB: 
0D3A A $QNXT: 
FFFB A XFFFB: 



DISER: 



8D15 A 
847E B 
887F B 

807D B $2: 
F302 A 



2101 
2107 
F703 
2101 
2105 
1201 
FB04 
0201 
2101 



$2B: 



8302 A $3: 
1201 A <?4: 



4B01 
4B04 
FD02 
0200 
21EE 
156C 
1406 



LD 

ST 

LD 

ST 

LD 

ST- 

LD 

JMP 

.WORD 

.WORD 

. = . + 1 

.WORD 

.PAGE 

. LOCAL 



R0,NEXTB 

R0,NEXT 

R0,BASEB 

R0,BASE 

R0 f TOPB 

R0,TOP 

R0,$NXTB 

$RSER 

NEXTA 

NEXTB 

0FFFB 



; REGION SEARCH 



DIRECTIVE / INSTRUCTION SEARCH 



LD R3,DITBLF 
LD R1,NAM1 
LD R2,NAM2 
BEGIN LOOP 



LD 

SKNE 

JMP 

JMP 

SKNE 

JMP 

JMP 

BOC 

SKNE 

RTS 

JMP 



R0,NAM0 

R0,2(R3) 

. + 2 

$3 

R1,3(R3) 

$2B 

$4 

P,.+2 

R2,4(R3) 

1 

$4 



;3RD AND 4TH CHARACTERS OF NAME 
;5TH AND 6TH CHARACTERS OF NAME 

?1ST 2 CHARACTERS OF NAME 1ST 2 CHARA 



NOT FOUND YET 



DITBLL: 
DITBLF: 



LD 

BOC 

AISZ 

AISZ 

SKNE 

RTS 

JMP 

.WORD 

.WORD 



R0,2(R3) 
P,. + 2 
R3,l 
R3,4 
R3,DITBLL 

$2 

DITBL2 

DITBLB 



; FOUND 



; 5 WORD ENTRY 



;NOT FOUND 
? REPEAT LOOP 



2138 0D52 

2139 0D52 

2140 0D52 

2141 0D52 

2142 0D52 

2143 0D52 

2144 0D52 

2145 0D52 

2146 0D52 GNSTRGi 

2147 0D52 2C9E I 

2148 0D53 0200 A 

2149 0D54 F045 B 

2150 0D55 2101 A 

2151 0D56 2122 A 

2152 0D57 4C00 A $2A: 

2153 0D58 A134 A 

2154 0D59 4C00 A $2: 



.PAGE 'GET STRING - GNSTRG,GCSTRG, GSTCON ' 

GET NEW STRING FIRST 2 CHARACTERS - DO NOT HAVE 1ST QUOTE 
JSR GNSTRG 

NONE OR ERROR RETURN (ERROR ALREADY GENERATED) 
2 CHARS IN REG RETURN 



. LOCAL 

JSR 

RTS 

SKNE 

JMP 

JMP 

LI 

ST 

LI 



GNVC 

R0, QUOTE 

$2A 

$1 

R0,0 

R0,$END 

R0,0 



END OF STATEMNT 



ERROR - NOT A STRING 
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2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 



0D5A 
0D5B 
0D5C 
0D5D 
0D5E 
0D5F 
0D60 
0D61 
0D62 
0D62 
0D63 
0D64 
0D64 
0D65 
0D66 
0D67 
0D68 



A131 
2CEC 
211C 
F045 
2109 
852C 
3180 
1502 

A529 
21F7 

A528 
5C08 
C126 
0201 



A 

I $5: 

A 

B 

A 

A $7 

A 

A 

A 

A 

A $4: 
A 
A 
A 



41 12. 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 



0D68 
0D69 
0D6A 
0D6B 
0D6C 
0D6C 
0D6D 
0D6E 
0D6F 
0D70 
0D71 
0D72 
0D73 
0D74 
0D74 
0D75 
0D76 
0D77 
0D78 
0D79 
0D79 
0D7A 
0D7B 



2103 
F045 
21F3 

7C5E 
811E 
5C08 
1104 
C034 
4D00 
A51A 
0201 

8118 
1101 
0200 
8048 
21F9 

4C18 
2CAA 

0200 



l 5^: 
A 
B 
A 

B 

ft vD s 

A 
A 
B 
A 
A 
A 



$9: 



$8s 



$1: 



SIC! 



2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 



0D7C 
0D7C 
0D7C 
0D7C 
0D7C 
0D7C 
0D7C 
0D7D 
0D7E 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D80 
0D81 
0D82 
0D8 3 
0D84 
0D85 



8110 
11FD 
21DA 



A GCSTRG; 

A 

A 



29D7 
0200 
A10A 
810A 
1106 
2CEC 
2102 



GSTCON: 



ST R0 , $WORD 

JSR GNC 

JMP $1 

SKNE R0, QUOTE 

JMP $3 

LD Rl,$WORD 

RXCH R0,R1 

BOG NZ,$4 
THIS IS 1ST CHAR 

ST Rl , $WORD 

JMP $5 
THIS IS 2ND CHAR 

ST R1,$END 

SHL R0,8 

ADD R0,$END 

RTS 1 



; ERROR - ILLEGAL STRING 
; QUOTE 

;JMP IF THIS IS 2ND CHAR 

? REPEAT FOR 2ND CHAR 
;SET END INDIATOR NON ZERO-NOT STRG END 

;2ND RETURN WITH 2 CHRS. IN R0 



DO WE HAVE DOUBLE QUOTE OR CLOSING QUOTE 

JSR GNC 

JMP $6 j CLOSING QUOTE 

SKNE R0, QUOTE 

JMP $7 ; DOUBLE QUOTE 

CLOSING QUOTE - ZERO OR ONE CHAR STRING 

DSZ INPTR ; INPUT CHAR PTR 

LD R0 , $WORD 

SHL R0,8 

BOC Z,$8 

ADD R0 r BLANK 

LI R1,0 

ST Rl,$END ?SET STRING END 

RTS 1 

WAS A ZERO CHAR STRING 



LD 

BOC 

RTS 

LD 

JMP 

ERROR 

LI 

JSR 

RTS 



R0,$END 

Z,. + 2 

; STRING CONTINUATION EMPTY 

R0, BLANKS 

$9 



R0,24; 
ERROR 



SYNTAX ERROR 
'RETURN WITH NO STRING 



GET CONTINUATION OF STRING (2 CHARS AT A TIME) 
JSR GCSTRG 
NONE 
2 CHARS IN REG 



LD R0,$END 
BOC Z,$10 
JMP $2 



?END 
;NOT END 



GET STRING CONSTANT (2 CHAR STRING) - WE HAVE 1ST QUOTE 



JSR 

RTS 

ST 

LD 

BOC 

JSR 

JMP 



JSR 



S2A 



GSTCON 

ERROR RETURN 

2 CHARS IN R0 RETURN 



R0 , SWORD 

R0,$END 

Z,$ll 

GNC 

$12 



; ERROR ALREADY NOTED 



;NOTE ERROR AND RETURN TO MY CALLER 
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2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 



0D86 F045 B 

0D87 2102 A 

0D88 4C18 

0D89 24AA 

0D8A 

0D8A 8101 

0D8B 0201 

0D8C 

0D8C 

0D8C 0000 

0D8D 0000 

0D8E 

0D8E 

0D8E 

0D8E 



$12: 



$11: 



$WORDi 
$END: 



SKNE 


R0 f QUOTE 


JMP 


$11 


LI 


R0,24; 


JMP 


ERROR 


LEGAL 


STRING CONSTANT 


LD 


R0 , $WORD 


RTS 


1 



;NOTE ERROR AND RETURN TO MY CALLER 
SYNTAX ERROR 



.WORD 
.WORD 



1 SAVES 2 CHAR RESULT 
;0=STRING CONTINUED 



2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 



0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8F 
0D90 
0D90 
0D90 
0D90 
0D91 
0D92 
0D92 
0D92 
0D92 
0D92 
0D92 
0D93 
0D94 
0D95 
0D96 
0D97 
0D97 
0D97 
0D97 
0D97 
0D97 
3D98 
0D99 
0D9A 
0D9B 
0D9C 
0D9D 
0D9E 
0D9F 
0DA0 
0DA1 
0DA2 
0DA3 
0DA3 
0DA3 
0DA4 



4D01 A OGLOB: 
2104 A 



4D00 A RESETP: 
2102 A 



OMAP: 

2CED I 

21FC A 

802F B $STRT: 

2102 A 

0D97 A $LAST: 



24ED 
A162 
A562 
4C01 
A158 
8C64 B 
8365 B 
2904 A 
8C67 B 
3868 B 
2901 A 
0200 A 



OMAPNR: 



$STR1: 



A9F2 A 



SCANST; 



$LOOP: 



.PAGE 'SCAN SYMBOL TABLE - MAP, GLOBAL SYMBOLS, RESET P BITS 
. LOCAL 

SCAN SYMBOL TABLE: OUTPUT MAP, GLOBAL RECORDS AND RESET P BITS 



OUTPUT GLOBALS AND RESET P BITS 



LI 
JMP 



Rl,l 
$STRT 



RESET P BITS 



LI 

JMP 



R1,0 
$STRT 



OUTPUT MAP AND RESET P BITS 



.IF 

JSR 

JMP 

LD 

JMP 

. = .+1 



SIZE8 

MAPSOR 

RESETP 

R0,XFFF7 

$STR1 



OUTPUT MAP 



NO RESET OF P BITS 



.IF 

JMP 

ST 

ST 

LI 

ST 

LD 

LD 

JSR 

LD 

LD 

JSR 

RTS 



ST 



SIZE8 

MAPSOR 

R0,SFLAG 

R1,$MG 

R0,1 

R0,$GLBN 

R3,TOPA 

R2,NEXTA 

SCANST 

R3,TOPB 

R2,NEXTB 

SCANST 



R2,$LAST 



;MAP OR GLOBAL INDICATOR 
; GLOBAL NUMBER 
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2279 


0DA4 


FDF1 


A 


2280 


0DA5 


0200 


A 


2281 


0DA6 


8155 


A 


2282 


0DA7 


1401 


A 


2283 


0DA8 


2101 


A 


2284 


0DA9 


295B 


A 


2285 


0DAA 




< 


2286 


0DAA 






2287 


0DAA 


83FF 


A 


2288 


0DAB 


5CFE 


A 


2289 


0DAC 


1301 


A 


2290 


0DAD 


212E 


A 


2291 


0DAE 






2292 


0DAE 


814C 


A 


2293 


0DAF 


5000 


A 


2294 


0DB0 


1109 


A 


2295 


0DB1 


83FF 


A 


fine 


vuac 


6027 


o 

a 


2297 


0DB3 


1506 


A 


2298 


0DB4 


8300 


A 


2299 


0DB5 


602C 


B 


2300 


0DB6 


1103 


A 


2301 


0DB7 




i 


2302 


0DB7 


813C 


A 


2303 


0DB8 


A3FE 


A 


2304 


0DB9 


793A 


A 


2305 


0DBA 




i 


2306 


0DBA 




< 


2307 


0DBA 


8141 


A 


2308 


0DBB 


1331 


A 


2309 


0DBC 


211F 


A 


2310 


0DBD 


83FF 


A 


2311 


0DBE 


6027 


B 


2312 


0DBF 


1503 


A 


2313 


0DC0 


8300 


A 


2314 


0DC1 


602C 


B 


2315 


0DC2 


1119 


A 


2316 


0DC3 






2317 


0DC3 






2318 


0DC3 






2319 


0DC3 






2320 


0DC3 






2321 


0DC3 




S 


2322 


0DC3 


8300 


A 


2323 


0DC4 


291F 


A 


2324 


0DC5 


A13B 


A 


2325 


0DC6 


83FF 


A 


2326 


0DC7 


291C 


A 


2327 


0DC8 


A139 


A 


2328 


0DC9 


8300 


A 


2329 


0DCA 


87FD 


A 


2330 


0DCB 


1301 


A 


2331 


0DCC 


8448 


B 


2332 


0DCD 


291D 


A 


2333 


0DCE 


A134 


A 


2334 


0DCF 


83FE 


A 


2335 


0DD0 


A133 


A 


2336 


0DD1 


83FF 


A 


2337 


0DD2 


6027 


B 


2338 


0DD3 


1501 


A 


2339 


0DD4 


4C04 


A 


2340 


0DD5 


D026 


B 


2341 


0DD6 


5C0E 


A 



$300 



$3A; 



$5: 



SKNE 


R3,$LAST 


RTS 




LD 


R0,$MG 


BOC 


B1EQ1, .+2 


JMP 


$300 


JSR 


MAPLIN 



;N0 MAP 



FINISHED MAP, IS THIS A GLOBAL 

LD R0,-1(R3) 

SHR R0,2 

BOC ODD,. +2 

JMP $6 

SHOULD WE ASSIGN GLOBAL 

LD R0,$FLAG 

CAI R0 f 

BOC Z,$3A 

LD R0,-1(R3) 



;YES GLOBAL 
?NO GLOBAL 
A NUMBER 



;NO 



rt«L> KD r AJ 

BOC NZ r $3A 

LD R0,0(R3) 

AND R0,K4 

BOC Z,$3A 

ASSIGN GLOBAL NUMBER 

LD R0,$GLBN 

ST R0,-2(R3) 

ISZ $GLBN 

SHOULD WE OUTPUT GLOBALS? 



;NO 



; GLOBAL NOT USED 



LD 

BOC 

JMP 

LD 

AND 

BOC 

LD 

AND 

BOC 



R0,$MG 

ODD,. +2 

$6 

R0,-1(R3) 

R0,K3 

NZ,$5 

R0,0(R3) 

R0,K4 

Z,$6 



; GLOBAL NOT REQUESTED 



OUTPUT GLOBAL SYMBOL IF ANY 

GLOBAL OUT CODE HERE 
******** 



LD 


R0,0(R3) 


JSR 


$CONV 


ST 


R0,GLBUF+3 


LD 


R0,-1(R3) 


JSR 


$CONV 


ST 


R0,GLBUF+4 


LD 


R0,0(R3) 


LD 


R1,-3(R3) 


BOC 


ODD,. +2 


LD 


Rl, BLANKS 


JSR 


$CBZ 


ST 


R0,GLBUF+5 


LD 


R0,-2(R3) 


ST 


R0,GLBUF+6 


LD 


R0,-1(R3) 


AND 


R0,K3 


BOC 


NZ,.+2 


LI 


R0,4 


SUB 


R0,K1 


SHL 


R0,14 
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2342 


0DD7 


A128 


A 






ST 


R0,GLBUF+2 






2343 


0DD8 


4300 


A 




PUSH 


R3 






2344 


0DD9 


8D23 


A 




LD 


R3,GLBUF-1 






2345 


0DDA 


2CCB 


I 




JSR 


CKPNCH 






2346 


0DDB 


4700 


A 




PULL 


R3 






2347 


0DDC 
















2348 


0DDC 








BOTTOM ( 


DF LOOP 






2349 


0DDC 
















2350 


0DDC 


83FF 


A 


$6: 


LD 


R0,-1(R3) 






2351 


0DDD 


611D 


A 




AND 


R0 r $FLAG 






2352 


0DDE 


A3FF 


A 




ST 


R0,-1(R3) 


; RESET P BIT 




2353 


0DDF 


8300 


A 




LD 


R0,0(R3) 






2354 


0DE0 


6027 


B 




AND 


R0 r K3 






2355 


0DE1 


50FE 


A 




CAI 


R0,-2 






2356 


0DE2 


3300 


A 




RADD 


R0,R3 


; UPDATE TABLE PTR . 




2357 


0DE3 


21C0 


A 




JMP 


$LOOP 






2358 


0DE4 
















2359 


0DE4 








CONVERT 


6 BIT NAME 


IN R0 TO 8 BIT NAME 




2360 


0DE4 
















2361 


0DE4 


5CFC 


A 


$CONV: 


SHR 


R0,4 






2362 


0DE5 


3181 


A 




RCPY 


R0,R1 






2363 


0DE6 


603B 


B 




AND 


R0,HEX3F 






2364 


0DE7 


5DFA 


A 




SHR 


Rl,6 






2365 


0DE8 


5D08 


A 




SHL 


Rl r 8 






2366 


0DE9 


3100 


A 




RADD 


R0 r Rl 






2367 


0DEA 


C508 


A 




ADD 


R1,X2020 






2368 


0DEB 
















2369 


0DEB 








CONVERT 


BLANKS TO 


ZERO 




2370 


0DEB 
















2371 


0DEB 


4C00 


A 


$CBZ: 


LI 


R0,0 






2372 


0DEC 


F44R 


B 




SKNE 


Rl, BLANKS 






2373 


0DED 


0200 


A 




RTS 








2374 


0DEE 


3481 


A 




RCPY 


R1,R0 






2375 


0DEF 


6424 


B 




AND 


R1,K255 






2376 


0DF0 


F434 


B 




SKNE 


Rl f BLANK 






2377 


0DF1 


6042 


B 




AND 


R0,XFF00 






2378 


0DF2 


02^0 


A 




RTS 








2379 


0DF3 






/ 










2380 


0DF3 


2020 


A 


X2020: 


.WORD 


02020 






2381 


0DF4 


0000 


A 


$GLBN: 


.WORD 





; GLOBAL NUMBER 




2382 


0DF5 


0DF6 


A 


$NEXT: 


.= . + 1 








2383 


0DF6 


0DF7 


A 


$PT 




. = . + 1 








2384 


0DF7 


0DF8 


A 


$CT 




. = . + 1 








2385 


0DF8 


464F 


A 


$F0 




.WORD 


'FO' 






2386 


0DF9 


524D 


A 


$RM 




.WORD 


'RM' 






2387 


0DFA 


1089 


A 


$RTB: 


.WORD 


RELTB+1 






2338 


0DFB 


0DFC 


A 


$FLAG: 


. = . + 1 




;FFFF IF MAP DIRECTIVE 


ELSE FFF7 


2389 


0DFC 


0DFD 


A 


$MG: 


. = . + 1 


; MAP/GLOB 


INDICATOR 0=NONE l=GLOBAL 


2=MAP 


2390 


0DFD 


0DFE 


A 




.WORD 


. + 1 






2391 


0DFE 


4005 


A 


GLBUF: 


.WORD 


04005 






2392 


0DFF 


0E05 


A 




. = .+6 








2393 


0E05 
















2394 


0E05 








PRINT 1 


MAP LINE 






2395 


0E05 
















2396 


0E05 






MAPLIN: 










2397 


0E05 


ADEF 


A 




ST 


R3,$NEXT 






2398 


0E06 


7C71 


B 




DSZ 


PGRL 






2399 


0E07 


2102 


A 




JMP 


. + 3 






2400 


0E08 


4F07 


A 




LI 


R3 f 7 






2401 


0E09 


2CDF 


I 




JSR 


OPGSTR 


; OUTPUT PAGE STRING 




2402 


0E0A 


2CA5 


I 




JSR 


NEWLIN 






2403 


0E0B 






r 


NEW ENTRY 






2404 


0E0B 


8DE9 


A 






LD 


R3,$NEXT 
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2405 0E0C 8300 A 


LD 


R0,0(R3) 




2406 0E0D 6029 B 


AND 


R0,K8 




2407 0E0E 1103 A 


BOC 


Z,$NLCL 


;NON LOCAL 


2408 0E0F ; 


LOCAL 


SYMBOL 




2409 0E9F 4C24 A 


LI 


R0, '$'/256 




2410 0E10 2CEE I 


JSR 


OICH 


?OUT $ (1ST CHAR) 
; GO TO 2ND CHAR 


2411 0E11 2104 A 


JMP 


$l 


2412 0E12 ; 


NOW LOCAL 




2413 0E12 SNLCL: 








2414 0E12 8300 A 


LD 


R0,0(R3) 




2415 0E13 5CF6 A 


SHR 


R0,l0 




2416 0E14 C034 B 


ADD 


R0,HEX20 




2417 0E15 2CEE I 


JSR 


OICH 


yOUT 1ST CHAR 


2418 0E16 8300 A $1: 


LD 


R0,0(R3) 




2419 0E17 5CFC A 


SHR 


R0,4 




2420 0E18 603B B 


AND 


R0,HEX3F 




2421 0E19 C034 B 


ADD 


R0,HEX20 




e.te.4. oaxt\ £.\,z,t, i 


JSR 


OICH 


;OUT 2ND CHAR 


2423 0E1B 83FF A 


LD 


R0,-l(R3) 




2424 0E1C 5CF6 A 


SHR 


R0,l0 




2425 0E1D C034 B 


ADD 


R0,HEX20 




2426 0E1E 2CEE I 


JSR 


OICH 


;OUT 3RD CHAR 


2427 0E1F 83FF A 


LD 


R0,-l(R3) 




2428 0E20 5CFC A 


SHR 


R0,4 




2429 0E21 603B B 


AND 


R0,HEX3F 




2430 0E22 C034 B 


ADD 


R0,HEX20 




2431 0E23 2CEE I 


JSR 


OICH 


•OUT 4TH CHAR 


2432 0E24 * 


DO WE 


HAVE A LONG SYMBOL 


2433 0E24 8300 A 


LD 


R0,0(R3) 




2434 0E25 1302 A 


BOC 


ODD, $ LONG 




2435 0E26 ; 


SHORT 


SYMBOL 




2436 0E26 2CEF I 

2437 0E27 2102 A 


JSR 

JMP 


02B 
S2 


? OUTPUT 2 BLANKS 


2438 0E28 ; 


LONG SYMBOL 




2439 0E28 83FD A $LONG: 


LD 


R0,-3(R3) 




2440 0E29 2CCD I 


JSR 


02CH 




2441 0E2A • 








2442 0E2A • 


OUTPUT 


VALUE 




2443 0E2A 2CEF I $2: 


JSR 


02B 




2444 0E2B 8300 A 


LD 


v>a a /d-3\ 
BlE0l,$2A 




2445 0E2C 1401 A 


BOC 




2446 0E2D 2105 A 


JMP 


S2B 




2447 0E2E • 


FORM PMnrmv 








"i«\i 




2448 0E2E 81C9 A $2A: 

2449 0E2F 2CCD I 


LD 
JSR 


R0,$FO 
02CH 


; OUTPUT 'FORM' 


2450 0E30 81C8 A 


LD 


R0,$RM 




2451 0E31 2CCD I 


JSR 


02CH 




2452 0E32 2109 A 


JMP 


$7 




2453 0E33 $2B: 








2454 0E33 83FE A 


LD 


R0,-2(R3) 




2455 0E34 2CD2 I 


JSR 


OHEX 




2456 0E35 2CF0 I 


JSR 


OIB 




2457 0E36 83FF A 


LD 


R0,-l(R3) 




2458 0E37 602A B 


AND 


R0,K7 




2459 0E38 3281 A 


RCPY 


R0,R2 




2460 0E39 C9C0 A 


ADD 


R2 f $RTB 




2461 0E3A 8200 A 


LD 


R0,0(R2) 




2462 0E3B 2CCD I 

2463 0E3C 


JSR 


02CH 


; OUTPUT REL KEY 


2464 0E3C 4C2A A $7: 


LI 


R0,'*'/256 




2465 0E3D 8700 A 


LD 


Rl,0(R3) 




2466 0E3E 742C B 


SKAZ 


Rl,K4 




2467 0E3F 4C20 A 


LI 


R0,' 7256 
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2469 0E40 2CEE I 


JSR 


OICH 




2469 0E41 


.IF 


DBGVER 




2470 0E41 8099 B 


LD 


R0,MAPDEB 




2471 0E42 110F A 


BOC 


Z,$3 


;NO r 


2472 0E43 ; 








2473 0E43 7 


DEBUGGING 




2474 0E43 2CEF I 


JSR 


02B 




2475 0E44 8300 A 


LD. 


R0,0(R3) 




2476 0E45 6027 B 


AND 


R0,K3 




2477 0E46 C027 B 


ADD 


R0,K3 




2478 0E47 A1AP A 


ST 


R0,$CT 




2479 0E48 ADAD A 


ST 


R3 r $PT 




2480 0E49 2CEF I 


JSR 


02B 




2481 0E4A 81AB A 


LD 


R0,$PT 




2482 0E4B 2CD2 I 


JSR 


OHEX 




2483 0E4C $4: 








2484 0E4C 2CEF I 


JSR 


02B 




2485 0E4D 91A8 A 


LD 


R0,§$PT 




2486 0E4E 2CD2 I 


JSR 


OHEX 




2487 0E4F 7DA6 A 


DSZ 


$PT 




2488 0E50 7DA6 A 


DSZ 


$CT 




2489 0E51 21FA A 


JMP 


$4 




2490 0E52 


.ENDIF 






2491 0E52 ; 


FINISHED SPECIAL DEBUG 


CODE 


2492 0E52 ; 








2493 0E52 0200 A $3: 


RTS 






2494 0E53 


.IF 


SIZE8 




2495 0E53 


.PAGE 


'SORTED MAP PRINT' 


2496 0E53 


. LOCAL 






2497 0E53 ? 








2498 0E53 ; 


SORTED 


MAP PRINT 




2499 0E53 ; 








2500 0E53 4C00 A MAPSOR: 


LI 


R0,0 




2501 0E54 A15A A 


ST 


R0,$LST0 




2502 0E55 8155 A $100: 


LD 


R0,X7FFF 




2503 0E56 A155 A 


ST 


R0,$LOW0 




2504 0E57 8865 B 


LD 


R2 f NEXTA 




2505 0E58 8C64 B 


LD 


R3,TOPA 




2506 0E59 290F A 


JSR 


$MPS 




2507 0E5A 8R6R B 


LD 


R2,NEXTB 




2508 0E5B 8C67 B 


LD 


R3,TOPB 




2509 0E5C 290C A 


JSR 


$MPS 




2510 0E5D 814E A 


LD 


R0,$LOW0 




2511 0E5E F14C A 


SKNE 


R0,X7FFF 




2512 0E5F 0200 A 


RTS 






2513 0E60 8D53 A 


LD 


R3,SXR3 




2514 0E61 29A3 A 


JSR 


MAPLIN 




2515 0E62 8149 A 


LD 


R0,$LOW0 




2516 0E63 A14B A 


ST 


R0,$LST0 




2517 0E64 8148 A 


LD 


R0 ,$LOWl 




2518 0E65 A14A A 


ST 


R0,$LST1 




2519 0E66 8147 A 


LD 


R0,SLOW2 




2520 0E67 A149 A 


ST 


R0,$LST2 




2521 0E68 21EC A 


JMP 


$100 




2522 0E6P ; 








2523 0E6O ; 


MAP SEARCH FOR LOWEST 


SYMBC 


2524 0E69 ; 








2525 0E69 A948 A $MPS: 


ST 


R2,$END 




2526 0E6A 213D A 


JMP 


$BOTM 




2527 0E6B ; 








2528 0E63 ; 


LOAD WORD INTO R2 





;NOT DEBUG MODE 



42 



IMPASM8K 



2529 


0E6B 




# 








2530 


0E6B 8300 


A 


SLOOP: 


LD 


R0,0(R3) 




2531 


0E6C 5CFD 


A 




SHR 


R0,3 




2532 


0E6D 1301 


A 




BOC 


ODD ,$20 




2533 


0E6E 2102 


A 




JMP 


$21 




2534 


0E6F 6143 


A 


$20: 


AND 


R0 f HEX7E 




2535 


0E70 6944 


A 




OR 


R0 r X4000 




2536 


0E71 3281 


A 


$21: 


RCPY 


R0 f R2 




2537 


0E72 












2538 


0E72 






QUICK RANGE TEST 




2539 


0E72 












2540 


0E72 E139 


A 




SKG 


R0,$LOW0 




2541 


0E73 2101 


A 




JMP 


.+2 




2542 


0E74 212F 


A 




JMP 


$NXT 




2543 


0E75 F139 


A 




SKNE 


R0,$LST0 




2544 


0E76 2102 


A 




JMP 


$19 




2545 


0E77 E137 


A 




SKG 


R0,$LST0 




2546 


0E78 212B 


A 




JMP 


$NXT 




2547 


0E79 












2548 


0E79 






LOAD 


WORD 2 INTO Rl 




2549 


0E79 












2550 


0E79 8300 


A 


$19: 


LD 


R0,0(R3) 




2551 


0E7A 8448 


B 




LD 


Rl, BLANKS 




2552 


0E7B 7026 


B 




SKAZ 


R0,K1 




2553 


0E7C 87F1) 


A 




LD 


R1,-3(R3) 




2554 


0E7D 7029 


B 




SKAZ 


R0,K8 




2555 


0E7E 2101 


A 




JMP 


$22 




2556 


0E7F 2103 


A 




JMP 


$23 


; LOCAL 


2557 


0E80 6442 


B 


$22: 


AND 


R1,XFF00 




2558 


0E81 5CF6 


A 




SHR 


R0,10 




2559 


0E82 3100 


A 




RADD 


R0,R1 




2560 


0E83 












2561 


0E83 






LOAD 


WORD 1 INTO R0 




2562 


0E83 












2563 


0E83 83FF 


A 


$23: 


LD 


R0,-1(R3) 




2564 


0E84 5CFC 


A 




SHR 


R0,4 




2565 


0E85 




* 








2566 


0E85 




i 


COMPARE FOR > THAN LAST 


SYMBOL 


2567 


0E85 F929 


A 




SKNE 


P2 r $LST0 




n c c o 

tC JO 1 


0E86 2103 






JMP 


<*• <"■ Ti ** 




2569 


0E87 E927 


A 




SKG 


R2,$LST0 




2570 


0E88 211B 


A 




JMP 


$NXT 




^ C -T "1 














Of 1 X 


r'DO? £.1Y) 1 


t\ 




JWf 


:><iR 




2572 


0E8A F125 


A 


$GR1: 


SKNE 


R0,$LST1 




2573 


0E8B 2103 


A 




JMP 


$GR2 




2574 


0E8C E123 


A 




SKG 


R0,$LST1 




2575 


0E8D 2116 


A 




JMP 


$NXT 




2576 


0E8E 2102 


A 




JMP 


$GR 




2577 


0E8F E521 


A 


$GR2: 


SKG 


R1,$LST2 




2578 


0E90 2113 


A 




JMP 


$NXT 




2579 


0E91 












2580 


0E91 






GREATER, NOW TEST < THAN 


CURRENT 


2581 


0E91 












2592 


0E91 E91A 


A 


$GR: 


SKG 


R2, $LOW0 




2593 


0E92 2101 


A 




JMP 


.+2 




2584 


0E93 2110 


A 




JMP 


$NXT 




2595 


0E94 F917 


A 




SKNE 


R2,$LOW0 




2586 


0E95 2101 


A 




JMP 


. + 2 




2587 


0E96 2109 


A 




JMP 


$GOOD 




2588 


0E97 E115 


A 




SKG 


R0 f $LOWl 




2589 


0E98 2101 


A 




JMP 


.-1-2 




2590 


0E99 210A 


A 




JMP 


$NXT 




2591 


0E9A F112 


A 




SKNE 


R0,$LOW1 
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2592 


0E9B 


2101 


A 




JMP 


. + 2 


2593 


0E9C 


2103 


A 




JMP 


$GOOD 


2594 


0E9D 


E510 


A 




SKG 


Rl,$LOW2 


2595 


0E9E 


F50F 


A 




SKNE 


Rl,$LOW2 


2596 


0E9F 


2104 


A 




JMP 


$NXT 


2597 


0EA0 


A10C 


A 


SGOOD : 


ST 


R0 r $LOWl 


2598 


0EA1 


A50C 


A 




ST 


Rl r $LOW2 


2599 


0EA2 


A909 


A 




ST- 


R2,SLOW0 


2600 


0EA3 


AD10 


A 




ST 


R3,$XR3 


2601 


0EA4 


8300 


A 


$NXT: 


LD 


R0,0(R3) 


2602 


0EA5 


6027 


B 




AND 


R0,K3 


2603 


0EA6 


50FE 


A 




CAI 


R0,-2 


2604 


0EA7 


3300 


A 




RADD 


R0,R3 


2605 


0EA8 


FD09 


A 


$BOTM: 


SKNE 


R3 r $END 


2606 


0EA9 


0200 


A 




RTS 




2607 


0EAA 


21C0 


A 




JMP 


$LOOP 


2608 


0EAB 






i 






2609 


0EAB 


7FFF 


A 


X7FFF: 


.WORD 


07FFF 


2610 


0EAC 


0EAD 


A 


$LOW0: 


. = . + 1 




2611 


0EAD 


0EAE 


A 


$LOWl: 


. = . + 1 




2612 


0EAE 


0EAF 


A 


$LOW2: 


. = .+1 




2613 


0EAF 


0EB0 


A 


$LST0: 


. = .+1 




2614 


0EB0 


0EB1 


A 


$LST1: 


. = .+1 




2615 


0EB1 


0EB2 


A 


$LST2: 


. = . + 1 




2616 


0EB2 


0EB3 


A 


$END: 


. = . + 1 




2617 


0EB3 


007E 


A 


HEX7E: 


.WORD 


07E 


2618 


0EB4 


0EB5 


A 


SXR3: 


. = . + 1 




2619 


0EB5 


4000 


A 


X4000: 


.WORD 


04000 


2620 


0EB6 








.ENDIF 




2621 


0EB6 








.PAGE 


'INSTRUC 


2622 


0EB6 








. LOCAL 




2623 


0EB6 






i 






2624 


0EB6 






i 


LD f ST 




2625 


0EB6 






; 






2626 


0EB6 


2CF1 


I 


IC1: 


JSR 


EXPP2 


2627 


0EB7 


2CF2 


I 




JSR 


INERR 


2628 


0EB8 


5C0A 


A 




SHL 


R0,10 


2629 


0EB9 


C072 


B 




ADD 


R0,IVAL 


2630 


0EBA 


A072 


B 




ST 


R0,IVAL 


2631 


0EBB 


2C9D 


I 




JSR 


GCOMMA 


2632 


0EBC 


214A 


A 




JMP 


$80 


2633 


0EBD 


2C9E 


I 




JSR 


GNVC 


2634 


0EBE 


2103 


A 




JMP 


$11 


2635 


0EBF 


F032 


B 




SKNE 


R0,CAT 


2636 


0EC0 


2104 


A 




JMP 


$12 


2637 


0EC1 


7C5E 


B 




DSZ 


INPTR 


2638 


0EC2 


803E 


B 


$11: 


LD 


R0 r Xl000 


2639 


0EC3 


2CF3 


I 




JSR 


GADRIX 


2640 


0EC4 


210D 


A 




JMP 


$41 


2641 


0EC5 


8072 


B 


$12: 


LD 


R0 r IVAL 


2642 


0EC6 


C03E 


B 




ADD 


R0,X1000 


2643 


0EC7 


A072 


B 




ST 


R0,IVAL 


2644 


0EC8 


2CF4 


I 




JSR 


GADRX 


2645 


0EC9 


2108 


A 




JMP 


$41 


2646 


0ECA 






r 






2647 


0ECA 






r 


ADD , SUB 


, SKG, SKNE 


2648 


0ECA 






i 






2649 


0ECA 


2CF1 


I 


IC2: 


JSR 


EXPP2 


2650 


0ECB 


2CF2 


I 




JSP 


INERR 


2651 


0ECC 


5C0A 


A 




SHL 


R0,10 


2652 


0ECD 


C072 


B 


$21: 


ADD 


R0,IVAL 



INSTRUCTION CLASS PROCESSING' 



REG,@ADR(X) 



; INPUT CHAR PTR 

;GET ADR , ALLOW INDIRECT, ALLOW INDEX 

;SET INDIRECT 
REG , ADR (X) 
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2653 
2654 
265^ 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
26^3 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2636 
2697 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 



0ECE 
0ECF 
0ED0 
0ED1 
0ED1 
0ED1 
0ED1 
0ED2 
0ED3 
0ED4 
0ED5 
0ED5 
0ED5 
0ED5 
0ED6 
0ED7 
0ED8 
0ED9 
0ED9 
0ED9 
0ED9 
0EDA 
0EDB 
0EDB 
0EDB 
0EDB 
0EDC 
0EDD 
0EDE 
0EDE 
0EDE 
0EDE 
0EDF 
9EE0 
0EE1 
0EE2 
3EE3 
0EE3 
0EE3 
0EE3 
0EE4 
0EE5 
0EE6 
0EE7 
0EE8 
0EE9 
0EEA 
0EEB 
0EEC 
0EED 
0EEE 
0EEE 
0EEE 
0EEE 
0EEF 
0EF0 
0EF1 
0EF2 
0EF3 
0EF4 
0EF5 
0EF6 
0EF7 



A072 B 
2C9D I 
2136 A 



2CF4 I IC4 
8072 B $41 
855F A 
24F5 I 



2CF6 I IC3 
2CF2 I 
5C0A A 
21F4 A 



8072 B IC5: 
24F7 I 



15FD A IC5A: 
2CF8 I 
21FB A 



ST 


R0 , IVAL 


JSR 


GCOMMA 


JMP 


$80 



ISZ,DSZ 

JSR 
LD- 
LD 
JMP 



GADRX 
R0 r IVAL 
R1,IREL 
INOUT 



AND,OR,SKAZ 

JSR EXPP1 

JSR INERR 

SHL R0,10 

JMP $21 

NOP , PULLF , PUSHF , HALT 



ADR(X) 

?GET ADR,X OK, NO INDIRECT ALLOWED 

; INSTRUCTION RELOCATION MODE 

REG0/1,ADR(X) 



LD 
JMP 

ISCAN 



R0 , IVAL 
INABS 



2CF1 I 
2CF2 I 
5C08 A 
C072 B 
24F7 I 



2CF1 I 
2CF2 I 
5C08 A 
C072 B 
A072 B 
2C9D I 
211D A 
2CF9 I 
2CF2 I 
C072 B 
24F7 I 



2CF1 I 
2CF2 I 
5C08 A 
C072 B 
A072 B 
2C9D 
2112 
2CF9 
2CF2 
5001 



BOC NZ,IC5 
JSR QERROR 
JMP IC5 

PUSH, PULL, XCHRS 



IC6 



JSR 
JSR 
SHL 
ADD 
JMP 



EXPP2 

INERR 

R0,8 

R0,IVAL 

INABS 



AISZ,LI,CAI,ROL,SHL 



NO ARG 

;INSTR. ABS 
NO ARG 
;EXTD OK 

REG 

? INSTR ERROR 

REG,IMMED 8 BIT 



TP7 



JSR 

JSR 

SHL 

ADD 

ST 

JSR 

JMP 

JSR 

JSR 

ADD 

JMP 

ROR,SHR 



EXPP2 
INERR 
R0,8 

Dfl Ttr»r 

R0,IVAL 

GCOMMA 

$80 

EXPR 

INERR 

R0,IVAL 

INABS 



REG,IMMED 8 BIT 



IC7A: 



JSR 

JSR 

SHL 

ADD 

ST 

JSR 

JMP 

JSR 

JSR 

CAI 



EXPP2 

INERR 

R0,8 

R0,IVAL 

R0,IVAL 

GCOMMA 

$80 

EXP8 

INERR 

R0,1 
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2716 


0EF8 


6024 


B 


AND 


R0,K255 


2717 


0EF9 


C072 


B 


ADD 


R0,IVAL 


2718 


0EFA 


24F7 


I 


JMP 


INABS 


2719 


0EFB 










2720 


0EFB 






RADD 


,RXCH,RCPY,RX 


2721 


0EFB 










2722 


0EFB 


2CF1 


I IC8: 


JSR 


EXPP2 


2723 


0EFC 


2CF2 


I 


JSR 


INERR 


2724 


0EFD 


5C0A 


A 


SHL 


R0,10 


2725 


0EFE 


C072 


B 


ADD 


R0,IVAL 


2726 


3EFF 


A072 


B 


ST 


R0 , IVAL 


2727 


0F00 


2C9D 


I 


JSR 


GCOMMA 


2728 


0F01 


2105 


A 


JMP 


$80 


2729 


0F02 


2CF1 


I 


JSR 


EXPP2 


2730 


0F03 


297B 


A 


JSR 


INERR 


2731 


0F04 


5C08 


A 


SHL 


R0,8 


2732 


0F05 


C072 


B 


ADD 


R0,IVAL 


2733 


0F06 


24 F7 


I 


JMP 


INABS 


2734 


0F07 




t 






2735 


0F07 


2CFA 


I $80: 


JSR 


MERROR 


2736 


0F08 


8072 


B 


LD 


R0 , IVAL 


2737 


0F09 


24F7 


I 


JMP 


INABS 


2738 


0F0A 










2739 


0F0A 






JMP, JSR 


2740 


0F0A 










2741 


0F0A 


2C9E 


I IC9: 


JSR 


GNVC 


2742 


0F0B 


2103 


A 


JMP 


$91 


2743 


0F0C 


F032 


B 


SKNE 


R0,CAT 


2744 


0F0D 


2104 


A 


JMP 


$92 


2745 


0F0E 


7C5E 


B 


DSZ 


INPTR 


2746 


0F0F 


803D 


B $91: 


LD 


R0,HEX400 


2747 


0F10 


2CF3 


I 


JSR 


GADRIX 


2748 


0F11 


21C0 


A 


JMP 


$41 


2749 


0F12 


8072 


B $92: 


LD 


R0,IVAL 


2750 


0F13 


G03D 


B 


ADD 


R0,HEX400 


2751 


0F14 


A072 


B 


ST 


R0,IVAL 


2752 


0F15 


297B 


A 


JSR 


GADRX 


2753 


0F16 


21BB 


A 


JMP 


$41 


2754 


0F17 










2755 


0F17 






SFLG 


,PFLG 


2756 


0F17 










2757 


0F17 


2CFB 


I IC10: 


JSR 


EXPP3 


2758 


0F18 


2966 


A 


JSR 


INERR 


2759 


0F19 


5C08 


A 


SHL 


R0 f 8 


2760 


0F1A 


C072 


B 


ADD 


R0,IVAL 


2761 


0F1B 


A072 


B 


ST 


R0,IVAL 


2762 


0F1C 


2C9D 


I 


JSR 


GCOMMA 


2763 


0F1D 


24F7 


I 


JMP 


INABS 


2764 


0F1E 


2CDA 


I 


JSR 


EXPP7 


2765 


0F1F 


3081 


A 


NOP 




2766 


0F20 


C072 


B 


ADD 


R0,IVAL 


2767 


0F21 


24F7 


I 


JMP 


INABS 


2768 


0F22 










2769 


0F22 






BOC 




2770 


0F22 










2771 


0F22 


2CFC 


I IC11: 


JSR 


EXPP4 


2772 


0F23 


295B 


A 


JSR 


INERR 


2773 


0F24 


5C08 


A 


SHL 


R0,8 


2774 


0F25 


C072 


B 


ADD 


R0,IVAL 


2775 


0F26 


A072 


B 


ST 


R0,IVAL 


2776 


0F27 


2C9D 


I 


JSR 


GCOMMA 


2777 


0F28 


29 5 F 


A 


JSR 


MERROR 


2778 


0F29 


2CB9 


I 


JSR 


EXP 



REG , REG 



@ADR(X) 



j NONE 



; INPUT CHAR PTR 



POS3,POS7 



POS4,SPADR 
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2779 


0F2A 


2954 


A 




JSR 


INERR 




2780 


0F2B 


2CFD 


I 




JSR 


SPADR 




2781 


0F2C 


2103 


A 




JMP 


$111 


;NOT VALID SOECIAL ADR 


2732 


0F2D 


D03F 


B$ 


SUB 


R0,K256 




2783 


0F2E 


A072 


B 




ST 


R0,IVAL 




2784 


0F2F 


24F7 


I 




JMP 


INABS 




2785 


0F30 


2955 


A 


$111: 


JSR 


ADRERR 




2786 


0F31 


8072 


B 




LD- 


R0 f IVAL 




2787 


0F32 


24F7 


I 




JMP 


INABS 




2783 


0F33 


0F34 


A 


IREL: 


. = . + 1 




; INSTRUCTION RELOCATION MODE 


2789 


0F34 














2790 


0F34 








RTS,RTI 


,RIN,ROUT 


POS7 


2791 


0F34 














2792 


0F34 


2CDA 


I 


IC12: 


JSR 


EXPP7 




2793 


0F35 


3081 


A 




NOP 






2794 


0F35 


C072 


B 




ADD 


R0 , IVAL 




2795 


0F37 


24F7 


I 




JMP 


INABS 




2796 


0F3S 














2797 


0F38 








JSRP 




POS7 


2798 


0F33 















2799 


0F38 


1501 


A 


IC12A: 


BOC 


NZ,.+2 




2800 


0F39 


2945 


A 




JSR 


INERR 




2801 


0F3A 


2CDA 


I 




JSR 


EXPP7 




2802 


0F3B 


294C 


A 




JSR 


MERROR 




2803 


0F3C 


C072 


B 




ADD 


R0,IVAL 




2804 


0F3D 


24F7 


I 




JMP 


INABS 




2805 


0F3E 














2806 


0F3E 








JINT,SETST,CLRST,SETBIT 


,CLRBIT,CMPBIT,JMPP 


2807 


0F3E 












POS4 


2808 


0F3E 












_-__ 


2809 


0F3E 


1501 


A 


IC13A: 


BOC 


NZ,IC13 


;EXTD OK 


2810 


0F3F 


2944 


A 




JSR 


OERROR 




2811 


0F40 






> 








2312 


0F40 


2CFC 


I 


IC13: 


JSR 


EXPP4 




2813 


0F41 


293D 


A 




JSR 


INERR 




2814 


0F42 


C072 


B 




ADD 


R0 , IVAL 




2815 


0F43 


24F7 


I 




JMP 


INABS 




2816 


0F44 














2817 


0F44 








MPY,DIV 


,DADD,DSUB 


ADR(X) 


2818 


0F44 












__- 


2819 


0F44 


291A 


A 


IC14: 


JSR 


DBWIN 




2820 


0F45 


24 F5 


I 




JMP 


INOUT 




2821 


0F46 














2822 


0F46 








LDB,STB 


,LLB,SLB 


ADR(X) 


2823 


0F46 















2824 


0F46 


2918 


A 


IC15: 


JSR 


DBWIN 




2325 


0F47 


5C01 


A 




SHL 


R0 r l 




2326 


0F48 


2103 


A 




JMP 


IC16A 




2827 


0F49 














2828 


0F49 








LRB,SRB 




ADR(X) 


2829 


3F49 















2330 


3F49 


2915 


A 


IC16: 


JSR 


DBWIN 




2831 


0F4A 


5C01 


A 




SHL 


R0,1 




2832 


0F4B 


C026 


B 




ADD 


R0,K1 




2833 


0F4C 


F426 


B 


IC16A: 


SKNE 


R1,K1 




2334 


0F4D 


24F5 


I 




JMP 


INOUT 




2835 


0F4E 


2937 


A 




JSR 


ADRERR 




2336 


0F4F 


24F5 


I 




JMP 


INOUT 




2837 


0F50 














2338 


0F50 








JSRI 




ADR SPECIAL VALUE 


2839 


0F50 















2840 


0F50 


2CB9 


I 


IC17: 


JSR 


EXP 




2341 


0F51 


292D 


A 




JSR 


INERR 
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2342 
2343 
28 4* 
2345 
2946 
2847 
2P4P 
284<> 
2 R «=> ^ 
2851 
2352 
2853 
2854 
2855 
2855 
2857 
2358 
2850 
2860 
2861 
2862 
2863 
2854 
2865 
2866 
2857 
2368 
2369 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2980 
2881 
2832 
2883 
23R4 
2385 
2335 
2337 
2^33 
28«q 
2390 
23<U 
28^2 
2893 
2394 
23=>5 
2896 
2897 
2893 
2899 
2930 
2901 
2Q02 
2903 
2904 



0F52 
<*F53 
0F54 
0F55 
0F56 
^F57 

0F59 
0F5A 
0F5B 
0F5C 
0F5D 
0F5E 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
0F60 
0F61 
0F62 
0F63 
0F64 
0F65 
0F66 
0F67 
0F68 
0F69 
3F6A 
0F6B 
0F6B 
0F6C 
HF6D 
0F6E 
0F6F 
OF70 
AF71 
0F72 
0F73 
0F74 
0F75 
0F76 
0F77 
*5F78 
0F79 
0F7A 
?F7B 
3F7C 
*F7D 
0F7D 
0F7E 
0F7F 
3F7F 
0F7F 
0F7F 
0F80 
0F30 
0F31 
0F82 
<*F33 
0F34 
0F84 
0F85 



F426 B 
2103 A 
2931 A 
3072 B 
24F7 I 
683A B 
5000 A 
15FA A 
307A B 
5C09 A 
5CF7 A 
C072 B 
24F7 I 



1501 
2923 
2CB9 
2925 
A119 
A519 
2C9E 
2110 
F046 B 
2102 A 
7C5E B 
210C A 



2CF1 I 
291B A 
EPI26 B 
291B A 
5C08 A 
C072 e 
A072 B 
2C9E I 
2918 A 
F043 B 
2101 A 
2915 A 
307 2 B 
4D01 A 
2CAB I 
3102 A 
3502 A 
210 A 



DBWIN: 



$N0'<: 



0F7E A $VAL: 
1F7F A $REL: 



4C0A A INERR: 
INERR1: 
2CAA I 
307A B 
847C B 
0200 A 

4C36 A 0ERR0R: 
24AA I 



SKNE 


R1,K1 


.7 MP 


.+4 


JSR 


ADRERR 


LD 


R0,IVAL 


JMP 


INABS 


OR 


R0,HEX7F 


CAI 


R0,0 


BOC 


NZ, .-5 


LD 


R0,EXPVAL 


SHL 


R0,9 


SHR 


R0,9 


ADD 


R0,IVAL 


JMP 


INABS 



? EXPRESSION VALUE 



DOUBLE WORD INSTRUCTION SUBROUTINE 



BOC 

JSR 

JSR 

JSR 

ST 

ST 

JSR 

JMP 

SKNE 

JMP 

DSZ 

JMP 

INDEX 

JSR 

JSR 

SKG 

JSR 

SHL 

ADD 

ST 

JSR 

JSR 

SKNE 

JMP 

JSR 

LP 

LI 

JSR 

LD 

LD 

RTS 

. = . + 1 
. = . + 1 



INSTRUCTION ERROR 
LI P0,0; 



NZ,.+2 
OERROR 
EXP 

MERROR 
R0 , $VAL 
R1,$REL 
GNVC 
$NOX 

R0,LPAREN 
. + 3 
INPTR 
$NOX 
ING USED 
EXPP2 
MERROR 
R0,K1 
V ERROR 
R0,8 
R0,IVAL 
R0,IVAL 
GNVC 
SXERR 
R0,RPAREN 
. + 2 
$XERR 
R0,IVAL 
Rl,l 
OUTWRD 
R0,$VAL 
Rl^REL 



JSR 
LD 
LD 
RTS 

LI 
JMP 



ERROR 

R0,EXPVAL 

R1,EXPREL 



R0,54; 
ERROR 



?N0 INDEXING 



; INPUT CHAR PTR 
;N0 INDEXING 



MISSING ARGUMENT ERROR 



EXPRESSION VALUE 
EXPRESSION RELOCATION MODE 



EXTENDED INSTP. ERROR 
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2935 


0F86 




i 






2906 


0F86 


4C0C A 


ADRERR: 


LI 


R0,12; 


2907 


0F87 


21F8 A 




JMP 


INERR1 


290 Q 


0F88 




; 






2909 


0F88 


4C00 A 


MEPROR: 


LI 


R0,0; 


2910 


0F89 


21F6 A 




JMP 


INERR1 


2911 


0F8A 




t 






2912 


0F8A 


4C06 A 


VERROR: 


LI 


R0,6? 


2913 


0F8B 


21F4 A 




JMP 


INERR1 


2914 


0F8C 




> 






2915 


0F8C 


4C18 A 


$XERR: 


LI 


R0,24; 


2916 


0F8D 


21F2 A 




JMP 


INERR1 


2917 


0F8E 






.PAGE 


'ADDRESS 


2918 


0F8E 






. LOCAL 




2919 


0F8E 


4C00 A 


GADR: 


LI 


R0,0 


2920 


0FRF 


4D00 A 


GADRI : 


LI 


R1,0 


2921 


0F90 


2102 A 




JMP 


$ADR 


2922 


0F91 




i 






2923 


0F91 




i 






2924 


0F91 


4C00 A 


GADRX : 


LI 


R0,0 


2925 


0F92 


4D01 A 


GADRIX: 


LI 


Rl,l 


2926 


0F93 




i 






2927 


0F93 


A17C A 


$ADR: 


ST 


R0,$IFLAG 


2928 


0F94 


A57C A 




ST 


R1,$XFLAG 


2929 


0F95 


2CB9 I 




JSR 


EXP 


2930 


0F96 


214B A 




JMP 


SMERR 


2931 


0F97 


847C B 




LD 


R1,EXPREL 


2932 


0F98 


A59A A 




ST 


R1,IREL 


2933 


0F99 


2CE8 I 




JSR 


P1P2 


2934 


0F9A 


0200 A 




RTS 




2935 


0F9B 




• 


PASS 2 




2936 


0F9B 


807C B 




LD 


R0,EXPREL 


2937 


0F9C 


1503 A 




BOC 


NZ,$DEF 


2938 


0F9D 




t 


UNDEFINED 


2939 


0F9D 


4C2A A 




LI 


R0,42? 


2940 


0F9E 


2CAA I 




JSR 


EPROR 


2941 


0F9F 


^200 A 




RTS 




2942 


0FA0 




• 






2943 


0FA0 


F026 B 


SDEF: 


SKNE 


R0,K1 


2944 


0FA1 


2107 A 




JMP 


$ABS 


2945 


0FA2 


P040 g 




CVMP 


r>a v-> 












d-tl f t\£. 


2946 


0FA3 


2166 A 




JMP 


$BSECT 


2947 


0FA4 


F027 B 




SKNE 


F0,K3 


2948 


0FA5 


2134 A 




JMP 


$TSECT 


2949 


0FA6 


F02C B 




SKNE 


R0,K4 


2950 


0FA7 


2162 A 




JMP 


$EXT 


2951 


0FA8 


0000 A 




HALT 




2952 


0FA9 




f 






2953 


0FA9 




7 






2954 


0FA9 


2CQE I 


SABS: 


JSR 


GNVC 


2955 


0FAA 


2103 A 




JMP 


.+4 


2956 


0FAB 


7C5E B 




DSZ 


INPTR 


2957 


0FAC 


F045 B 




SKNE 


R0,LPAREN 


2958 


0FAD 


2106 A 




JMP 


$ABS1 


2959 


0FAE 


807A B 




LD 


R0,EXPVAL 


2960 


0FAF 


1201 A 




BOC 


P,.+2 


2961 


0FB0 


2108 A 




JMP 


$2 


2962 


3FB1 


E024 B 




SKG 


R0,K255 


2963 


0FB2 


210A A 




JMP 


$3 


2964 


0FB3 


2105 A 




JMP 


$2 


2965 


0FB4 


30 7 A B 


$ABS1: 


LD 


R0,EXPVAL 



ADDRESS ERROP 



MISSING ARG. ERROR 



VALUE ERROR 



SYNTAX ERROR 



;NO INDIRECT PERMITTED 
?NO INDEXING PERMITTED 



?NO INDIRECT PERMITTED 
; INDEXING PERMITTED 



;SAVE RELOC MODE FOR DISPLACEMENT 

? EXPRESSION RELOCATION MODE 
UNDEFINED ERROR ; UNDEFINED ARG. E 



:MY ERROR - REL MODE NOT TO 4 



EXPRESSION VALUE 
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2966 


0FB5 


E15E 


A 




SKG 


R0,KM129 


2967 


0FB6 


2102 


A 




JMP 


$2 


2968 


0PB7 


E03A 


B 




SKG 


R0,HEX7F 


296^ 


0FB8 


2104 


A 




JMP 


$3 


2970 


0FB9 


295B 


A 


$2: 


JSR 


SPADR 


2971 


0FBA 


2122 


A 




JMP 


STRYI 


2972 


0FBB 


0200 


A 




RTS 




2973 


0FBC 






* 


ADDRESS 


OK 


2974 


0FBC 


807A 


B 


$ADROK : 


LD 


R0,EXPVAL 


2975 


0FBD 


6024 


B 


$3: 


AND 


R0,K255 


2976 


0FBE 


C072 


B 




ADD 


R0,IVAL 


2977 


0FBF 


A072 


B 




ST 


R0 , IVAL 


2978 


0FC0 


8150 


A 




LD 


R0,$XFLAG 


2979 


0FC1 


1501 


A 




BOC 


NZ,$XOK 


2980 


0FC2 


0200 


A 




RTS 




2981 


0FC3 






i 


INDEXING OK 


2982 


0FC3 


2C9E 


I 


$XOK: 


JSR 


GNVC 


2983 


0FC4 


0200 


A 




RTS 




2984 


0FC5 


F046 


B 




SKNE 


R0 , LPAREN 


2985 


0FC6 


2102 


A 




JMP 


$LP 


2986 


0FC7 


7C5E 


B 




DSZ 


INPTR 


2987 


0FC8 


0200 


A 




RTS 




2988 


0FC9 






» 






2989 


0FC<» 






i 


LEFT PAREN 


2990 


0FC9 


2971 


A 


$LP: 


JSR 


EXPP2 


2991 


0FCA 


2109 


A 




JMP 


$VERR 


2992 


0FCB 


1401 


A 




BOC 


BlE01 r .+2 


2993 


0FCC 


2107 


A 




JMP 


$VERR 


2994 


0FCD 


5C0« 


A 




SHL 


R0,8 


2995 


0FCE 


C072 


B 




ADD 


R0,IVAL 


2995 


0FCF 


A072 


B 




ST 


R0,IVAL 


2997 


0FD0 


2C9E 


I 




JSR 


GNVC 


2998 


0FD1 


2102 


A 




JMP 


$VERR 


2999 


0FD2 


F043 


B 




SKNE 


R0,RPAREN 


3000 


0FD3 


0200 


A 




RTS 




3001 


0FD4 






• 






3002 


0FD4 






* 






3003 


0FD4 


4C06 


A 


$VERR: 


LI 


R0,6; 


3004 


0FD5 


2CAA 


I 




JSR 


ERROR 


3005 


0FD6 


4D01 


A 


SERET: 


LI 


Fl,l 


3006 


0FD7 


A47C 


B 




ST 


R1,EXPREL 


3007 


0FD8 


B4FE 


I 




ST 


R1,IREL 


3008 


0FD9 


0200 


A 




RTS 




30JI9 


0FDA 






/ 






3010 


0FDA 






/ 


EXP REL 


= TSECT 


3011 


0FDA 


806B 


B 


STSECT: 


LD 


R0,SECT 


3012 


0FDB 


F027 


B 




SKNE 


R0,K3 


3013 


0FDC 


21DC 


A 




JMP 


$2 


3014 


0FDD 






• 


TRY INDIRECT 


3015 


0FDD 


S132 


A 


$TRYI: 


LD 


R0,SIFLAG 


3016 


0FDE 


1506 


A 




BOC 


NZ,$IOK 


3017 


0FDF 






• 


INDIRECT NOT OK 


3018 


0FDF 


4C0C 


A 


$AERR: 


LI 


R0,12; 


301Q 


0FE0 


2CAA 


I 




JSR 


ERROR 


3020 


0FE1 


21F4 


A 




JMP 


$ERET 


3021 


0FE2 






i 






3022 


0FE2 


4C00 


A 


SMERR: 


LI 


R0,0; 


3023 


0FE3 


2CAA 


I 




JSR 


ERROR 


3024 


0FE4 


0200 


A 




RTS 




3025 


0FE5 












3026 


0FE5 








INDIRECT OK - GENE 


3027 


0FE5 








GENERATE POINTER 


3028 


0FE5 






$IOK: 







ySECIAL ADR- RELATIVE TO PC OK? 

;NO - TRY INDIRECT 

;YES 

; EXPRESSION VALUE 



? INDEXING OK 



j INPUT CHAR PTR 



? INDEX VALUE ERROR 



;SET INDEX FIELD 



VALUE ERROR 



; VALUE CRROR 



; EXPRESSION RELOCATION MODE 



;SECT = TSECT? 
;YES 



; INDIRECT OK 

ADDRESS ERROR 
;ADDRESSING ERROR 
; ERROR RETURN 

MISSING ARG. ERROR 
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3029 


0FE5 


8072 


B 




LD 


R0 , IVAL 


3030 


0FE6 


C129 


A 




ADD 


R0 r $IFLAG 


3031 


0FE7 


A072 


B 




ST 


R0 , IVAL 


3032 


0FE8 


8145 


A 




LD 


R0,$CI 


3033 


0FE9 


B0AE 


I 




ST 


R0 f RELTB+3 


3034 


0FEA 


2CE8 


I 




JSR 


P1P2 


3335 


0FEB 


2117 


A 




JMP 


$IOKl 


3036 


0FEC 


8D25 


A 




LD 


R3,PTABF 


3037 


0FED 


847C 


B 




LD 


R1,EXPREL 


3038 


0FEE 






r 


TOP OF 


LOOP 


3039 


0FEE 


8B01 


A 


$I0K5: 


LD 


R2,1(R3) 


3040 


0FEF 


8300 


A 




LD 


R0,0(R3) 


3041 


0FF0 


1108 


A 




BOC 


Z,$IOK2 


3042 


0FF1 


3482 


A 




RXOR 


R1,R0 


3043 


0FF2 


1502 


A 




BOC 


NZ,$IOK3 


3044 


0FF3 


F87A 


B 




SKNE 


R2,EXPVAL 


■w&s, 


(UPPA 


2109 


A 




■JMP 


$IOK4 


3046 


0FF5 






r 


NEXT3ENTRY 


3047 


0FF5 






$I0K3: 






3048 


0FF5 


4B02 


A 




AISZ 


R3,2 


3049 


0FF6 


FD1C 


A 




SKNE 


R3,PTABL 


3050 


0FF7 


210F 


A 




JMP 


$IOK6 


3051 


0FF8 


21F5 


A 




JMP 


$IOK5 


3052 


0FP9 






> 


ADD3NEW3ENTRY 


3053 


0ppq 


A700 


A 


5IOK2: 


ST 


Rl,0(R3) 


3054 


0FFA 


807A 


B 




LD 


R0 , EXPVAL 


3055 


0FFB 


A301 


A 




ST 


R0 r l(R3) 


3056 


0FFC 


4C00 


A 




LI 


R0,0 


3057 


0FFD 


A302 


A 




ST 


R0,2(R3) 


3058 


0FFE 






> 


ENTRY 3 FOUND 


3059 


0FFE 


DD13 


A 


?I0K4: 


SUB 


R3,PTABF 


3060 


0FFF 


5FFF 


A 




SHR 


R3,i 


3061 


1000 


CC5A 


B 




ADD 


R3,BMAX 


3062 


1001 


CC72 


B 




ADD 


R3,IVAL 


3063 


1002 


AC72 


B 




ST 


R3,IVAL 


3064 


1003 






' 


RETURN 




3065 


1003 


4D02 


A ! 


SI0K1: 


LI 


Rl,2 


3066 


1004 


A47C 


B 




ST 


Rl f EXPREL 


3067 


1005 


B4FE 


I 




ST 


R1,IREL 


3068 


1006 


0200 


A 




RTS 




3069 


1007 








TABLE30VERFLOW 


3070 


1007 


4C24 


A $I0K6: 


LI 


R0 f 36; 


3071 


1008 


2CAA 


I 




JSR 


ERROR 


3072 


1009 


21F9 


A 




JMP 


SIOK1 


3073 


100A 








END OF 


POINTER GENl 


3074 


100A 












3075 


100A 












3076 


100A 








EXP REL 


= EXTERNAL 


3077 


100A 




< 


5EXT: 






3078 


100A 












3079 


100A 








EXP REL 


= BSECT 


3080 


100A 


807A 


B < 


5BSECT: 


LD 


R0, EXPVAL 


3081 


100B 


1201 


A 




BOC 


P,$10 


3082 


100C 


21D2 


A 




JMP 


$AERR 


3083 


100D 


E024 


B < 


!10: 


SKG 


R0,K255 


3084 


100E 


21AD 


A 




JMP 


$ADROK 


3085 


100F 


21CF 


A 




JMP 


$AERR 


3086 


1010 




i 








3087 


1010 


1011 


A < 


» I FLAG: 


. = . + 1 




308« 


1011 


1012 


A < 


JXFLAG: 


.= . + 1 




3089 


1012 


156C 


A I 


>TABF : 


.WORD 


PTRTAB 


3090 


1013 


1698 


A I 


>TABL : 


.WORD 


PTREND-1 


3091 


1014 


FF7F 


A F 


,M129: 


.WORD 


-129 



; REPLACE B WITH I IN REL TABLE 

;PASS1 

; EXPRESSION RELOCATION MODE 

;ADD NEW ENTRY 

;NEXT 

; EXPRESSION VALUE 
. prwmn 



;TABLE30VERFLOW 
;GOT03TOP30F3LOOP 



f EXPRESSION VALUE 



(EXPRESSION RELOCATION MODE 



ERROP TABLE OVERFLOW 



; RETURN 



^EXPRESSION VALUE 



;OK - ADE IN RANGE TO 255 



; INDIRECT FLAG - 0=NOT ALLOWED 
; INDEX FLAG - 0=NOT ALLOWED 
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3092 


1015 










3093 


1015 










3094 


1015 






SPECIAL ADR ? 


3095 


1015 










3096 


1015 










3097 


1015 


2C9E I SPADR: 


JSR 


GNVC 


3098 


1016 


2103 A 


JMP 


$50 


3099 


1017 


7C5E B 


DSZ 


INPTR 


3100 


1018 


F046 B 


SKNE 


R0,LPAREN 


3101 


1019 


0200 A 


RTS 




3102 


101A 


806B B $50: 


LD 


R0,SECT 


3103 


101B 


F07C B 


SKNE 


R0,EXPREL 


3104 


101C 


2101 A 


JMP 


$51 


3105 


101D 


0200 A 


RTS 




3106 


101E 


807A B $51: 


LD 


R0,EXPVAL 


3107 


101F 


D05C B 


SUB 


R0,LOCCTR 


3108 


1020 


D026 B 


SUB 


R0,K1 


3109 


1021 


E1F2 A 


SKG 


R0,KM129 


3110 


1022 


0200 A 


RTS 




3111 


1023 


E03A B 


SKG 


R0,HEX7F 


3112 


1024 


2101 A 


JMP 


$52 


3113 


1025 


0200 A 


RTS 




3114 


1026 


6024 B $52: 


AND 


R0,K255 


3115 


1027 


C03F B 


ADD 


R0,K256 


3116 


1028 


C072 B 


ADD 


R0 , IVAL 


3117 


1029 


A072 B 


ST 


R0,IVAL 


3118 


102A 


4D01 A 


LI 


Rl,l 


3119 


102B 


A47C B 


ST 


R1,EXPREL 


3120 


102C 


B4FE I 


ST 


Rl,IREL 


3121 


102D 


0201 A 


RTS 


1 


3122 


102E 


i 






3123 


102E 


2049 A $CI: 


.WORD 


' I' 


3124 


102F 




.PAGE 


'SPECIAL I 


3125 


102F 




. LOCAL 




3126 


102F 










3127 


102F 










3128 


102F 










3129 


102F 


4C00 A EXPABS: 


LI 


R0,0 


3130 


1030 


$4: 






3131 


1030 


4D01 A 


LI 


Rl,l 


3132 


1031 


2112 A 


JMP 


$EXPN 


3133 


1032 


/ 






3134 


1032 


8030 B EXPP: 


LD 


R0,X8000 


3135 


1033 


4D00 A $5: 


LI 


R1,0 


3136 


1034 


210F A 


JMP 


$EXPN 


3137 


1035 


f 






3138 


1035 


802E B EXP4: 


LD 


R0,XFFF0 


3139 


1036 


21F9 A 


JMP 


$4 


3140 


1037 


f 






3141 


1037 


8042 B EXP8: 


LD 


R0,XFF00 


3142 


1038 


21F7 A 


JMP 


$4 


3143 


1039 


r 






3144 


1039 


4CFE A EXPP1: 


LI 


R0,-2 


3145 


103A 


21F8 A 


JMP 


$5 


3146 


103B 


t 






3147 


103B 


4CFC A EXPP2: 


LI 


R0,-4 


3148 


103C 


21F6 A 


JMP 


$5 


3149 


103D 


i 






3150 


103D 


4CF8 A EXPP3: 


LI 


R0,-8 


3151 


103E 


21F4 A 


JMP 


$5 


3152 


103F 


/ 









JSR SPADR 
NO 
YES 



; INPUT CHAR PTR 



; EXPRESSION RELOCATION MODE 



EXPRESSION VALUE 



; -129 



EXPRESSION RELOCATION MODE 



;POS/NEG OK 

;POS ONLY 
;0FFF0 
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3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 

3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
T1Q4 



103F 
1040 
1041 
1041 
1042 
1043 
1043 
1043 
1044 
1044 
1044 
1044 
1045 
1046 
1047 
1048 
1049 
104A 
104B 
104B 
104C 
104D 
104E 

104F 
1050 
1051 
1052 
1053 
1054 
1054 
1055 
1056 
1057 
1058 
1059 
1059 
105A 
105B 
105C 
105D 
105D 



4CF0 A EXPP4: LI R0,-16 
21F2 A JMP $5 

4C80 A EXPP7: LI R0,-128 
21F0 A JMP $5 

EXP WITH MASK IN R0 (USED BY FORM DIRECTIVE) 
4D01 A EXPFRM: LI Rl r 1 



MASK IN R0, FLAG IN Rl (0=POS) 



A11E A $EXPN: ST 



3195 
3196 
3197 
3198 
3199 
3200 
3201 



105F 
1060 
1061 
1062 
1063 
1063 
1064 



A51E A 
2CB9 I 

0200 A 
347C B 
E426 B 
2109 A 

4C06 A $2: 

2CAA I 

4C00 A 

4E01 A 

A07A B 
A87B 3 
A07C B 
847C B 

0201 A 

850E A $1: 
3483 A 
1106 A 
810C A 
11F2 A 

807A B 
3483 A 
3482 A 
15EE A 

8105 A $3: 
5000 A 
607A B 
847C B 
387B B 
0201 A 

1064 A $MASK! 

1065 A $FLAG: 



ST 

JSR 

RTS 

LD 

SKG 

JMP 

ERROR 

LI 

JSR 

LI 

LI 

ST 
ST 
ST 
LD 
RTS 



R0,$MASK 
R1,$FLAG 
EXP 



R1,EXPREL 

R1,K1 

$1 

SIZE 

R0,6; 

ERROR 

R0,0 

R2,l 

R0,EXPVAL 

R2,EXPPD 

R0,EXPREL 

R1,EXPREL 

1 



LD R1,$MASR 

RAND Rl , R0 

BOC Z,$3 

LD R0,$FLAG 

BOC Z,$2 

NEGATIVE OK 

LD R0,EXPVAL 

RAND Rl , R0 

RXOR R1,R0 

BOC N Z $ 2 

VALUE OK 

LD R0,$MASK 



AND 
LD 
LD 
RTS 

. = . + 1 
. = . + 1 



R0,EXPVAL 
R1,EXPREL 
R2 f EXPPD 
1 



;0*POS 

?NO EXP 

; EXPRESSION RELOCATION MODE 

;ABS OR UNDEF 

VALUE ERROR 



; EXPRESSION VALUE 

;PREV.DEF. 1=YES 

; EXPRESSION RELOCATION MODE 

', EXPRESSION RELOCATION MODE 



;OK 

; ERROR - WE NEED POSITIVE 

; EXPRESSION VALUE 

; ERROR 



; EXPRESSION VALUE 

; EXPRESSION RELOCATION MODE 

;PREV.DEF. 1=YES 



; 0=POS NZ=POS/NEG 



3202 1065 .PAGE 

3203 1065 .LOCAL 

3204 1065 • 

3205 1065 A12B A OUTWRD: ST 

3206 1066 A52B A ST 

3207 1067 805D B LD 

3208 1063 1301 A BOC 

3209 1069 2116 A JMP 

3210 106A 806A B LD 

3211 106B 1106 A BOC 

3212 106C 7C71 B DSZ 



'OUTPUT DATA WORD TO LIST AND BINARY' 



R0,$WRD 
Rl,$REL 
R0 , PASS 
ODD,. +2 
$3 

R0,MOFLAG 
Z,$l 
PGRL 



JSR OUTWRD 



;MULTIPLE OUTPUT FLAG 0=1ST NZ=SU3SE0 
;PAGE REMAINING LINES 
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3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 



3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
325S 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 



106D 
106E 
106F 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
107A 
107B 
107C 
107D 
107E 
107F 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1088 
1088 
1088 
1089 
108A 
108B 
108C 
108D 
108E 
108F 
1090 
1091 
1092 
1093 
1093 
1093 
1093 
1094 
1095 
1096 
1097 
1093 
1099 
109A 
109B 
109C 
109D 
109D 
109D 
109D 
109E 
109F 
10A0 
10A1 
10A2 



2102 A 
4F07 A 
2CDF I 
2072 A 

2943 A 
805C B 
2931 A 

2944 A 
811B A 
292E A 
8D1A A 
EC2C B 
2101 A 
DC2C B 
CD0C A 
8300 
2966 
293A 
2CFF 
785C B 
3081 A 
810E 
R90E 
2D02 
3081 
0200 
1294 



$1 



1089 
2055 
2041 
2042 
2054 
2058 
4741 
4742 
4754 
1092 
1093 



JMP 
LI 
JSR 
JSR 
JSR 
LD 
JSR 
JSR 
LD 
JSR 
LD 
SKG 
JMP 
SUB 
ADD 
LD 
JSR 
JSR 
JSR 
ISZ 
NOP 
LD 
LD 
JSR 
NOP 
RTS 
$LOOWRD: .WORD 



RELTB: 

$RELTB: .WORD 
.ASCII 



$3 



2909 A 
805D B 
1301 A 
0200 A 
8089 B 
13FD A 
291D A 
291E A 
2CFF I 
0200 A 



4000 A 
805D B 
1302 A 
4400 A 
0200 A 
2913 A 



$WRD: .=.+1 
$REL: .=.+1 



. + 3 

R3,7 

OPGSTR 

NEWLIN 

06B 

R0,LOCCTR 

OHEX 

01B 

R0 , $WRD 

OHEX 

R3,$REL 

R3,K4 

. + 2 

R3,K4 

R3,$RELTB 

R0,0(R3) 

02CH 

01B 

OIBUF 

LOCCTR 

R0 , $WRD 
R2,$REL 
@$LOOWRD 



OOWORD 



•OUTPUT PAGE STRING 



; OUTPUT INPUT BUFFER 



? OUTPUT OBJECT WORD 



. + 1 

' U A B T XGAGBGT' 



OUTPUT VALUE FROM ASSIGN OR END DIPECTIVES 



OVAL: 



JSR 

LD 

BOC 

RTS 

LD 

BOC 

JSR 

JSR 

JSR 

RTS 



OHEXIF 
R0,PASS 
ODD,. +2 

R0,INDEV 
ODD, .-2 
02B 
01B 
OIBUF 



yINPUT DEVICE 0=CR, 1=KB, 2=PT 



OUTPUT HEX IF PASS2 ELSE IGNORE 



OHEXIF: 



PUSH 

LD 

BOC 

PULL 

RTS 

JSR 



R0 

R0,PASS 
ODD,. +3 
R0 

04B 
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3269 10A3 2915 A 


JSR 


01B 




3270 10A4 4400 A 


PULL 


R0 




3271 10A5 ; 








3272 10A5 ; 


OUTPUT 


4 HEX DIGITS 


JSR OHEX 


3273 10A5 








3274 10A5 2903 A OHEX: 


JSR 


$01X1 




3275 10A6 2901 A 


JSR 


$01X 




3276 10A7 2900 A 


JSR 


$01X 




3277 10A8 i 








3278 10A8 810A A $01X: 


LD 


R0,$TEMP 




3279 10A9 5804 A $01X1: 


ROL 


R0,4 




3280 10AA A108 A 


ST 


R0 r $TEMP 




3281 10AB 602D B 


AND 


R0,K15 




3282 10AC E02B B 


SKG 


R0,K9 




3283 10AD 2103 A 


JMP 


$01X2 




3284 10AE C039 B 


ADD 


R0,HEX37 




3285 10AF 290A A $01X3: 


JSR 


Q1CH 




3286 10B0 0200 A 


RTS 






3287 10B1 ; 








3288 10B1 C038 B $01X2: 


ADD 


R0 r HEX30 




3289 10B2 21FC A 


JMP 


$01X3 




3290 10B3 ; 








3291 10B3 10B4 A $TEMP: 


. = . + 1 




TTEMP 


3292 10B4 0D0A A HEXD0A 


• .WORD 


0D0A 




3293 10B5 ; 








3294 10B5 ; 


OUTPUT 


6 /4 BLANKS 




3295 10B5 








3296 10B5 2901 A 06B: 


JSR 


02B 




3297 10B6 2900 A 04B: 


JSR 


02B 




3298 10B7 ; 








3299 10B7 


OUTPUT 


2 BLANKS,! BLANK OR 1 CHAR 


3300 10B7 ; 








3331 10B7 4C20 A 02B: 


LI 


R0,' V256 


; OUTPUT 2 E 


3302 10B8 2901 A 


JSR 


01CH 




3303 10B9 4C20 A 01B: 


LI 


R0,' '/256 


; OUTPUT 1 E 


3304 10BA 








3305. 10BA ; 


PUT CHAR OUT IF IN LIST 


MODE 


3306 10BA ; 








3307 10BA 4000 A 01CH: 


PUSH 


R0 




3308 10BB 800C A 


LD 


R0,PNCHMD 




3309 10BC 1506 A 


BOC 


NZ,$PUT3 




3310 10BD R05D B 


LD 


R0,PASS 




3311 10BE 1306 A 


BOC 


0DD,$PUT2 




3312 103F 8097 B $PUT1: 


LD 


R0,TYPMOD 




3313 10C0 1502 A 


BOC 


NZ, .+3 




3314 10C1 4400 A 


PULL 


R0 




3315 10C2 241A B 


JMP 


0HSPRT 




3316 10C3 4400 A $PUT3: 


PULL 


R0 




3317 10C4 2410 B 


JMP 


@PUTC 




3318 10C5 808E B $PUT2: 


LD 


R0,LISTMD 




3319 10C6 15F8 A 


BOC 


NZ,$PUT1 




3320 10C7 833B B 


LD 


R0,ERRPT 




3321 10C8 F055 B 


SKNE 


R0 , ERRBAS 




3322 10C9 2101 A 


JMP 


. + 2 




3323 10CO 21F4 A 


JMP 


$PUT1 




3324 10CB 4400 A 


PULL 


R0 




3325 10CC 0200 A 


RTS 






3326 10CD 








3327 10CD ; 








3328 10CD 806A B 012B: 


LD 


R0,MOFLAG 




3329 10CE 1502 A 


BOC 


NZ,$RET 




3330 10CF 29E5 A 


JSR 


06B 




3331 10DR 29E4 A 


JSR 


06B 
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3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3351 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 



10D1 

10D2 

10D2 

10D2 

10D2 

1«D3 

10D4 

10D5 

10D6 

10D7 

10D8 

10D9 

10DA 

10DB 

10DC 

10DD 

10DE 

10DF 

10DF 

10E0 

10E1 

10E2 

10E3 

10E3 

10E3 

10E3 

10E4 

10E4 

10E5 

10E6 

10E7 

10E8 

10E9 

10 EA 

10EA 

10EA 

10EA 

10EA 

10EB 

10EC 

10ED 

10EE 

10EF 

10F0 

10F1 

10F2 

10F3 

10F4 

10F5 

10F6 

10F6 

10F6 

10F6 

10F6 

10F6 

10F7 

10F8 

10F9 

10FA 

10FB 

10FC 

10FD 

10FE 



0200 A $RET: RTS 



OUTPUT N CR AND LF WHERE N IS IN R3 



EC3B B MANYNL: 

FC23 B 

0200 A 

S096 B 

1508 A 

EC71 B 

2106 A 

8091 B 

1104 A 

4C0D A 

2C1A B 

4C0C A 

241A B 



$MAN1: 



2903 A 
4BFF A 
21FD A 
0200 A 



A1CE A 02CH: 
5GF8 A 
29D3 A 
81CB A 
6024 B 
21D0 A 



29F8 
3300 
11E4 
5C01 
5CFF 
29F4 
8300 
1201 
0200 A 
4B01 A 
21F6 A 
0200 A 



ONLMSG 
OMSG: 



29DB A 
4C37 A 
A071 B 
8D06 A 
29EF A 
8D03 A 
29ED A 
4F02 A 
21D3 A 



OPGSTR: 



SKG 

SKNE 

RTS 

LD 

BOC 

SKG 

JMP 

LD 

BOC 

LI 

JSR 

LI 

JMP 

JSR 
AISZ 

JMP 
RTS 



R3,HEX3F 
R3,ZERO 

R0 f HSPR 

NZ r $MANl 

R3,PGRL 

$MAN1 

R0, NOLI ST 

Z,$MAN1 

R0,0D 

§HSPRT 

R0,0C 

@HSPRT 

NEWLIN 

R3,-l 

.-2 



OUTPUT CR AND LF 



OUTPUT 2 CHARS 



81D0 A NEWLIN: LD 



ST 

SHR 

JSR 

LD 

AND 

JMP 



R0,HEXD0A 

R0,$TEMP 

R0,8 

OICH 

R0,$TEMP 

R0,K255 

OICH 



;OUT CHAR AND RETURN 



OUTPUT NEW LINE AND MESSAGE 

R3 POINTS TO MESSAGE WORD ENDS MESSAGE 



JSR 

LD 

BOC 

SHL 

SHR 

JSR 

LD 

BOC 

RTS 

AISZ 

JMP 

RTS 



NEWLIN 

R0,0(R3) 

Z,$RET 

R0,1 

R0,1 

02CH 

R0,0(R3) 

P,.+2 

R3,l 

OMSG 



;LAST WORD NEG, 



OUTPUT PAGE STRING 



JSR 

LI 

ST 

LD 

JSR 

LD 

JSR 

LI 

JMP 



MANYNL 

R0,55 

R0,PGRL 

R3,SEQTTL 

ONLMSG 

R3,$EQPG 

ONLMSG 

R3,2 

MANYNL 



;=PGSTRG 
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3395 10FF ; 

3396 10FF 06F0 A $EQPG: .WORD PGSTRG 

3397 1100 071D A SEQTTL: .WORD TTLBUF+4 



3398 

3390 

340(5 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

344<> 

3450 

3451 

3452 

3453 

3454 

3455 



1101 
lini 

1101 
1101 
1101 
1101 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
110A 
110A 
110A 
110A 
110A 
110B 
110C 
1100 
110E 
110F 
1110 
1111 
1112 
1113 
1114 
1114 
1115 
1116 
1116 
1116 
1116 
1116 
lily 

1118 
1119 
111A 
111B 
111C 
111C 
HID 
HIE 
111F 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1127 
1127 
1127 



8096 B 

A397 B 

805D B 

1301 A 

0200 

8089 

1303 

2DF7 

29BA 

297A 



8096 B 
A097 B 



308B B 
F055 B 
0200 A 
805D B 
1301 A 
0200 A 

7888 B 
4EFC A 
8488 B 
3481 A 
502D B 
15*1 A 
C428 B 
5904 A 
4A01 A 
21F9 A 



XARGCK : 



2C9E I 
0200 A 
808B B 
D055 B 
1502 A 
4C1E A 
2CAA I 
0200 A 
125A A 



A488 B 



8855 B 



PR2PTR 



OIBREP: 



REPERR: 



$102 



$103: 



.PAGE 'REPORT ERRORS' 
.LOCAL 

CHECK EXCESS ARGUMENTS 



JSR GNVC 

RTS 

LD R0 , ERRPT 

SUB R0 r ERRBAS 

BOC NZ,.+3 

LI R0.30J 

JSR ERROR 

RTS 

.WORD PRMPT2 



EXCESS ARGUMENTS ERROR 



OUTPUT INPUT BUFFER AND REPORT ERRORS 



LD 

ST 

LD 

BOC 

RTS 

LD 

BOC 

JSR 

JSR 

JSR 

LD 
ST 



R0,HSPR 
R0,TYPMOD 
R0,PASS 
ODD, .+2 

R0,INDEV 
ODD,. +4 
QPR2PTR 
012B 
OIBUF 

R0,HSPR 
R0,TYPMOD 



? INPUT DEVICE n=CR,l=KB,2=PT 



; OUTPUT INPUT BUFFER IF NOT YET OUT 



ANY ERRORS TO REPORT 



LD 


R0, ERRPT 


SKNE 


R0 , ERRBAS 


RTS 




LD 


R0,PASS 


BOC 


ODD,. +2 


RTS 




INCREMENT ERROR COUNT 


ISZ 


EC 


LI 


R2,-4 


LD 


R1,EC 


RCPY 


R1,R0 


AND 


R0,K15 


BOC 


NZ,.+2 


ADD 


R1,K6 


ROL 


Rl,4 


AISZ 


R2,l 


JMP 


$103 


ST 


R1,EC 


OUTPUT 


ERROR MESSAGE 


LD 


R2, ERRBAS 
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3456 


1128 


A922 


A 


ST 


R2,$TMP 


3457 


1129 


8921 


A $100: 


LD 


R2,$TMP 


3458 


112A 


F88B 


B 


SKNE 


R2 r ERRPT 


3459 


112B 


211C 


A 


JMP 


$104 


3460 


112C 


7C71 


B 


DSZ 


PGRL 


3461 


112D 


3031 


A 


NOP 




3462 


112E 


8071 


B 


LD 


R0,PGRL 


3463 


112F 


1B01 


A 


BOC 


LEZ,.+2 


3464 


1130 


2102 


A 


JMP 


. + 3 


3455 


1131 


4F07 


A 


LI 


R3,7 


3466 


1132 


29C3 


A 


JSR 


OPGSTR 


3467 


1133 


9D18 


A 


LD 


R3, ERRMSG 


3458 


1134 


29B5 


A 


JSR 


ONLMSG 


3469 


1135 


9915 


A 


LD 


R2,$TMP 


3470 


1136 


8E00 


A 


LD 


R3,0(R2) 


3471 


1137 


CD19 


A 


ADD 


R3, MSGTAB 


3472 


1133 


29B2 


A 


JSR 


OMSG 


3473 


1139 


8911 


A 


LD 


R2,$TMP 


3474 


113A 




t 


OUTPUT 


CHAR PTR 


3475 


113A 


8E09 


A 


LD 


R3,ELIM+1(R2) 


3476 


113B 


EC39 


B 


SKG 


R3,HEX37 


3477 


113C 


2101 


A 


JMP 


. + 2 


3478 


113D 


2108 


A 


JMP 


$200 


3479 


113E 


2CF0 


I 


JSR 


OIB 


3480 


113F 


4BFF 


A 


AISZ 


R3,-l 


3431 


1140 


21FD 


A 


JMP 


.-2 


3482 


1141 


4C40 


A 


LI 


R0,'@'/256 


3483 


1142 


2CEE 


I 


JSR 


OICH 


3484 


1143 


908E 


3 


LD 


R0,LISTMD 


3435 


1144 


1501 


A 


BOC 


NZ, .+2 


3486 


1145 


299D 


A 


JSR 


NEWLIN 


3487 


1146 


7904 


A S200: 


ISZ 


$TMP 


3488 


1147 


21E1 


A 


JMP 


$100 


3489 


1148 


9055 


B $104: 


LD 


R0,ERRBAS 


3490 


1149 


A08B 


B 


ST 


R0,ERRPT 


3491 


114A 


0200 


A 


RTS 




3492 


114B 




r 






3493 


114B 


114C 


A $TMP: 


. = . + 1 




3494 


114C 


114D 


A ERRMSG: 


.WORD 


. + 1 


3495 


114D 


4552 


A 


.ASCII 


'ERROR' 




114E 


524F 


A 








114F 


5220 


A 






3496 


1153 


0000 


A 


.WORD 





3497 


1151 


1152 


A MSGTAB: 


.WORD 


. + 1 


3498 


1152 


4D49 


A 


.ASCII 


'MISSING AR' 




1153 


5353 


A 








1154 


494E 


A 








1155 


4720 


A 








1156 


4152 


A 






3499 


1157 


C72E 


A 


.WORD 


'G. '+S 


3500 


1158 


5641 


A 


.ASCII 


'VALUE 




1159 


4C55 


A 








11SA 


4520 


A 








115B 


2020 


A 








115C 


2020 


A 






3501 


115D 


A020 


A 


• WORD 


0A020 


3502 


115E 


4144 


A 


.ASCII 


'ADDRESS 




115F 


4452 


A 








1160 


4553 


A 








1161 


5320 


A 








1162 


2020 


A 






3503 


1163 


A020 


A 


.WORD 


0A020 


3504 


1164 


5553 


A 


.ASCII 


'USAGE 



;PAGE REMAINING LINES 



; OUTPUT PAGE STRING 

; OUTPUT NEW LINE AND MESSAGE 
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1165 


4147 


A 








1166 


4520 


A 








1167 


2020 


A 








1168 


2020 


A 






3505 


1169 


A020 


A 


.WORD 


0A020 


3506 


116A 


5359 


A 


.ASCII 


' SYNTAX 




116B 


4E54 


A 








116C 


4158 


A 








116D 


2020 


A 








116E 


2020 


A 






3507 


116F 


A020 


A 


.WORD 


0A020 


3508 


1170 


4558 


A 


.ASCII 


'EXCESS ARG' 




1171 


4345 


A 








1172 


5353 


A 








1173 


2041 


A 








1174 


5247 


A 






3509 


1175 


AE20 


A 


.WORD 


'. '+S 


3510 


1176 


5442 


A 


.ASCII 


"TBL OVERFL' 




1177 


4C20 


A 








1178 


4P56 


A 








1179 


4552 


A 








117A 


464C 


A 






3511 


117B 


CF57 


A 


.WORD 


'OW'+S 


3512 


117C 


554E 


A 


« rtoL X X 


'UNDEFINED ' 




117D 


4445 


A 








117E 


4649 


A 








117F 


4E45 


A 








1180 


4420 


A 






3513 


1181 


A020 


A 


.WORD 


0A020 


3514 


1182 


44 55 


A 


.ASCII 


'DUP. DEF. ' 




1183 


502E 


A 








1184 


2044 


A 








1185 


4546 


A 








1186 


2E20 


A 






3515 


1187 


A020 


A 


.WORD 


0A020 


3516 


1188 


4558 


A 


.ASCII 


'EXTD. INST' 




1189 


5444 


A 








118A 


2E20 


A 








118B 


494E 


A 








118C 


5354 


A 






3517 


118D 


AE20 


A 


.WORD 


\'+S 


3518 


118E 






.PAGE 


'OUTPUT INPUT BUFFER' 


3519 


118E 






. LOCAL 




3520 


118E 




9 




JSR OIBUF 


3521 


118E 


806A 


B OIBUF: 


LD 


R0,MOFLAG 


3522 


118F 


1101 


A 


BOC 


Z,$l 


3523 


1190 


0200 


A 


RTS 




3524 


1191 


805D 


B $1: 


LD 


R0 f PASS 


3525 


1192 


1301 


A 


BOC 


ODD,. +2 


3526 


1193 


2122 


A 


JMP 


$2 


3527 


1194 






.IF 


SIZE8 


3528 


1194 


8020 


B 


LD 


R0,DSKTMP 


3529 


1195 


1202 


A 


BOC 


P,$8 


3530 


1196 






.ENDIF 




3531 


1196 


8089 


B 


LD 


R0,INDEV ; INPUT DE^ 


3532 


1197 


131E 


A 


BOC 


ODD, $2 


3533 


1198 




t 


NOT KB 


INPUT AND IS PASS2 


3534 


1198 


8012 


B $8: 


LD 


R0,INBUFB 


3535 


1199 


A11F 


A 


ST 


R0,$IPTR 


3536 


119A 


2CF0 


I 


JSR 


OIB 


3537 


119B 


8D1D 


A $5: 


LD 


R3,$IPTR 



0=CR,1=KB,2=PT 
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3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3558 
3569 
3570 
3571 
3572 



119C 
119D 
119E 
119F 
119F 
11A0 
11A1 
11A2 
11A3 
11A4 
11A5 
11A6 
11A7 
11A8 
11A9 
11AA 
11AB 
11AC 
HAD 
HAD 
11AE 
11AF 
11B0 
11B1 
11B2 
11B3 
11B4 
11B5 
11B6 
11B6 
11B6 
11B7 
HER 
11B9 
11BA 



ED1D A 
2101 A 
2117 A 

8300 A S3: 

F034 B 

2107 A 

F047 B $7: 

2112 A 

F092 B 

2110 

2CEE 

7911 

21F2 

4B01 

ED0F 

2101 

2109 



8300 A 
F034 B 
21F9 A 
F092 B 
2104 A 
F047 B 
2102 A 
9104 A 
21EC A 



4C0D A 
A06A B 
0200 A 
11BA A 
06D4 A 



$4: 



$6: 



$2: 



$IPTR: 
$IBEND: 



SKG 
JMP 
JMP 

LD 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

JSR 

ISZ 

JMP 

AISZ 

SKG 

JMP 

JMP 

LD 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

LD 

JMP 



R3,$IBEND 

$3 

$2 

R0,0(R3) 

R0, BLANK 

$4 

R0 r CR 

$2 

R0 f NOCOM 

$2 

01CH 

$IPTR 

$5 

R3,l 

R3,$IBEND 

$6 

$2 

R0,0(R3) 

R0 f BLANK 

$4 

R0,NOCOM 

$2 

R0,CR 

$2 

R0,@$IPTR 

$7 



; FINISHED 



;NO COMMENT TEST (';' IF NO COMMENTS) 



;FINISHED 



;NO COMMENT TEST ('?' IF NO COMMENTS) 



FINISHED OUTPUT OF INPUT BUFFER 



LI 
ST 
RTS 
. = . + 1 
.WORD 



R0,0D 
R0 r MOFLAG 



INBUF+52 



?SET MOFLAG 



NZ=SOURCE ALREADY OUTPUT 



3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3583 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 



READ: 



11BB 

11BB 

11BB 

11BB 8012 B 

11BC A05E B 

11BD AA5F B 

11BE 805D B 

11BF 1307 A 

11C0 

11C0 1403 A 

11C1 

11C1 

11C1 8089 B $61: 

11C2 1304 A 

11C3 2109 A 

11C4 

11C4 

11C4 8020 



PASS=( 



11C5 1207 
11C6 21FA 



; PASS 

$60 



= 2 



11C7 
11C7 
11C7 
11C7 
11C7 
11C7 788D B $PRM: 



.PAGE 
. LOCAL 

LD 
ST 
ST 
LD 
30C 
.IF 
BOC 
.ENDIF 
) 

LD 
BOC 
JMP 
.IF 

LD 
BOC 
JMP 
.ENDIF 



'INPUT ROUTINES' 



R0,INBUFB 

R0,INPTR 

R0,LCPTR 

R0,PASS 

ODD,$PRM 

SIZE8 

B1EQ1,$60 



R0 r INDEV 
ODD,$PRM 
$NOPRT 
SIZE8 

R0,DSKTMP 

P,$NOPRT 

$61 



; INPUT CHAR PTF 



EITHER KB INPUT OR 2ND PASS OR BOTH 
BUT NOT (DSKTMP AND KB AND PASS.NE.0) 



ISZ 



LCNT2 
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3599 11CR 


2103 A 




JMP 


$50 




3600 11C9 


8031 B 




LD 


R0,X6666 




3601 11CA 


A08D B 




ST 


R0,LCNT2 




3602 11CB 


788C B 




ISZ 


LCNT1 




3603 11CC 


2D2A A 


$50: 


JSR 


@$PROMPT 




3604 11CD 












3605 11CD 






FINISHED PRINTING LINE 


NUM AND PROMP r 


3606 11CD 












3607 11CD 




SNOPRT: 








3608 11CD 






.IF 


SIZE8 




3609 11CD 


801F B 




LD 


R0,DSKIN 




3610 11CE 


5000 A 




CAI 


R0,0 




3611 11CF 


1202 A 




BOC 


P,. + 3 




3612 11D0 


2C18 B 




JSR 


9RDSKIN 




3613 11D1 


210D A 




JMP 


$10B 




3614 11D2 


805D 8 




LD 


R0,PASS 




3615 11D3 


1102 A 




BOC 


Z,.+3 




3616 11D4 


8020 B 




LD 


R0,DSKTMP 




3617 11D5 


5000 A 




CAI 


R0 f 




3618 11D6 


1202 A 




BOC 


P,. + 3 




3619 11D7 


2C19 B 




JSR 


§RDSKTM 




3620 11D8 


2106 A 




JMP 


$10B 




3621 11D9 


8089 3 




LD 


R0,INDEV 


; INPUT DEVICE 


3622 11DA 


1502 A 




BOC 


NZ,$10 


;TTY 


3623 11DB 


2C11 B 




JSR 


@RDCRD 




3624 11DC 


2102 A 




JMP 


S10B 




3625 HDD 






.ENDIF 






3626 HDD 






TTY INPUT 




3627 HDD 


291A A ! 


U0: 


JSR 


RDTTY 




3628 11DE 


2114 A 




JMP 


$10A 




3629 11DF 




'■ 


COMPUTE 


SOURCE CHECKSUM 




3630 11DF 


805D B $10B: 


LD 


R0,PASS 




3631 11E0 


1504 A 




BOC 


NZ,,+5 




3632 11E1 


8020 B 




LD 


R0,DSKTMP 




3633 11E2 


5000 A 




CAI 


R0,0 




3634 11E3 


1201 A 




BOC 


P, . + 2 




3635 11E4 


2C16 B 




JSR 


@WDSKTM 




3636 HE5 


9012 B 




LD 


R0,§INBUFB 




3637 11E6 


F092 B 




SKNE 


R0,NOCOM 




3638 11E7 


21 E5 A 




JMP 






3639 11E8 


4C0D A 




LI 


R0,0D 




3640 11E9 


94A7 I 




LD 


Rl,SOUCK 




3641 11EA 


8C12 B 




r t\ 


AJ f XHOUCQ 




3642 11EB 


F300 A $11C: 


SKNE 


R0,0(R3) 




3643 11EC 


0200 ft 




RTS 






3644 11ED 


C700 A 




ADD 


R1,0(R3) 




3645 11EE 


B4A7 I 




ST 


Rl,SOUCK 




3646 11EF 


4B01 A 




AISZ 


R3 f l 




3647 11F0 


FD5C A 




SKNE 


R3,$IBL 




3648 HF1 


0200 A 




RTS 






3649 11F2 


21F8 A 




JMP 


$11C 




3650 11P3 


i 










3651 11F3 


i 










3652 11F3 


8089 B $10A: 


LD 


R0,INDEV 


; INPUT DEVICE 


3653 11F4 


1301 A 




BOC 


ODD,. +2 




3654 11F5 


21E7 A 




JMP 


$10 




3655 11F6 


t 




INPUT DEVICE IS KB, MUST 


REPROMPT 


3656 11F6 


21D5 A 




JMP 


$50 




3657 11F7 


1263 A $PROMPT 


: .WORD 


PROMPT 




3*58 HF8 












3659 11F8 






READ TELETYPE 




3660 11F8 












3661 11F8 


4EB8 A 5 


DTTY: 


LI 


F2,-72 





0=CR,1=KB,2=PT ;INPUT r\ 



0=CR,1=KB,2=PT 
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3662 


11FQ 


8C12 


B 




LD 


R3,INBUFB 




36*3 


UFA 


AC5E 


B 




ST 


R3,INPTR 


; INPUT CHAP PTR 


3664 


11FB 


9099 


B 


$12: 


LD 


R0,INDEV 




3665 


HFC 


1302 


A 




BOC 


ODD,$12B 




366* 


11FD 


2C0F 


B 


$GC: 


JSR 


@GETC 




3667 


11FE 


2104 


A 




JMP 


$12A 




3668 


11FF 


805D 


B 


$12B: 


LD 


R0 r PASS 




3669 


1200 


D040 


B 




SUB 


R0,K2 




3670 


1201 


11FB 


A 




BOC 


Z,$GC 




3671 


1202 


2C14 


B 




JSR 


@ECHOGC 




3672 


1203 


603A 


B 


<512A: 


AND 


R0,HEX7F 




3673 


1204 


11F6 


A 




BOC 


Z,$12 




3674 


1205 


F047 


B 




SKNE 


R0,CR 




3675 


1206 


210F 


A 




JMP 


$11B 




3676 


1207 


F134 


A 




SKNE 


R0,$LF 




3677 


120* 


21F2 


A 




JMP 


$12 




3678 


1209 


F03A 


B 




SKNE 


R0,HEX7F 


;RUBOUT 


3679 


120A 


21F0 


A 




JMP 


S12 




3630 


120B 


F12E 


A 




SKNE 


R0,HEX5F 


; BACKSPACE ARROW 


3681 


120C 


212A 


A 




JMP 


$BKSP 




3632 


120D 


F12D 


A 




SKNE 


R0,HEX7D 


;ALT KEY 


3693 


120E 


0200 


A 




RTS 






3634 


120F 


F02B 


B 




SKNE 


R0,K9 




3685 


1210 


210E 


A 




JMP 


STAB 




3686 


1211 


A300 


A 




ST 


R0,0(R3) 




3687 


1212 


4B01 


A 




AISZ 


R3,l 




3688 


1213 


4A01 


A 




AISZ 


R2 f l 




3699 


1214 


21E6 


A 




JMP 


$12 




3690 


1215 


0201 


A 




RTS 


1 




3691 


1216 


A300 


A 


S11B: 


ST 


R0 r 0(R3) 




3692 


1217 


8039 


B 




LD 


R0,INDEV 


; INPUT DEVICE 0=CR, 1=KB , 2=PT 


3693 


1218 


605D 


B 




AND 


R0,PASS 




3694 


1219 


1301 


A 




BOC 


ODD, .+2 




3695 


121A 


0201 


A 




RTS 


1 




3696 


121B 






t 


INPUT 


IS KB AND THIS 


IS PASS2 THEREFORE BACKUP CARRAGE 


3697 


121B 


4C0D 


A 




LI 


R0,0D 




3593 


121C 


2CEE 


I 




JSR 


OICH 




3*99 


121D 


2CD4 


I 




JSR 


06B 




3703 


121E 


0201 


A 




RTS 


1 




3701 


121F 






t 








3702 


121F 


E914 


A 


$TAB: 


SKG 


R2,KM41 




3703 


1220 


2101 


A 




JMP 


. + 2 




3704 


1221 


21D9 


A 




JMP 


$12 


; IGNORE IF > COL. 32 


3705 


1222 


4D28 


A 




LI 


Rl,4 




3706 


1223 


E911 


A 




SKG 


R2,KM57 




3707 


1224 


4D33 


A 




LI 


Rl,56 




3708 


1225 


E910 


A 




SKG 


R2,KM65 




3709 


1226 


4D40 


A 




LI 


Rl,64 




3710 


1227 


390") 


A 




RADD 


R2,Rl 




3711 


122« 


R034 


B 


$TAB1: 


LD 


R0, BLANK 




3712 


1229 


A300 


A 




ST 


R0,0(R3) 




3713 


122A 


9099 


3 




LD 


R0,INDEV 




3714 


122B 


D040 


B 




SUB 


R0,K2 




3715 


122C 


1102 


A 




BOC 


Z,.+3 




3716 


122D 


«034 


B 




LD 


R0, BLANK 




3717 


122E 


2C10 


B 




JSR 


SPUTC 




3719 


122F 


4B01 


A 




AISZ 


R3,l 




3719 


1230 


4A01 


A 




AISZ 


R2 f l 




3720 


]231 


4901 


A 




AISZ 


Rl,l 




3721 


1232 


21F5 


A 




JMP 


$TAB1 




3722 


1233 


21C7 


A 




JMP 


$12 




3723 


1234 


FFD7 


A 


KM41: 


.WORD 


-41 




3724 


1235 


FFC7 


A 


KM57 : 


.WORD 


-57 
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3725 


1236 FFBF A 


KM65: 


.WORD 


-65 


3726 


1237 


» 






3727 


1237 4BFF A 


$BKSP: 


AISZ 


R3,-l 


3728 


1238 4AFF A 




AISZ 


R2,-l 


3729 


1239 21C1 A 




JMP 


$12 


3730 


123A 005F A 


HEX5F: 


.WORD 


05F 


3731 


123B 007D A 


HEX7D: 


.WORD 


07D 


3732 


123C 000A A 


$LF: • 


.WORD 


0A 


3733 


123D 123E A 


LCNT2A: 


. = . + 1 




3734 


123E 








3735 


123E 




GET NEXT VALID CHAR 


3736 


123E 








3737 


123E 






JSR GNVC 


3738 


123E 






NONE 


3739 


123E 






CHAR. IN P 


3740 


123E 








3741 


123E 4D01 A ( 


3NVC: 


LI 


Rl,l 


3742 


123F 8C5E B 


$1: 


LD 


R3,INPTR 


3743 


1240 FD0C A 




SKNE 


R3,$IBL 


3744 


1241 0200 A 




RTS 




3745 


1242 8300 A 




LD 


R0,0(R3) 


3746 


1243 F047 3 




SKNE 


R0,CR 


3747 


1244 0200 A 




RTS 




3748 


1245 F049 B 




SKNE 


R0,SEMI 


3749 


1246 2109 A 




JMP 


$2 


3750 


1247 F034 B 




SKNE 


R0, BLANK 


3751 


1248 210A A 




JMP 


$3 


3752 


1249 < 


5RETC: 






3753 


1249 785E B 




ISZ 


INPTR 


3754 


124A 0201 A 




RTS 


1 


3755 


124B 








3756 


124B 




GET NEXT CHAR - 


3757 


124B 








3758 


124B 






JSR GNC 


3759 


124B i 






NONE 


3760 


124B j 






CHAR IN R0 


3761 


124B ; 








3762 


124B 4D00 A C 


5NC: 


LI 


R1,0 


3763 


124C 21F2 A 




JMP 


$1 


3764 


124D « 








3765 


124D 06E8 A < 


:iBL: 


.WORD 


INBUF+72 


3766 


124E ; 








J 1 V / 






LI 


Ri , 2 


3768 


124F 21EF A 




JMP 


$1 


3769 


1250 ; 




SEMICOLAN 


3770 


1250 7427 B % 


2: 


SKAZ 


R1,K3 


3771 


1251 0200 A 




RTS 




3772 


1252 21F6 A 




JMP 


$RETC 


3773 


1253 : 




BLANK 




3774 


1253 785E B % 


3: 


ISZ 


INPTR 


3775 


1254 F423 B 




SKNE 


Rl,ZERO 


3776 


1255 02«1 A 




RTS 


1 


3777 


1256 F426 B 




SKNE 


R1,K1 


3778 


1257 21E7 A 




JMP 


$1 


3779 


1258 7C5E B 




DSZ 


INPTR 


3780 


1259 0200 A 




RTS 





3781 


125A ; 








3782 


125A ; 




PROMPT 


SUBROUTINE 


3733 


125A ; 








3784 


125A 808E B P 


RMPT2: 


LD 


R0,LISTMD 


3785 


125B 2101 A 




JMP 


. + 2 


3786 


125C 808F B P 


RMPT1: 


LD 


R0,ERRLST 


3787 


125D 1101 A 




BOC 


Z,. + 2 



; INPUT CHAR PTR 
;INBUF LAST ADR + 1 
;STAT. END 
;LOAD NEXT CHAR 
?CHAR. RET. CHAR. 

? SEMICOLAN 



i INPUT CHAR PTR 






;SEMI IS TERMINATOR GNVC,GNCVC 



; INPUT CHAR PTR 



;SKIP BLANK GNVC 

? INPUT CHAR PTR ; BLANK TERMINATES GNCV 
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3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3R05 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3314 
3«15 
3816 
3817 
3<U8 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 



125E 
125F 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
126A 
126B 
126C 
126D 
126E 
126F 
1270 
1271 
1272 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
127A 
127B 
127C 
127D 
127D 
127E 
127F 
1280 
1280 
1281 
1282 
1283 
1284 



0200 A 
805D B 
F026 B 

2101 A 
0200 
4200 
4100 
2CA5 
7C71 B 

2102 A 
4F07 A 
2CDF I 
808C B 
4D20 A 
F038 B 

2103 A 
4D30 A 
2CEE I 
2101 A 
2CF0 I 



PROMPT: 



$51: 



888D B $52: 
A9C9 A 
2CCE I 
A88D B 
2CF0 I 
8089 B 
605D B 
1301 A 
2102 A 
2CD4 I 
2CD4 I 

8089 B $NK2 
1301 A 
2102 A 

4C2A A 
2CEE I 
4500 A 
4600 A 
0200 A 



RTS 

LD 

SKNE 

JMP 

RTS 

PUSH 

PUSH 

JSR 

DSZ 

JMP 

LI 

JSR 

LD 

LI 

SKNE 

JMP 

LI 

JSR 

JMP 

JSR 



R0 f PASS 
R0,K1 
. + 2 

R2 

Rl 

NEWLIN 

PGRL 

. + 3 

R3,7 

OPGSTR 

R0,LCNT1 

Rl,' 7256 

R0,CZERO 

$51 

Rl,'0'/256 

01CH 

$52 

OIB 



; OUTPUT PAGE STRING 



;'0'/256 



NOW OUTPUT LAST 4 CHAR OF LINE NUMBER 



LD 

ST 

JSR 

ST 

JSR 

LD 

AND 

BOC 

JMP 

JSR 

JSR 



R2 , LCNT2 

R2,LCNT2A 

OSPDEC 

R2,LCNT2 

OIB 

R0 r INDEV 

R0,PASS 

ODD, .+2 

$NK2 

06B 

06B 



LD R0,INDEV 

BOC ODD,. +2 

JMP .+3 

KB INPUT , ISSUE PROMPT 

LI R0,'*'/256 

JSR OICH 

PULL Rl 

PULL R2 

RTS 



;OUTPUT SPECIAL DECIMAL 4 TIMES 



? INPUT DEVICE q=CR,l=KB,2=PT 



?NOT KB INPUT AND PASS 2 BOTH 



;INPUT DEVICE 0=CR, 1=KB , 2=PT 



3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
383^ 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 



1285 
1285 
1285 
1285 
1285 

1285 817E 

1286 A17C 

1287 810B 

1288 A168 

1289 806B B 
128A D026 B 
128B A167 A 
128C 805C B 
128D A166 A 
128E 4C00 
128F A165 

1290 4C03 

1291 A164 

1292 0200 



.PAGE 
. LOCAL 



'OBJECT MODULE ROUTINES' 



INITOR: 



INITIALIZE OBJECT RECORD 



LD 

ST 

LD 

ST 

LD 

SUB 

ST 

LD 

ST 

LI 

ST 

LI 

ST 

RTS 



R0,OBJPT1 

R0,OBJPTR 

R0,X8004 

R0,OBJREC 

R0,SECT 

R0,K1 

R0,OBJREC+2 

R0,LOCCTR 

R0,OBJREC+3 

R0,0 

R0,WORD5 

R0,3 

R0 ,WORD6 



; ND RELOCATION WORD 
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3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3^71 
3^72 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3«80 
3881 
3882 
3883 
3884 
3885 
3886 
38°7 

-k r» r> f\ 

3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3936 
3907 
3908 
3909 
3910 
3911 



1293 

1294 

1294 

1294 

12<>4 

1294 

1295 

1296 

1297 

1298 

1299 

129A 

129B 

129C 

129D 

129E 

129F 

12A0 

12A1 

12A2 

12A2 

12A2 

12A2 

12A2 

12A2 

12A3 

12A4 

12A5 

12A5 

12A6 

12A7 

12A8 

12A9 

12AA 

12AB 

12AC 

12AD 

12AE 

12AF 

12AF 

12AF 

12AF 

12AF 

12AF 

12B0 

12B1 

12B2 

12B3 

12B4 

12B5 

12B6 

12B7 

12B8 

12B9 

12BA 

12BB 

12B3 

12BB 

12BB 

12BB 

12BC 

12BD 

12BE 



8004 A X8004 



OOWORD : 



B16E A 
E82C B 
2101 A 
4E04 A 
F823 B 
4E01 A 
D826 B 
2913 A 
7966 A 
7953 A 
8164 A 
F165 A 
2101 A 
0200 A 



4E00 A 
814E A 
1204 A 
2906 A 
8D04 A 
2910 A 
21D9 A 
2902 A 
21F8 A 
12F1 A 



8546 A 
81*4 A 
5C02 A 
59^2 A 
6427 B 
3400 
A13F 
853F 
5D02 
3900 
A53C 
0200 



OOREC; 



8160 A 
F160 A 
21E0 A 



$22 



AD34 A 
805D B 
1401 A 
0200 A 



$21: 
$OR: 



shift: 



CKPNCH 



.WORD 08004 

OUTPUT OBJECT WORD (WORD IN R0 , REL IN R2) 



ST 

SKG 

JMP 

LI 

SKNE 

LI 

SUB 

JSR 

ISZ 

ISZ 

LD 

SKNE 

JMP 

RTS 



R0,@ OBJPTR 

R2,K4 

. + 2 

R2,4 

R2,ZERO 

R2,l 

R2,K1 

SHIFT 

OBJPTR 

OBJREC 

R0, OBJPTR 

R0.OBJPT2 

OOREC 



; STORE REL BITS 



OUTPUT OBJECT RECORD 

IF ANY AND SET UP NEW RECORD 



LD 

SKNE 
JMP 



R0, OBJPTR 
R0,OBJPT1 
INITOR 



NOT EMPTY, SHIFT REL BITS 



; RECORD EMPTY ,INIT AND RETURN 



LI 
LD 
BOC 
JSR 

r rs 
UU 

JSR 
JMP 

JSR 
JMP 
.WORD 

SHIFT 



LD 

LD 

SHL 

ROL 

AND 

RADD 

ST 

LD 

SHL 

RADD 

ST 

RTS 



R2,0 

R0 ,WQRD5 

P,$21 

SHI F'" 

R3,$OR 

CKPNCH 

INITOR 

SHIFT 

$22 

OBJREC 



;CHECKSUM AND PUNCH 

MNIT NEW RECORD AND RETURN 



SHIFT WORD5,WQRD6 LEFT 2 
FILLING FROM R2 BITS f l 



Rl,WORD6 

R0,WORD5 

R0,2 

Rl,2 

R1,K3 

R1,R0 

R0,WORD5 

Rl,WORD6 

Rl,2 

R2 f Rl 

Rl,WORD6 



CHECKSUM AND PUNCH RECORD POINTED TO 3Y R3 



ST 
LD 
BOC 
RTS 



R3,$TMP 
R0,PASS 
B1E01, .+2 



;NOT PASS 2 
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3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
392*5 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3952 
3963 
3964 
3955 
3966 
3967 
3958 
3969 
3970 
3971 
3972 
3973 
3974 



12BF 
12C0 
12C1 
12C1 
12C2 
12C3 
12C4 
12C5 
12C5 
12C5 
12C6 
12C7 
12C8 
12C9 
12CA 
12CB 
12CC 
12CD 
12CE 
12CF 
12D0 
12D1 
12D2 
12D3 
12D4 
12D4 
12D4 
12D5 
12D6 
12D7 
12D8 
12D9 
12D9 
12DA 
12DB 
12DC 
12DC 
12DD 
12DE 
12DE 
12DF 
12E0 
12E1 
12E2 
12E3 
12E4 
12E5 
12E6 
12E6 
12E6 
12E6 
12E6 
12E6 
12E6 
12E7 
12E8 
12E9 
12EA 
12EB 
12EC 
12ED 
12EE 
12EF 



801E 
1204 

2927 
4C02 
A00C 
2CEE 



8700 
643B 
4C00 
C302 
4B01 
49FF 
21 FC 
8D23 
A301 
9116 
F300 
2103 
90A8 
C301 
B0A8 



801E 
5000 
1202 
851R 
2417 

8700 
643B 
C440 

8300 
2CCD 

4B01 
49FF 
21FB 
2CA5 
4C0*I 
A00C 
0200 
0931 



$33 



B 
A 
A 
A 
B 

A 
B 
B 

A S30: 
I 

$31: 
A 
A 
A 
I 

A ENDPCH: 
A 
A 
A $ENDBUF: 



LD 


R0,DSKOBJ 


BOC 


P,$33 


PUNCH 


LEADER AND STX CHAR 


JSR 


LEAD8 


LI 


R0,2 



2900 
2900 
2900 
2900 
2900 
4C01 
A30C 
4C00 
2CCD 
21F2 



ST R0,PNCHMD 
JSR OICH 
COMPUTE CHECKSUM 



NO LEADER IF DISK OBJ 



SET PUNCH MODE 



LD 

AND 

LI 

ADD 

AISZ 

AISZ 

JMP 

LD 

ST 

LD 

SKNE 

JMP 

LD 

ADD 

ST 



R1,0(R3) 

R1,HEX3F 

R0,0 

R0,2(R3) 

R3,l 

Rl,-1 

.-3 

R3,$TMP 

R0,1(R3) 

R0,@$ENDBUF 

R0,0(R3) 

.+4 

R0 f OBJCK 

R0,1(R3) 

R0,OBJCK 



i STORE CHECKSUM 



FINISHED CHECKSUM . NOW PUNCH 



.IF 

LD 

CAI 

BOC 

LD 

JMP 

.ENDIF 

LD 

AND 

ADD 



SIZER 

R0,DSKOBJ 

R0,0 

P,. + 3 

Rl,$TMP 

0WDSKOB 



R1,0(R3) 
R1,HEX3F 
R1,K2 
TOP OF PUNCH LOOP 
LD R0,0(R3) 
JSR 02CH 



AISZ 

AISZ 

JMP 

JSR 

LI 

ST 

RTS 

.WORD 



R3,l 

Rl,-1 

$30 

NEWLIN 

R0 f 

R0,PNCHMD 

ENDBUF 



PUNCH 2 CHARACTERS 



PUNCH LEADER 



LEAD: 



LEAD* 



JSR 


. + 1 


JSR 


. + 1. 


JSR 


. + 1 


JSR 


. + 1 


JSR 


. + 1 


LI 


R0,1 


ST 


R0,PNCHMD 


LI 


R0,0 


JSP 


02CH 


JMP 


ENDPCH 
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3975 


12F0 






/ 






3^76 


12F0 


12F1 


A 


$TMP: 


. = . + 1 




3977 


12F1 












397*? 


12F1 








OBJECT 


MODULE DATA RECORD 


3979 


12F1 












3980 


12F1 


12F3 


A 


OBJREC: 


.= . + 2 




3981 


12F3 


12F4 


A 


WORD 3: 


. = . + 1 




3992 


12F4 


12F5 


A 


WORD 4 :• 


. = . + 1 




3983 


12F5 


12F6 


A 


WORDS: 


. = . + 1 




3984 


12F6 


1303 


A 


WORD6 : 


.=.+13 




3985 


1303 






i 






3985 


1303 


12F7 


A 


OBJPTR: 


.WORD 


WORD6+1 


3987 


1304 


12F7 


A 


OBJPT1: 


.WORD 


WORD6+1 


3988 


1305 


1303 


A 


OBJPT2: 


.WORD 


OBJREC+18 


3999 


1306 








• PAGE 


'MISC SUBROUTINES' 


3990 


1306 








. LOCAL 




3991 


1306 












3992 


1306 








IFBYP 


GO TO DIREND IF IN IFSKIP MODE 


3993 


1306 












3994 


1306 


8070 


3 


IFBYP: 


LD 


R0,IFMODE 


3995 


1307 


1507 


A 




BOC 


NZ f $2 


3996 


1308 


24C4 


I 




JMP 


NEXTST 


3997 


1309 












3998 


1309 








JSR IFSKIP 


3999 


1309 








SUSPEND ASSEMBLY RET 


4000 


1309 








ASSEMBLE RETURN 


4001 


1309 


R070 


B 


IFSKIP: 


LD 


R0 r IFMODE 


4002 


130A 


1501 


A 




BOC 


NZ r $l 


4003 


130B 


0200 


A 




RTS 


; SUSPEND 


4004 


130C 


0201 


A 


SI: 


RTS 


1 :ASSEMBLE 


4005 


130D 












4006 


130D 












4007 


130D 








SKIP IF 


PASS 1 


4009 


130D 












4009 


130D 


805D 


3 


P2P1: 


LD 


R0,PASS ;PASS1=0 PASS2=NZ 


4010 


130E 


11FD 


A 




BOC 


Z,$l 


4011 


130F 


0200 


A 


$2: 


RTS 




4012 


1310 












4013 


1310 








SKIP IF 


PASS 2 


4014 


1310 












4015 


1310 


805D 


D 


til nt . 


t r* 




4016 


1311 


15FA 


A 




BOC 


NZ,$1 


4017 


1312 


0200 


A 




RTS 




4018 


1313 












4019 


1313 








OUTPUT 


SPECIAL DECIMAL DIGIT 


4020 


1313 












4021 


1313 






OSPDEC: 






4022 


1313 


4FFC 


A 




LI 


R3,-4 


4023 


1314 


5A04 


A 




ROL 


R2,4 


4024 


1315 


4C0F 


A 




LI 


R0 f 0F 


4025 


1316 


3883 


A 




RAND 


R2,R0 


4026 


1317 


F028 


B 




SKNE 


R0 f K6 


4027 


1318 


2106 


A 




JMP 


$60 ;ZERO REPRESENTED 


4028 


1319 


1502 


A 




BOC 


NZ,$61 


4029 


131A 


C828 


B 




ADD 


R2,K6 


4030 


131B 


3028 


B 




LD 


R0,K6 


4031 


131C 


C03C 


B 


$61: 


ADD 


R0,HEX2A 


4032 


131D 


4D30 


A 




LI 


Rl f '0'/256 


4033 


131E 


2101 


A 




JMP 


. + 2 


4034 


131F 


3481 


A 


$60: 


RCPY 


R1,R0 


4035 


1320 


2CEE 


I 




JSR 


OICH 
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4036 


1321 


4B01 


A 




AISZ 


R3,l 




4037 


1322 


21F1 


A 




JMP 


OSPDEC+1 




403« 


1323 


0200 


A 




RTS 






4039 


1324 














4040 


1324 








. LOCAL 






4041 


1324 














4042 


1324 








GET COMMA 




4043 


1324 










JSR GCOMMA 




4044 


1324 










NO COMMA 


OR END RETURN 


4045 


1324 










YES COMMA RETURN 


404* 


1324 




GCOMMA : 








4047 


1324 


A117 


A 




ST 


R0,$T0 




4048 


1325 


A517 


A 




ST 


R1,ST0+1 




4049 


1326 


A917 


A 




ST 


R2,$T0+2 




4050 


1327 


AD17 


A 




ST 


R3 r $T0+3 




4051 


1328 


2C9E 


I 




JSR 


GNVC 




4052 


1329 


2103 


A 




JMP 


.+4 ; 


NO MORE 


4053 


132A 


F04F 


B 




SKNE 


R0, COMMA 




4054 


132B 


2106 


A 




JMP 


$1 




4055 


132C 


7C5E 


B 




DSZ 


INPTR ; 


INPUT CHAR PTR 


4056 


132D 


810E 


A 




LD 


R0,$T0 




4057 


132E 


850E 


A 




LD 


R1,$T0+1 




4058 


132F 


890E 


A 




LD 


R2 f $T0+2 




4059 


1330 


8D0E 


A 




LD 


P3 r $T0+3 




4060 


1331 


0200 


A 




RTS 


; 


NOT A COMMA 


4061 


1332 






' 


YES-COMMA 




4062 


1332 


2C9E 


I $1: 


JSR 


GNVC 




4063 


1333 


2102 


A 




JMP 


. + 3 




4064 


1334 


7C5E 


B 




DSZ 


INPTR 




4065 


1335 


2101 


A 




JMP 


. + 2 




4066 


1336 


2D09 


A 




JSR 


@$MERROR 




4067 


1337 


8104 


A 




LD 


R0,$T0 




4068 


1338 


8504 


A 




LD 


R1,$T0+1 




4069 


133<> 


8904 


A 




LD 


R2,$T0+2 




4070 


133A 


8D04 


A 




LD 


R3,$T0+3 




4071 


133B 


0201 


A 




RTS 


1 




4072 


133C 


1340 


A $T0: 


. = .+4 






4073 


1340 


0F88 


A SMERROR 


: .WORD 


MERROR 




4074 


1341 








.IF 


SIZE8 




4075 


1341 














4076 


1341 








DISK ERROR 




4077 


1341 














4078 


1341 


4C00 


A 




LI 


R0,0 




4079 


1342 


A05D 


B 




ST 


R0,PASS 




4080 


1343 


8D03 


A I 


)SKERR: 


LD 


R3,DEM 




4081 


1344 


AC<>7 


B 




ST 


R3,TYPMOD 




408? 


1345 


2C9B 


I 




JSR 


ONLMSG 




4083 


1346 


24D3 


I 




JMP 


NEWASM 




4084 


1347 


1348 


A I 


)EM: 


.WORD 


. + 1 




4085 


1348 
1349 
134A 
134B 
134C 
134D 


4449 
534B 
2045 
5252 
4F52 
5320 


A 
A 
A 
A 
A 
A 




.ASCII 


'DISK ERRORS' 




4086 


134E 


0000 


A 




.WORD 







4037 


134F 








.PAGE 


'PROCESS CONTROL 


STATEMENT' 


4088 


134F 








. LOCAL 






4089 


134F 














4090 


134F 








PROCESS 


CONTROL STATEMENT 




4091 


134F 
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I MP ASM 3 K 



4092 


134F 






PRCTRL: 






4093 


134F 


292B 


A 




JSR 


$GNAM 


40Q4 


1350 


211B 


A 




JMP 


$4 


4095 


1351 


8D36 


A 




LD 


R3,$CTAB 


4096 


1352 


8300 


A 


§3: 


LD 


R0,0(R3) 


4097 


1353 


1104 


A 




BOC 


Z,$l 


409* 


1354 


F07D 


B 




SKNE 


R0 f NAM0 


4099 


1355 


2103 


A 




JMP 


$2 


4100 


1356 


4B03 


A 




AISZ 


R3 f 3 


4101 


1357 


21 FA 


A 




JMP 


$3 


4102 


1358 


0200 


A 


$1: 


RTS 




4103 


1359 






» 


FOUND 




4104 


1359 


3301 


A 


$2: 


LD 


R0,1(R3) 


4105 


135A 








.IF 


SIZE8 


4106 


135A 


120B 


A 




BOC 


P,$5 


4107 


1358 


AC75 


B 




ST 


R3,FORMB 


4108 


135C 


2C9F 


I 




JSR 


GITEM 


4109 


135D 


0200 


A 




RTS 




4110 


135E 


8094 


B 




LD 


R0,IDSKIN 


4111 


135F 


6895 


B 




OR 


R0,IDSKTM 


4112 


1360 


1304 


A 




BOC 


ODD, $ RTS 


4113 


1361 


8086 


B 




LD 


R0,ITVAL 


4114 


1362 


8C75 


B 




LD 


R3 f FORMB 


4115 


1363 


E116 


A 




SKG 


R0,K639 


4116 


1364 


1201 


A 




BOC 


P, . + 2 


4117 


1365 


0200 


A 


$RTS: 


RTS 




4113 


1366 






$5: 






4119 


1366 








.ENDIF 




4120 


1366 


B302 


A 




ST 


R0,@2(R3) 


4121 


1367 


2C9E 


I 




JSR 


GNVC 


4122 


1363 


2103 


A 




JMP 


$4 


4123 


1369 


F04F 


B 




SKNE 


R0, COMMA 


4124 


136A 


21E4 


A 




JMP 


PRCTRL 


4125 


136B 


0200 


A 




RTS 




4126 


136C 


808F 


B 


$4: 


LD 


R0,ERRLST 


4127 


136D 


1501 


A 




BOC 


NZ, .+2 


4128 


136E 


A091 


B 




ST 


R0, NOLI ST 


4129 


135F 








.IF 


SIZES 


4130 


136F 


801E 


B 




LD 


R0,DSKOBJ 


4131 


1370 


C040 


B 




ADD 


PCI V) 


4132 


1371 


1102 


A 




BOC 


Z,. + 3 


4133 


1372 


4C01 


A 




LI 


R0 r l 


4134 


1373 


A090 


g 




ST 




4135 


1374 


8094 


B 




LD 


R0 f IDSKIN 


4136 


1375 


C040 


B 




ADD 


R0,K2 


4137 


1376 


1102 


A 




BOC 


Z,. + 3 


4133 


1377 


4C00 


A 




LI 


R0,0 


4139 


137R 


A089 


B 




ST 


R0 f INDEV 


4140 


1379 








.ENDIF 




4141 


1379 


0201 


A 




RTS 


1 


4142 


137A 


027F 


A 


K639: 


.WORD 


639 


4143 


137B 






9 






4144 


137B 






r 






4145 


137B 






$GNAM : 






4146 


137B 


2C9E 


I 




JSR 


GNVC 


4147 


137C 


0200 


A 




RTS 




4148 


137D 


5C08 


A 




SHL 


R0,<* 


4149 


137E 


A07D 


B 




ST 


R0,NAM0 


4150 


137F 


2C9E 


I 




JSR 


GNVC 


4151 


1380 


4C20 


A 


$10: 


LI 


R0,' '/256 


4152 


1331 


F04F 


B 




SKNE 


R0, COMMA 


4153 


1382 


2103 


A 




JMP 


$11 


4154 


1333 


C07D 


B 




ADD 


R0,NAM0 



; FINISHED SEARCH AMD NOT FOUND 
;1ST 2 CHARACTERS OF NAME 



;LOOP 

; ILLEGAL NAME 



J 1ST 2 CHARACTERS OF NAME 



j 1ST 2 CHARACTERS OF NAME 
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4155 


1394 


A07D 


B 


4156 


1385 


0201 


A 


4157 


1386 


7C5E 


B $11: 


4153 


1397 


21F8 


A 


4159 


1388 






4160 


1398 






416] 


13R8 






4162 


1388 


1389 


A $CTA 


4163 


1389 


4B42 


A 




133A 


0001 


A 




138B 


0089 


B 


4164 


138C 


5054 


A 




138D 


0002 


A 




138E 


0089 


B 


4165 


138F 


4F4D 


A 




1390 


0001 


A 




1391 


0090 


B 


4166 


1392 


5820 


A 




1393 


0001 


A 




1394 


0069 


B 


4167 


1395 


4E4C 


A 




1396 


0000 


A 




1397 


0091 


B 


4169 


1398 


4E43 


A 




1399 


003B 


A 




139A 


0092 


B 


4169 


139B 


454C 


A 




139C 


0000 


A 




139D 


008F 


B 


4170 


139E 


4E4D 


A 




139F 


0000 


A 




13A0 


0093 


B 


4171 


13A1 






4172 


13A1 


4544 


A 




13A2 


0001 


A 




13 A3 


0098 


B 


4173 


13A4 


4D44 


A 




13A5 


0001 


A 




13*6 


0099 


B 


4174 


13A7 






4175 


13A7 






4176 


13A7 


4352 


A 




13A9 


0000 


A 




13A9 


0089 


B 


4177 


13AA 


4449 


A 




13AB 


FFFF 


A 




13AC 


0094 


B 


4179 


13AD 


4454 


A 




13AE 


FFFF 


A 




13AF 


0095 


B 


4179 


13B0 


444F 


A 




13B1 


FFFF 


A 




13B2 


001E 


B 


4180 


13B3 


5052 


A 




13B4 


0000 


A 




13B5 


0096 


B 


4181 


13B6 






4182 


13B6 


0000 


A 


4183 


13B7 






4184 


13B7 






4185 


13B7 




ERRC 



ST R0,NAM0 

RTS 1 

DSZ INPTR 

JMP $10 

CONTROL STATEMENT TABLE 

.WORD .+1 

.WORD 'KB',1,INDEV 



.WORD 'PT',2,INDEV 



.WORD 'OM',l,OBJMOD 



.WORD 'X ' r l,XINOK 



.WORD 'NL' f f NOLIST 



.WORD 'NC', '; '/256,NOCOM 



.WORD 'EL',0,ERRLST 



.WORD 'NM',0,NOMAP 



.IF DBGVER 
.WORD 'ED',1,ERDEB 



.WORD 'MD',1,MAPDEB 



.ENDIF 

.IF SIZES 

.WORD 'CR' r 0,INDEV 



.WORD 'Dl',-1,IDSKIN 



.WORD 'DT',-1,IDSKTM 



.WORD 'DO',-l,DSKOBJ 



;1ST 2 CHARACTERS OF NAME 
; INPUT CHAR PTR 



.WORD 'PR',0,HSPR 



.ENDIF 
.WORD 



PAGE ERROR SUBROUTINE 
LOCAL 



IMPASM8K 



4186 


13B7 


A942 


A 


ST 


R2,$TR2 


4187 


13B8 


4000 


A 


PUSH 


R0 


4188 


13B9 


805E 


B 


LD 


R0 r INPTR 


4189 


13BA 


A95F 


B 


ST 


R0,LCPTR 


4190 


13BB 


7C5F 


B $3: 


DSZ 


LCPTR 


4191 


13BC 


905F 


B 


LD 


R0,@LCPTR 


4192 


13BD 


F034 


B 


SKNE 


R0, BLANK 


4193 


13BE 


21FC 


A 


JMP 


$3 


4194 


13BF 


785F 


B 


ISZ 


LCPTR 


4195 


13C0 


4400 


A 


PULL 


R0 


4196 


13C1 


4000 


A 


PUSH 


R0 


4197 


13C2 


888B 


B 


LD 


R2 , ERPPT 


4198 


13C3 


F923 


A 


SKNE 


R2,SERRMX 


4199 


13C4 


210A 


A 


JMP 


$1 


4200 


13C5 


A200 


A 


ST 


R0,0(R2) 


4201 


13C6 


805F 


B 


LD 


R0, LCPTR 


4202 


13C7 


D012 


B 


SUB 


R0,INBUFB 


4203 


13C8 


F208 


A 


SKNE 


R0,ELXM(R2) 


4204 


13C9 


2105 


A 


JMP 


$1 


4205 


13CA 


A209 


A 


ST 


R0,ELIM+1(R2) 


4206 


13CB 


808B 


B 


LD 


R0 r ERRPT 


4207 


13CC 


788B 


B 


ISZ 


ERRPT 


4208 


13CD 


F055 


B 


SKNE 


R0,ERRBAS 


4209 


13CE 


2D2C 


A 


JSR 


@$PRMPT1 


4210 


13CF 




$1: 






4211 


13CF 






.IF 


DBGVER 


4212 


13CF 


8098 


B 


LD 


R0,ERDEB 


4213 


13D0 


1113 


A 


BOC 


Z,$2 


4214 


13D1 


2CA5 


I 


JSR 


NEWLIN 


4215 


13D2 


8126 


A 


LD 


R0,$E1 


4216 


13D3 


2CCD 


I 


JSR 


02CH 


4217 


13D4 


4400 


A 


PULL 


R0 


4218 


13D5 


2CD2 


I 


JSR 


OH EX 


4219 


13D6 


2CEF 


I 


JSR 


02B 


4220 


13D7 


4400 


A 


PULL 


R0 


4221 


13D8 


4000 


A 


PUSH 


R0 


4222 


13D9 


2CD2 


I 


JSR 


OHEX 


4223 


13DA 


2CEF 


I 


JSR 


02B 


4224 


13DB 


805F 


B 


LD 


R0, LCPTR 


422S 


nnc 


nfli 9 


B 


SUB 


va _ Twmiun 

•" - ¥ - *■* *~ ^ •■ •" 


4226 


13DD 


2CD2 


I 


JSR 


OHEX 


4227 


13DE 


811A 


A 


LD 


R0,$E1 


4228 


13DF 


2CCD 


T 


JSR 


02CH 


4229 


13E0 


2CA5 


I 


JSR 


NEWLIN 


4230 


13E1 


8918 


A 


LD 


R2,$TR2 


4231 


13E2 


3081 


A 


NOP 




4232 


13E3 


0200 


A 


RTS 




4233 


13E4 






.ENDIF 




4234 


13E4 


4400 


A «52: 


PULL 


R0 


4235 


13E5 


3914 


A 


LD 


R2,$TR2 


4236 


13E6 


0200 


A 


RTS 




4237 


13E7 




i 






4238 


13E7 


13F0 


A $ERRMX: 


.WORD 


ERBUF+ELIM 


4239 


13E8 


13F0 


A ERBUF: 


.=.+ELIM 


4240 


13F0 


FFFF 


A 


.WORD 


-1 


4241 


13F1 


13F9 


A 


.=.+ELIM 


4242 


13F9 


2A2A 


A $E1: 


.WORD 


'** ' 


4243 


13FA 


13FB 


A $TR2: 


. = . + 1 




4244 


13FB 


125C 


A $PRMPT1 


: .WORD 


PRMPT1 


4245 


13FC 






.PAGE 


'SPECIAL DEBU< 


4246 


13FC 






.IF 


DBGVER 



;NOT IN MAP DEBUG MODE 



;***JSR DEBUG*** 
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4247 13FC 

4248 13FC 

4249 13FC 

4250 13FC 4C00 

4251 13FD 2101 

4252 13FE 

4253 13FE 

4254 13FE 4C01 A 

4255 13FF A05D B $1: 

4256 1400 24D7 I 

4257 1401 ; 
425S 1401 

4259 1401 4E03 

4260 1402 21FC 

4261 1403 

4262 1403 

4263 1403 2D01 

4264 1404 24D7 

4265 1405 0D97 

4266 1406 



PASS1: 



PASS2: 



PASS4: 



MAPDIR: 



. LOCAL 



LI 
JMP 



LI 
ST 
JMP 



LI 
JMP 



JSR 
JMP 
.WORD 
.ENDIF 



R0 f 
$1 



R0,1 

R0,PASS 

DIREND 



R2,3 
$1 



@. + 2 
DIREND 
OMAPNR 



; OUTPUT MAP NO RESET OF P BITS 



4267 
4268 
4269 
4270 
4271 
4272 



4273 



4274 



4275 
4276 



4277 
4278 



4279 



4280 



1406 
1406 
1406 
1406 
1406 
1406 
1407 
1408 
1409 
140A 
140B 
140C 
140D 
140E 
140F 
1410 
1411 
1412 
1413 
1414 
1415 
1415 
1416 
1417 
1418 
1419 
141A 
141A 
141B 
141C 
141D 
141E 
141F 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 



DITBLB: 



0000 
0A80 
AE57 
4F52 
4420 

0000 

0A54 
AE45 
5854 
4420 
0000 
0AC2 A 
AE4C A 
4953 A 
5420 A 



0000 A 
09D5 A 
AE46 A 
4F52 A 
4D20 A 



0000 
09BD 
AE45 
4C53 
4520 
0000 
0A97 
AE50 
4147 
4520 
0000 
09A3 
2E49 
4620 



.PAGE 'DIRECTIVE / INSTRUCTION TABLE 
DIRECTIVE / INSTRUCTION TABLE 

.WORD 0,WORD f '.W'+S, 'OR', 'D' 
.WORD 0,EXTD, '.E'+S, 'XT' r 'd' 
.WORD 0,LIST,'.L'+S, 'IS', 'T' 



.IF SIZE8 

.WORD 0,FORM, '.F'+S, 'OR', 'M' 



.ENDIF 

.WORD , ELSE , '.E'+S, 'LS', 'E 



.WORD 0,PAGE, '.P'+S, 'AG', 'E 



.WORD 0,IF,'.I','F' 
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4281 



4282 



4283 



4284 



4285 



4286 



4287 



4288 



4?RQ 



4290 



4291 
4292 



4293 



4294 



4295 



1428 

1429 

142A 

142B 

142C 

142D 

142E 

142F 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

143A 

143B 

143C 

143D 

143E 

143F 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

144P 

1449 

144A 

144B 

144C 

144D 

144E 

144F 

14 50 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1459 

1459 

1459 

145A 

145B 

145C 

145D 

145E 

145F 

1460 

1461 

1462 

1463 

1464 

1465 



0000 
0867 
2E45 
4E44 
0000 
0AD8 
AE54 
4954 
4C45 
0000 
0A41 
AE41 
5345 
4354 
0000 
0A50 
AE42 
5345 
4354 
0000 
0A52 
AE54 
5345 
4354 
0000 
0AAE 
AE53 
5041 
4345 
0000 
0A63 
AE47 
4C4F 
424C 
0000 
0A76 
AE4C 
4F43 
414C 
0000 
0A89 
AE41 
534 3 
4949 
0000 
09CA 
AE45 
4E44 
4946 



0000 

13FC 

2E50 

3120 

0000 A 

13FE A 

2E50 

3220 

0000 

1401 

2E50 

3420 

0000 



.WORD 0,END, '.E', 'ND' 



■WORD 0,TITLE,'.T'+S,'IT', 'LE 



.WORD f ASECT, '.A'+S, 'SE', 'CT 



.WORD f BSECT, '.B'+S, 'SE', 'CT' 



.WORD 0,TSECT, '.T'+S, 'SE', 'CT 



.WORD 0, SPACE, '.S'+S, 'PA', 'CE 



.WORD 0,GLOBL, '.G'+S, 'LO', 'BL 



.WORD 0, LOCAL, '.L'+S, 'OC', 'AL 



wnpn a jcfTT ' n'+e 'or-' 't 



.WORD 0,ENDIF, '.E'+S, 'ND', 'IF' 



.IF DBGVER 

.WORD 0,PASS1, '.P', 'l ' 



.WORD 0,PASS2, '.P', '2 ' 



.WORD 0,PASS4, '.P', '4 ' 



,WORD 0,MAPDIR, '.M', 'AP 
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1466 


1403 


A 




1467 


2E4D 


A 




1468 


4150 


A 


4296 


1469 






4297 


1469 


0000 


A 




146A 


0AD4 


A 




146B 


2E41 


A 




146C 


534D 


A 


4298 


146D 






4299 


146D 






4300 


146D 






4301 


146D 


8000 


A 


4302 


146E 


0EB6 


A 




146F 


4C44 


A 




1470 


2020 


A 


4303 


1471 


A000 


A 


4304 


1472 


0EB6 


A 




1473 


5354 


A 




1474 


2020 


A 


4305 


1475 


C000 


A 


4306 


1476 


0ECA 


A 




1477 


4144 


A 




1478 


4420 


A 


4307 


1479 


D000 


A 


4308 


147A 


0ECA 


A 




147B 


5355 


A 




147C 


4220 


A 


4309 


147D 


E000 


A 


4310 


147E 


0ECA 


A 




147F 


534B 


A 




1480 


4720 


A 


4311 


1481 


F000 


A 


4312 


1482 


0ECA 


A 




14*3 


534B 


A 




1484 


4E45 


A 


4313 


1485 


6000 


A 


4314 


1486 


0ED5 


A 




1487 


414E 


A 




1488 


4420 


A 


4315 


1489 


6800 


A 


4316 


148A 


0ED5 


A 




148B 


4F52 


A 




148C 


2020 


A 


4317 


148D 


7000 


A 


4318 


148E 


0ED5 


A 




148F 


534B 


A 




1490 


415A 


A 


4319 


1491 


7800 


A 


4320 


1492 


0ED1 


A 




1493 


4^53 


A 




1494 


5A20 


A 


4321 


1495 


7C00 


A 


4322 


1496 


0ED1 


A 




14^7 


4453 


A 




1498 


5A20 


A 


4323 


1499 


3081 


A 


4324 


149A 


0ED9 


A 




140B 


4E4F 


A 




140C 


5020 


A 


4325 


149D 


0080 


A 


4326 


149E 


0ED9 


A 




149F 


D055 


A 




14A0 


5348 


A 



.ENDIF 

.WORD 0,ASMDIR, '.A', 'SM' 



INSTRUCTIONS 

LD 0,0 

.WORD ICl r 'LD',' 



ST 0,0 

.WORD IC1,'ST',' 



ADD 0,0 

.WORD IC2,'AD','D 



SUB 0,0 

.WORD IC2,'SU','B 



SKG 0,0 

.WORD IC2,'SK','G 



SKNE 


0,0 


.WORD 


IC2, 'SK', 'NE 


AND 


0,0 


.WORD 


IC3,'AN', 'd 


OR 


0,0 


.WORD 


IC3,'0R',' 



SKAZ 0,0 

.WORD IC3,'SK','AZ 



ISZ 

.WORD IC4,'IS','Z 



DSZ 

.WORD IC4,'DS','Z 



NOP 

.WORD IC5,'N0','P ' 



PUSHF 

.WORD IC5,08000+'PU', 'SH', 'F 
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14A1 


4620 


p. 


4327 


14A2 


02*0 


A 


4328 


14A3 


0ED9 


A 




14A4 


D055 


A 




14A5 


4C4C 


A 




14A6 


4620 


A 


4329 


14A7 


0000 


A 


4333 


14A8 


0ED9 


A 




14A9 


4841 


A 




14AA 


4C54 


A 


4331 


14AB 


0510 


A 


4332 


14AC 


AEDB 


A 




14AD 


C953 


A 




14AE 


4341 


A 




14AF 


4E20 


A 


4333 


14B0 


4000 


A 


4334 


1431 


0EDE 


A 




14B2 


5055 


A 




14B3 


5348 


A 


4335 


14B4 


4400 


A 


4336 


14B5 


0EDE 


A 




14B6 


5055 


A 




14B7 


4C4C 


A 


4337 


14B3 


5400 


A 


4338 


14B9 


0EDE 


A 




14BA 


D843 


A 




14BB 


4852 


A 




14BC 


5320 


A 


4339 


14BD 


4*00 


A 


4340 


14BE 


0EE3 


A 




14BF 


4149 


A 




14C0 


535A 


A 


4341 


14C1 


4C00 


A 


4342 


14C2 


0EE3 


A 




14C3 


4C49 


A 




14C4 


2020 


A 


4343 


14C5 


5000 


A 


4344 


14C6 


0EE3 


A 




14C7 


4341 


A 




14C8 


4920 


A 


4345 


14C9 


5300 


A 


4346 


14CA 


0EE3 


A 




14CB 


J £. T 1. 






14CC 


4C20 


A 


4347 


14CD 


5C00 


A 


4343 


14CE 


0EE3 


A 




14CF 


5348 


A 




14D0 


4C20 


A 


4349 


14D1 


5800 


A 


4350 


14D2 


0EEE 


A 




14D3 


524F 


A 




14D4 


5220 


A 


4351 


14D5 


5C00 


A 


4352 


14D6 


0EEE 


A 




14D7 


5348 


A 




14D8 


5220 


A 


4353 


14D9 


3000 


A 


4354 


14DA 


0EFB 


A 




14DB 


5241 


A 




14DC 


4444 


A 


4355 


14DD 


3030 


A 


4355 


14DE 


0EFB 


A 




14DF 


5253 


A 



PULLF 

.WORD IC5,08000+'PU', 'LL', 'F 



HALT 
.WORD 



.WORD 
.WORD 



IC5, 'HA', 'LT' 



0510 ;ISCAN 

IC5A,08000+'lS' r 'CA', 'N 



PUSH 

.WORD IC6,'PU','SH 



PULL 

.WORD IC6,'PU','LL 



.WORD 05400 

.WORD IC6 r 08000+'XC','HR', 'S 



AISZ 


0,0 


.WORD 


IC7,'AI','SZ 


LI 


0,0 


.WORD 


IC7,'LI',' 


CAI 


0,0 


.WORD 


IC7,'CA','I 



ROL , 

.WORD IC7,'RO','L 



SHL 0,0 

.WORD IC7,'SH','L 



ROR , 

.WORD IC7A,'RO','P 



SHR 0,0 

.WORD IC7A,'SH','R 



PADD 0,0 

.WORD IC8,'RA','DD 



RXCH 0,0 

.WORD IC8,'RX','CH 
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14E0 


4348 


A 


4357 


14E1 


3081 


A 


4358 


14E2 


0EFB 


A 




14E3 


5243 


A 




14E4 


5059 


A 


4359 


14E5 


3082 


A 


4350 


14E6 


0EFB 


A 




14E7 


5258 


A 




14E8 


4F52 


A 


4361 


14E9 


3083 


A 


4362 


14EA 


0EFB 


A 




14EB 


5241 


A 




14EC 


4E44 


A 


4363 


14ED 


2000 


A 


4364 


14EE 


0F0A 


A 




14EF 


4A4D 


A 




14F0 


5020 


A 


4365 


14F1 


2800 


A 


4366 


14F2 


0F0A 


A 




14F3 


4A53 


A 




14F4 


5220 


A 


4367 


14F5 


0800 


A 


4368 


14F6 


0F17 


A 




14F7 


5346 


A 




14F8 


4C47 


A 


4359 


14F9 


0880 


A 


4370 


14FA 


0F17 


A 




14FB 


5046 


A 




14FC 


4C47 


A 


4371 


14FD 


1000 


A 


4372 


14FE 


0F22 


A 




14FF 


424F 


A 




1500 


4320 


A 


4373 


1501 


0200 


A 


4374 


1502 


0F34 


A 




1503 


5254 


A 




1504 


5320 


A 


4375 


1505 


0400 


A 


4376 


15^6 


0F34 


A 




1507 


5249 


A 




1508 


4E20 


A 


4377 


1509 


0600 


A 


4378 


150A 


0F.34 


A 




150B 


524F 


A 




150C 


5554 


A 


4379 


150D 


0100 


A 


4380 


150E 


0F34 


A 




150F 


5254 


A 




1510 


4920 


A 


4381 


1511 


0300 


A 


4382 


1512 


0F38 


A 




1513 


4A53 


A 




1514 


5250 


A 


4383 


1515 


0520 


A 


4384 


1516 


0F3E 


A 




1517 


4A49 


A 




1518 


4E54 


A 


4385 


1519 


0700 


A 


4386 


151A 


0F3E 


A 




151B 


D345 


A 




151C 


5453 


A 




151D 


5420 


A 


4387 


151E 


0710 


A 



RCPY , 

.WORD IC8, 'RC', 'PY' 



RXOR 
.WORD 


0,0 

IC8, 'RX', 'OR' 


RAND 
.WORD 


0,0 
IC8,'RA','ND' 


JMP 
.WORD 



IC9,'JM','P ' 



JSR 

.WORD IC9,'JS','R ' 



SFLG 

.WORD IC10,'SF', 'LG' 



PFLG 

.WORD IC10,'PF','LG 



BOC 0,.+l 

.WORD ICll,'BO','C 



RTS 

*WORD IC12,'RT','S 



RIN 

.WORD IC12,'RI','N 



ROUT 

.WORD IC12,'RO','UT' 



RTI 

.WORD IC12,'RT','I ' 



.WORD 0300 ;JSRP 

.WORD IC12A, 'JS', 'PP' 



.WORD 0520 ;JINT 

.WORD IC13A, 'JI', 'NT' 



.WORD 0700 ;SETST 

.WORD IC13A,08000+'SE', 'TS', 'T 



.WORD 0710 



;CLRST 
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4333 


151F 


0F3E 


A 




1520 


C34C 


A 




1521 


5253 


A 




1522 


5420 


A 


4389 


1523 


0720 


A 


4390 


1524 


0F3E 


A 




1525 


D345 


A 




1526 


5442 


A 




1527 


4954 


A 


4391 


1523 


0730 


A 


4392 


1529 


0F3E 


A 




152A 


C34C 


A 




152B 


5242 


A 




152C 


4954 


A 


4393 


152D 


0750 


A 


4394 


152E 


0F3E 


A 




152F 


D34B 


A 




1530 


4249 


A 




1531 


5420 


A 


4395 


1532 


0740 


A 


4396 


1533 


0F3E 


A 




1534 


D34B 


A 




1535 


5354 


A 




1536 


4620 


A 


4397 


1537 


0760 


A 


4398 


1533 


0F3E 


A 




1539 


C34D 


A 




153A 


5042 


A 




153B 


4954 


A 


4399 


153C 


0500 


A 


4400 


153D 


0F3E 


A 




153E 


4A4D 


A 




153F 


5050 


A 


4401 


1540 


0480 


A 


4402 


1541 


0F44 


A 




1542 


4D50 


A 




1543 


5920 


A 


4403 


1544 


0490 


A 


4404 


1545 


0F44 


A 




1546 


4449 


a 




1547 


5620 


A 


4405 


1548 


04A0 


A 


a a ac 


1C»Q 


OLTfA A 
t/ V t t 






154A 


4441 


A 




154B 


4444 


A 


4407 


154C 


04B0 


A 


4408 


154D 


0F44 


A 




154E 


4453 


A 




154F 


5542 


A 


4409 


155^1 


04C0 


A 


441<? 


1551 


0F46 


A 




1552 


4C44 


A 




1553 


4220 


A 


4411 


1554 


04D0 


A 


4412 


1555 


0F46 


A 




1556 


5354 


A 




1557 


4220 


A 


4413 


1553 


04C0 


A 


4414 


1559 


0F46 


A 




155A 


4C4C 


A 




155B 


4220 


A 


4415 


155C 


04D0 


A 


4416 


155D 


0F46 


A 



•WORD IC13A,08000+'CL', 'RS', 't' 



.WORD 0720 ySETBIT 

.WORD IC13A,08000+'SE', 'TB', 'IT' 



.WORD 0730 yCLRBIT 

.WORD IC13A,08000+'CL', 'RB', 'IT 



•WORD 0750 ?SKBIT 

.WORD IC13A,S+'SK', 'BI', 't' 



.WORD 0740 ;SKSTF 

.WORD IC13A f S+'SK','ST' f 'F' 



.WORD 0760 ;CMPBIT 

.WORD IC13A,08000+'CM', 'PB', 'IT 



.WORD 8500 ;JMPP 

.WORD IC13A, 'JM', 'PP' 



.WORD 04 80 ;MPY 

.WORD IC14,'MP' r 'Y ' 



.WORD 0490 ;DIV 

.WORD IC14,'DI','V ' 



.WORD 04A0 



;DADD 



■WORD 04B0 ;DSUB 

.WORD IC14, 'DS','UB' 



.WORD 04C0 

.WORD IC15,'LD','B' 



;LD3 



.WORD 04D0 ;STB 

.WORD IC15, 'ST', 'B' 



.WORD 04C0 ;LLB 

.WORD IC15,'LL','B' 



.WORD 04D0 ;SLB 

.WORD IC15, 'SL', 'B' 
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155E 


534G 


A 




155F 


4220 


A 




4417 1560 


04C0 


A 


.WORD 04C0 


4418 1561 


HF49 


A 


.WORD IC16 f 'LR 


1562 


4C52 


A 




1563 


4220 


A 




4419 1564 


04D0 


A 


.WORD 04D0 


4420 1565 


0F49 


A 


.WORD IC16,'SR 


1566 


5352 


A 




1567 


4220 


A 




4421 1568 


0380 


A 


.WORD 0380 


4422 1569 


0F50 


A 


.WORD IC17, 'JS 


156A 


4A53 


A 




156B 


5249 


A 




4423 156C 




DITBL2: 




4424 156C 




i 


END IF IMP 16 AS 


4425 156C 




i 




4426 156C 






.IF SIZEP 


4427 156C 


1699 


A PTRTAB: 


.=.+301 


4428 1699 




PTREND: 




4429 1699 




i 


BAD SECTOR TABLE 


4430 1699 


16C1 


A BADSTB: 


.=.+40 


4431 16C1 




STBAS : 




4432 16C1 


072C 


A 


.END START 


POINTERS GENERATED 




009A 


0956 


A 




009B 


10EA 


A 




009C 


11F8 


A 




009D 


1324 


A 




009E 


123E 


A 




00 9 F 


0BEC 


A 




00A0 


156C 


A 




00A1 


1698 


A 




00A2 


10D2 


A 




00A3 


0967 


A 




00A4 


134F 


A 




00A5 


10E3 


A 




00A6 


06F0 


A 




00A7 


0935 


A 




00A<* 


0936 


A 




00A9 


1285 


A 




00AA 


13B7 


A 




00AB 


1065 


A 




00AC 


110A 


A 




00AD 


1114 


A 




00AE 


108B 


A 




00AF 


11BB 


A 




00B0 


0C82 


A 




00B1 


0B0C 


A 




00B2 


0B28 


A 




00B3 


1306 


A 




00B4 


0B47 


A 




00B5 


0C90 


A 




30B5 


0D3B 


A 




00B7 


0CDE 


A 




00B8 


102F 


A 




00B9 


0B5D 


A 




00BA 


07D1 


A 




003B 


07C9 


A 




00BC 


12A2 


A 




00BD 


0A58 


A 





LRB 



SRB 



;JSRI 
RI' ;JSRI 
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00BE 


1093 


A 


00BF 


0979 


A 


00C0 


092F 


A 


00C1 


0937 


A 


00C2 


0D90 


A 


00C3 


07A2 


A 


00C4 


07D3 


A 


00C5 


0943 


A 


00C6 


0D92 


A 


30C7 


0983 


A 


00C8 


12E6 


A 


00C9 


071C 


A 


00CA 


071B 


A 


00CB 


12BB 


A 


00CC 


0D8E 


A 


00CD 


10E4 


A 


00CE 


1313 


A 


00CF 


099B 


A 


00D0 


10EB 


A 


00D1 


0994 


A 


00D2 


10A5 


A 


00D3 


076A 


A 


00D4 


10B5 


A 


00D5 


1012 


A 


00D6 


109D 


A 


00D7 


07CE 


A 


00D8 


0C71 


A 


00D9 


07C6 


A 


00DA 


1041 


A 


00DB 


1043 


A 


00DC 


0C6F 


A 


00DD 


0D52 


A 


00DE 


0D7C 


A 


00DF 


10F6 


A 


00E0 


1032 


A 


00E1 


0719 


A 


00E2 


071D 


A 


00E3 


071E 


A 


00E4 


071F 


A 


00E5 


07E0 


A 


00E6 


130D 


A 


00E7 


07C7 


A 


00E8 


1310 


A 


00E9 


124E 


A 


00EA 


0D7F 


A 


00EB 


07CA 


A 


00EC 


124B 


A 


00ED 


0E53 


A 


90EE 


10BA 


A 


00EF 


10B7 


A 


00F0 


10B9 


A 


00F1 


103B 


A 


00F2 


0F7F 


A 


00F3 


0F92 


A 


00F4 


0F91 


A 


00F5 


07CC 


A 


00FS 


1039 


A 


00F7 


07CB 


A 


00F« 


0F84 


A 


00F C > 


1037 


A 


00 FA 


3F88 


A 


00FB 


103D 


A 


00FC 


103F 


A 
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00FD 1015 A 
00FE 0F33 A 
00FF 11«E A 



ERRORS IN ASSEMBLY 



$1& $1( $1) SI* $1+ $1, $1- $1. $1/ $10 
09B1 A 0A42 A 0A66 A 0AA9 A 0AF0 A 0B41 A 0B6A A 0C23 A 0C89 A "'CER A 

$10$ $10' $10) $10, $10/ $100 $100. $1004 $1009 $102 
085B A 09F2 A 0A94 A 0B3E A 0CD8 A 0D27 A 0C20 A 0E55 A 1129 A 0D7B A 

$1029 $1039 $1049 $106 $10; $10? $10A; $103; $11$ $11' 
1116 A 111F A 1148 A 100D A HDD A 1380 A 11F3 A 11DF A 0829 A R9EF A 

$11) $11- $11/ $1115 $112 $115 $11? $HA$ $11B$ $11B; 
0A91 A 0BB8 A 0CD9 A 0F30 A 0D8A A 0EC2 A 1386 A 3843 A 0R31 A 1216 A 

$11C; $12 $12$ $12' $12) $12- $12/ $122 $125 $12; 
11EB A 0D79 A 0819 A 09FC A 0A8C A 0BB9 A 0CDB A 0D88 A 0EC5 A 11FB A 

$12A; $12B; $13 $13$ $13' $13- $14- $15- $17 SIR 
1203 A 11FF A 0E16 A 0857 A 0AHE A 0BA3 A 0BA"! A 0B95 A 1054 A 1072 A 

$194 SI: $1; $1= $1> $1? $1@ $1A *1A) $1A- 
0E79 A 1191 A 123F A 130C A 1332 A 1358 A 13CF A 13FF A 0A6C A 0B74 A 

$2" $2' $2) $2* $2+ $2, $2. $2/ $20 $20' 
0750 A 0A18 A 0A72 A 0A9E A 0AFR A 0B53 A PIC25 A 0C90 A 8D09 A "!A39 A 

$20, $20- $2009 $204 $21 $214 $21$ $21< $22 $224 
0B15 A 0BCA A 1146 A 0E6F A 0D3E A AE71 A 0BCD A 12AC A 8D59 A 0E80 A 

$22< $23 $234 $26 $27 $2: $2; $2= $2? $2@ 
12A6 A 0E2A A 0ER3 A 0FB9 A 104B A UB6 A 1250 A 130F A 1359 A 13E4 A 

$2A' $2A0 $2A2 $2A3 $2B1 $2B3 $3" $3' $3) $3* 
0A21 A 0D0E A 0D57 A 0E2E A 0D45 A P*E?3 A 0760 A 0A23 A AA71 A 0AAfl A 

$3+ $3, $3. $3/ $30 $30- $30. $3003 $30< $31 
0AFD A 0B55 A 0C26 A 0C93 A 0CEC A 0BEA A 0C18 A 0DAA A 12DC A AD49 A 

$31< $32 $33 $33< $36 $37 $38 $3: S3; $3? 
12DE A 0D6R A 0E52 A 12C5 A 1FBD A 105D A 10R0 A 119F A 1253 A 1352 A 

$3@ $3A3 $4' $4) $4* $4+ $4. $4/ $40 $41 
13BB A 0DBA A 0A00 A AA74 A 0AA5 A 0AF9 A 0C2D A 0CAD A 0CF0 A 0D4A A 

$415 $42 $43 $47 $4: $4? $4A/ $4B/ $5' $5) 
0ED2 A 0D64 A 0E4C A 1030 A 11A9 A 136C A 0CB6 A 0CB2 A 0A9A A 0A7E A 

$5+ $5, $50% $506 $50; $51% $516 $51; $52 $526 
0B02 A 083F A 08BC A 101A A UCC A 089B A 101E A 1271 A 0D5B A 1026 A 

$52; $53 $57 $5: $5? $5A$ $6) $6, $60 $60; 
1272 A 0DC3 A 1033 A 119B A 1366 A 07FD A <*A83 A 0B$7 A GD05 A 11C4 A 

$60= $61; $61= $62 $63 $6: $7$ $7, $70 $7? 
131F A 11C1 A 131C A 0D6D A PIDDC A HAD A AR5E A 0B1R A "IDW7 A 9D5F A 

$73 $7: $7A$ $8$ $80 $805 $82 $8: $9$ $90 
0E3C A 11A2 A 0860 A A855 A 0D1F A <*F07 A 0D7 4 A 119* A 0°1F A ")D0F A 
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$915 $92 $925 $ABS16 SABS6 $ADR6 $ADR06 $AERR6 SAND- $APEN0 
0F0F A 0D72 A 0F12 A 0FB4 A 0FA9 A 0F93 A 0FBC A 0FDF A 0BC7 A 0CF3 A 

$APPE0 $BBIT' $BKSP; SBLNK+ SB0TM4 $BS0. SBSEC6 $BSPR. $BYP1* $CB$ 
0CF3 A 0A3C A 1237 A 0AFB A 0EAR A 0C6C A 100A A 0C12 A 0ABE A 07C5 A 

$CBZ3 $CI6 SCK, $COM- $C0NV3 $CT3 SCTAB? $DEC. SDEF6 $DIV- 
0DEB A 102E A 0B21 A 0BD0 A 0DE4 A 0DF7 A 1398 A 0C3D A 0FA0 A 0BC1 A 

$DL/ $DOT$ SDOT. $DT/ $E1§ SEB% $EERR- $EL% $ELOK& $END' 
0C3B A 07EC A 0C61 A 0CBA A 13F9 A 0930 A 0B94 A 08C9 A 09C3 A 0A2B A 

$END2 $END4 $ENDB< $EP1% $EP2% $EOPG8 $EQTT8 $ERET6 $ERR. $ERRM@ 
0D8D A 0EB2 A 12E5 A 0896 A 0895 A 10FF A 1100 A 0FD6 A 0C69 A 13E7 A 

$EX0- $EXPN- SEXPN7 $EXT6 $F16$ $FB1$ $FB2$ $FBIT$ $FFFF' $FIN- 
0BDB A 0BD1 A 1044 A 100A A 0847 A 084E A 0851 A 084B A 0A3F A 0BD7 A 

$FIN1% $FIN2% $FIN3% $FINI% SFLAG3 $FLAG7 SF03 $FPTR' $FREL$ SFVAL$ 
0929 A 0900 A 0922 A 08F9 A 0DFB A 1064 A 0DF8 A 0A3D A 0865 A 0864 A 

$GAN/ $GC; $GDEC" $GL/ $GL1/ $GLBN3 $GNAM? $GOOD4 $GP/ $GP1/ 
0CD0 A 11FD A 0762 A 0CC5 A 0CC6 A 0DF4 A 137B A 0EA0 A "ICBC A 0C8D A 

$GR/ SGR14 $GR24 $GR4 $GS1/ $GS2/ $HEX. $IBEN: SIBL; $IFLA6 
0CCB A 0E8A A 0E8F A 0E91 A 0C7F A 0C72 A 0C08 A 11BA A 124D A 1010 A 

$IOK16 $IOK26 SIOK36 SIOK46 SIOK56 $IOK6 SIOK66 $IPTR: SLAST3 $LF; 
1003 A 0FF9 A 0FF5 A 0FFE A 0FEE A 0FE5 A 1007 A 11B9 A 0D96 A 123C A 

$LONG3 $LOOP' $LOOP3 $LOOP4 SLOOW8 SLOW04 SLOW14 SLOW24 SLP6 $LST04 
0E28 A 09EB A 0DA4 A 0E6B A 1037 A 0EAC A 0EAD A 0EAE A 0FC9 A 0EAF A 

$LST14 $LST24 $M1% $M2% SMAIN* SMAN18 SMASK7 $MERR6 SMERR> $MG3 
0EB0 A 0EB1 A 0908 A 0916 A 07C1 A 10DF A 1063 A 0FE2 A 1340 A 0DFC A 

$MIN1. $MINU- $MINU. $MPS4 SMPY- $MPY1- $NAME . $NERR& $NEXT? SNK2; 
0C33 A 0B99 A 0C32 A 0E69 A 0BBB A P>BBF A 0C51 A 09C0 A 0DF5 A 127D A 

ynu\-uj vmw? 9mwcia« Jisurk; ?inOx. sNuUN. sriUAD >Nf% $NXT— ^NX'L'4 
0E12 A 08D8 A 09BA A 11CD A 0C30 A 0C1Q A 0F77 A 094C A 0B72 A 0EA4 A 

SOP- SOR- $0R< 
0D37 A 0D38 A 10A9 A 1031 A 10AF A 10A8 A 0RE3 A 0B8B A «BCC A 12AE A 

$0V& $PGBF* SPLUS- $PMRE- $PRM; $PRMP@ SPROM; SPT3 $PTR+ SPTR1+ 
09B7 A 0AD3 A 0B8C A 0BAD A 11C7 A 13FB A 11F7 A <*DF6 A PIB09 A 0B0A A 

$PTRL+ SPUT1R SPUT28 SPUT38 $ONXT0 SCHJOT, $REL- SREL5 SREL9 $RELT« 
0B0B A 10BF A 10C5 A 10C3 A 9D39 A 0C39 A «BDF A 0F7E A 1092 A 1389 A 

$REND0 $RET1. $RET8 SRETC; $PM3 $ROV0 $RSER0 $RTB3 $RTS? $SAME( 
0D29 A 0C13 A 10D1 A 1249 A 0DF9 A 0D23 A 0CE5 A 0DFA A 1365 A 0A5F A 

$SERC$ $SETB0 $SORF/ $STR13 $STRT3 SSYRE. $T0/ $T0> ST1* ST1/ 
07F4 A 0D2F A 0C81 A 0D98 A <*D94 A 0C64 A 0CC3 A 133C A 0AD2 A 0CC4 A 

$TAB1; $TAB; $TEMP8 $TEST. $TMP" $TMP$ $TMP% $TMP( $1MP9 STMP< 
1228 A 121F A 10B3 A 0BF3 A 0767 A 0862 A 08D7 A 0A62 A 11*B A 12F0 A 

$TR2@ $TRYI6 $TSEC6 $TTL# $TTL% SUM. $UNOT. $UOP. $VAL5 SVERR6 
13FA A 0FDD A 0FDA A 07A1 A 0Q2F A 0C1C A 0C17 A 0C1F A 0F7D A 0FD4 A 
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$W0RD2 $WRD8 SX. $X2031 $XARG$ $XERF- $XERR5 $XFLA6 $X0K6 SXR34 
0D8C A 1091 A 0C4C A 0866 A 07C4 A 0BAA A 0F8C A 1011 A 0FC3 A 0EB4 A 

ABST ACTR ARERR AMAX ASCII ASECT ASMDIR ASSIGN B1E01 BADSTB 
0021 B 0056 B 0F86 A 0059 B 0A89 A 0A41 A 0AD4 A 0B28 A 0004 A 1699 A 

BASE BASEA BASEB BCTR BEGP34 BLANK BLANKS BLDDIR BLDNAM BMAX 
0060 B 0063 B 0066 B 0057 B 08B2 A 0034 B 0048 B 0C90 A 0C82 A 005A B 

BSECT CAND CAT CDIV CHARX CKPNCH CLOSEO CLOSET CMINUS CMPY 
0A50 A 0053 B 0032 B 0035 B 0044 B 12BB A 001D B 001C B 0051 B 003C B 

CNAM0 CNAM1 CNOT COLAN COMMA COR CPLUS CR CZERO DBGVER 
0090 B 0081 B 0052 B 004B B 004F B 0054 B 0050 B 0047 B 0038 B 0001 A 

DBWIN DEM DIREND DISER DITBL2 DITBLB DITBLF DITBLL DIVD DOLLAR 
0F5F A 1347 A 07CE A 0D3B A 156C A 1406 A 0D51 A 0D50 A 000E B 004E B 

DOT DOTASN DSKERR DSKIN DSKOBJ DSKTMP EC ECHOGC ELIM ELSE 
004A B 0B47 A 1343 A 001F B 001E B 0020 B 0088 B 0014 B 0008 A 09BD A 

END ENDBUF ENDIF ENDPl ENDP2 ENDP3 ENDP4 ENDPCH ENDST EQUAL 
0867 A 0931 A 09CA A 0883 A 08A9 A 08DB A 092A A 12E2 A 07D1 A 004C B 

ERBUF ERDEB ERRBAS ERRLST ERRMSG ERROR ERRPT ERRST EXP EXP4 
13E8 A 0098 B 0055 B 008F B 114C A 13B7 A 008B B 07C9 A 0B5D A 1035 A 

EXP8 EXPABS EXPFRM EXPP EXPPl EXPP2 EXPP3 EXPP4 EXPP7 EXPPD 
1037 A 102F A 1043 A 1032 A 1039 A 103B A 103D A 103F A 1041 A 007B B 

EXPREL EXPVAL EXTD FORM FORMB FORMBN FORMM FORMPT FORMT FORMTN 
007C B 007A B 0A54 A 0<>D5 A 0075 B 0078 B 0077 B 0074 B 0076 B PI079 B 

FORMV FRMREL GADR GADRI GADRIX GADRX GCOMMA GCSTRG GETC GFORM 
0A3E A 0A40 A 0F8E A 0F8F A 0F92 A 0F91 A 1324 A 0D7C A 000F B 0C71 A 

GITEM GLBUF GLOBL GNC GNCVC GNSTRG GNVC GSIZE GSTCON GSYM 
0BEC A 0DFE A 0A63 A 124B A 124E A 0D52 A 123E A 0753 A 0D7F A 0C6F A 

HEX20 HEX2A HEX2F HEX30 HEX37 HEX3° HEX3F HEX40 HEX400 HEX46 
0034 B 003C B 0035 B 0038 B 0039 B 0036 B 003B B 0032 B 003D B 1037 B 

HEX5A HEX5F HEX760 HEX7D HEX7E HEX7F HEXD0A HEXF HSPR HSPRT 
0033 B 123A A 0768 A 123B A 0EB3 A 003A B 10B4 A 0853 A 0096 B *01A B 

IC1 IC10 IC11 IC12 IC12A IC13 IC13A IC14 IC15 IC16 
0EB6 A 0F17 A 0F22 A 0F34 A 0F38 A 0F40 A 0F3E A 0F44 A 0F46 A 0F49 A 

IC16A IC17 IC2 IC3 IC4 IC5 IC5A IC6 IC7 IC7A 
0F4C A 0F50 A 0ECA A 0ED5 A 0ED1 A 0ED9 A 0EDB A 0EDE A REE3 A 0EEE A 

IC8 IC9 ICLASS IDSKIN IDSKTM IF IFBYP IFMODE IFPTR IFPTRA 
0EFB A 0F0A A 0073 B 0094 B 0095 B 09A3 A 1305 A 0070 B 006D B 006E B 

IFSKIP IFSTAT IFTAB IFTBL INABS INBUF INBUFB INBUFE INDEV INERR 
1309 A 006F B 070F A 09D4 A 07CB A 06A0 A 0012 B 0013 B 0089 B 0F7F A 

INERR1 INITOR INOUT INPTR IREL ITREL ITVAL IVAL Kl Kll 
0F80 A 1285 A 07CC A 005E B 0F33 A 0087 B 0086 B 0072 B 0026 B 0025 B 

K15 K16 K2 K255 K256 K3 K4 K6 K639 K7 
002D B 0041 B 0040 B 0024 B 003F B 0027 B 002C B 002« B 137A A 0<?2A B 
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K8 K9 KM129 KM41 KM57 KM65 LABEL LABST LBLPT LCNTl 

0029 B 002B 3 1014 A 1234 A 1235 A 1236 A 9B0C A *769 A 003A B 009C B 

LCNT2 LCNT2A LCPTR LEAD LEAD8 LEZ LINIT LIST LISTMD LOCAL 
008D B 123D A 005F B 12E6 A 12E9 A 000B A 0015 B 0AC2 A 00SE B 0A76 A 

LOCCTR LOCREG LPAREN MANYNL MAPDEB MAPDIR MAPLIN MAPSOR MAXR1 MERROR 
005C B 006C B 0046 B 10D2 A 0099 B 1403 A 0E05 A 0E53 A 0A59 A 0F88 A 

MESS MOFLAG MSGBEG MSGEP MSGNOE MSGNXT MSGOCK MSGP MSGSOV MSGTAB 
001B B 006A B 0956 A 0974 A 099B A 0967 A 0994 A 0979 A 097B A 1151 A 

MSGTO MULT NAM0 NAM1 NAM2 NEW1 NEWASM NEWLIN NEXT NEXTA 
0983 A 000D B 007D B 007E B 007F B 0733 A 076A A 10E3 A 0062 B 0065 B 

NEXTB NEXTLB NEXTST NOCOM NOLIST NOMAP NZ 012B OlB OICH 

0068 B 07E0 A 07D3 A 0092 B 0091 B 0093 B 0005 A 10CD A 10B9 A 10BA A 

02B 02CH 04B 06B OBJCK OBJMOD OBJPT1 OBJPT2 OBJPTR OBJREC 
10B7 A 10E4 A 10B6 A 10B5 A 0936 A 0090 B 1304 A 1305 A 13*3 A 12F1 A 

ODD OEPM OGLOB OHEX OHEXIF OIBREP OIBUF OLAST OMAP OMAPNR 
0003 A 0937 A 0D8E A 10A5 A 109D A 110A A 11RE A 08DA A 0D92 A 0D97 A 

OMSG ONLMSG OOREC OOWORD OPGSTR OPTRS OSPDEC OUTWRD OVAL P 
10EB A 10EA A 12A2 A 1294 A 10F6 A 0943 A 1313 A 1065 A 10^3 A 0002 A 

P1P2 P2P1 PAGE PASS PASS1 PASS2 PASS4 PGRL PGSTRG PINIT 
1310 A 13<*D A 0A97 A 005D B 13FC A 13FE A 1401 A ^071 B 06F0 A 07A2 A 

PNCHMD PR2PTR PRCTRL PREPLB PRMPTl PRMPT2 PROMPT PTABF PTABL PTREND 
000C A 1109 A 134F A 0B59 A 125C A 125A A 1263 A 1012 A 1013 A 1699 A 

PTRTAB PUTC QERROR QUOTE R0 Rl R2 R3 RDCRD RDSKIN 
156C A 0010 B 0F84 A 0045 B 0000 A 0001 A 0002 A 0003 A 0011 B 0018 B 

RDSKTM RDTTY READ RELTB REPERR RESETP RPAREN S SCANST SECT 
0019 B 11F8 A 11BB A 1088 A 1114 A 0D90 A 0043 B 8000 A 0DA3 A 005B B 

SEMI SHIFT SHLIN SIZE4 SIZE" SOUCK SPACE SPADR START STBAS 
0049 B 12AF A 004D B FFFF A 0001 A 0935 A 0AAE A 1015 A 072C A 16C1 A 

STPDEF STPT STREL STSER STTOP STVAL TCTR TITLE TLAST TMAX 
0083 B 0085 B 0034 B 0CDE A 1FFF A 0082 B 0058 B 0AD8 A 08D9 A G05B B 

TOP TOPA TOPB TSECT TTLBUF TYPMOD VERROR WDSKOB WDSKTM WORD 
0061 B 0064 B 0067 B 0A52 A 0719 A 0097 B 0F8A A 0017 B 0016 B 0A80 A 

WORD3 WORD4 WORD5 WORD6 X1000 X2020 X2031 X4000 X6666 X7FFF 
12F3 A 12F4 A 12F5 A 12F6 A 003E B 0DF3 A 092E A 0EB5 A 0031 B 0EAB A 

X80<*0 X8004 XARGCK XERR1 XERROR XF000 XFF00 XFFF0 XFFF7 XFFFB 

0030 B 1293 A 1101 A 07C7 A 07C6 A 0C6E A 0042 B 002E B 002F B 0D3A A 

XINOK Z ZERO 

0069 B 0001 A 0023 B 



E9B0 F4BB 



S3 



20 



-Q 



PROMP 



RFVISION-G 05/15/71* 

PROMP 003O8B 08/07/74 



1 0**0 




2 oooo 


/ 


3 oono 


/ 


4 oooo 


/ 


5 ooo* oo*i 


A ZRO 


6 ooon nnr>3 


A ODD 


7 0000 0001* 


A BIT1 


8 0000 0OO5 


A NZRO 


9 0000 00OB 


A NEG 


10 000O 00OC A POA 


1i OOQO 


/ 


1? oooo 


/ 


13 0000 


/ 


It U"UU uu n l 


A STATUS 


15 OOOO 0002 


A STNDRD 


16 OOOO 0010 


A CRADDP 


17 OOOO 




18 OOOO 


/ 


10 o^oo 




20 0*0* 02^0 


T 


21 025 n 8938 


A START1 


2? 0251 8D38 


A 


23 025? 043° 


A 


24 0253 4*01 


A 


^ 0254 2E47 


A 


25 0^55 2E45 


A 


27 0256 04DA T 


2. 9 0? e ;7 862* 


A 


29 0258 A658 


A 


30 0259 CA20 


A 


3 1 O^A A659 


A 


3? O^R 


/ 


3* 025B 892D 


\ START: 


34 025C 4CFF 


A 


35 0250 P620 


A 


36 0?5E 3E3C 


A 


77 025 F 8A3B 


A 


38 0260 A200 


A 


^9 0961 A300 


A 


40 0262 4A01 


A 


41 0963 4B01 


A 


42 0264 49FF 


A 


43 0265 2iFA 


A 


44 0266 


/ 


4^ 0966 $922 


A TSTOPT: 


46 0967 2E45 


A 


47 026? 05 ot ^ 


T 


4° 0269 4D00 


A 


40 026A 2E40 


A 


5* 026B 21FA 


A, 


H 026C F216 


A 


52 026D 2103 


A 


^ 026E 5008 


A 


54 026F 3100 


A 


55 0270 21 F9 


A 


55 0271 F62B 


A 


57 0272 263P 


A 



.TITLE PROMP, '00308B 08/07/74' 
CONDITIONAL CODFS FOR THE BOC INSTRUCTION 



1 

3 

4 

5 

11 

12 



EXPRESSIONS FOR CARD READER I/O 

= j. 
2 
2*8 

.PAGE 



.TSECT 




.=.+0250 


LD 


2, ADR AS E 


LD 


3,CPAD 


RIM 


GPCS 


AISZ 


0,1 


JSR 


3LINITAC2) 


JSR 


flSTYPE(2) 


.WORD 


TPAK1 


LD 


1,N256(2) 


ST 


1,L0W(2) 


ADO 


2,N256(2) 


ST 


1,1+L0W(2) 


LD 


2,ADBASE 


M 


o.-i 


LD 


],N256(2) 


LD 


3,ADH|(2) 


LD 


Anirvn 


ST 


0,(2) 


ST 


0,(3) 


AIS 7 


2,1 


AISZ 


3,1 


AISZ 


1,-1 


JMP 


.-5 


LD 


2,ADBASE 


JSR 


flSTYPE(2) 


.WORD 


TPAK6 


LI 


1,0 


JSR 


3SGETCO(2) 


JMP 


TSTOPT 


SKNE • 


0,CCR(2) 


JMP 


.+4 


SHL 


1,8 


RADD 


0,1 


JMP 


.-6 


SKNE 


l,OM(2) 


JMP 


^SPAPOM(2) 



CLEAR BUFFER MEMORY WITH - 1 



; GET OUTPUT OPTION 



PROMP 



5R 0°73 


F67D 


A 


SKNF 


1,BC(2) 




50 00 7^ 


2103 


A 


JMP 


.+U 




60 n*>7«: 


F6?C 


A 


SKNE 


1,PN(2) 




01 0^76 


^mi 


A 


JMP 


.+2 




R? 0^77 


21EE A 


JMP 


TSTOPT 




6^5 f>*»7« 


A65" 


A 


ST 


1,M0DE(2) 




<^ 0779 


2E^5 


A $1: 


J«?R 


igSTYPE(2) 


; GET INPUT OPTION 


65 r> n 7f 


0«*F3 


T 


.WORD 


TPAK2 




6F n?7P 


2E40 


A $->: 


JSR 


*>SGETC0(2) 




67 027C 


21FC 


A 


JMP 


$1 




fiQ oiTn 


C 21R 


A 


SKWE 


0,CCR(2) 




Ri o°7F 


21" 7 


A 


JMP 


,+h 




70 CP7F 


5D".° 


A 


SHL 


1,8 




71 0*»J> ft 


Tinn 


A 


RADD 


0,1 




7° 02?! 


21 F9 


A 


JMP 


$2 




77 f)not 


W* 


A 


SKNF 


1,CR(2> 




7I* O' 50 "* 


2107 


A 


JMP 


SETCR 




7^ W.Pk 


F62° 


A 


SKNE 


1,PT(2) 




76 O^S 


2Y>? 


A 


JMP 


SETPT 




77 0286 


F62A A 


SKNF 


1,ME(2) 




7» 0287 


2161 


A 


JMP 


MEM 




70 oorq 


21F0 A 


JMP 


$1 




20 0220 


06^ n 


T ADRASE: 


: .WORn 


PBPAGE 




«1 o^pa 


076" A TAD: 


.WORD 


0760 




8? 07SB 


001 a 


A GPC^ 


= 


01 p 




B 7 ; o?j*b 






.PAGE 


'READ CARD RLM 


INTO BUFFERS' 


°[j oo 8 




/ 








8* n9QR 


2EU5 


A SETCR: 


JSP 


3STYPE(2) 




86 09RC 


054E 


T 


.WOR n 


TPAK9 




«7 °7?D 


2E45 


A 


JSR 


PSTYPF(2) 




8» 02**E 


0509 


T 


.WORn 


TPAKIj 




80 02*F 


2E42 


A CRI": 


J^R 


QSRDCRD(2) 




On n?00 


0SB2 


T 


.WORn 


BUF1 




01 0->91 


2E«^ 


A 


JSR 


^SCFT0A(2) 




92 0^92 


08 B 2 


T 


.WORD 


BUF1 




0^ 0^03 


?EM 


A 


JSR 


PSIFFQC2) 




1l» 0291* 


t)PO,'> 


T 


.WORn 


BUF1 




95 "795 


06*3 


T 


.WORD 


ASC8 




OR 0°QF 


nooc 


T 


.WORD 


LDDATA 




97 0007 


2EM 


A 


JSR 


^SIFHH2) 




00 mn«? 


0*R2 


T 


.WORD 


BUF1 




90 CO* 


0667 


T 


.WORn 


ASCC 




TOO "79A 


0317 


T 


.WORD 


STOPT 




mi n?qB 


21F3 


A 


JMP 


CRIN 




l n, > Q79C 




* 








103 079C 


8E38 


A LDDATA: 


LD 


3,ADBUF1(2) 




mil 020D 


2EM 


A 


JSR 


0SAHEBC2) 




105 029E 0225 


A 


SUB 


0,N800l*(2) 




106 079F 


A2UF 


A 


ST 


0,LENGTH(2) 




107 02A0 


UB08 


ft 


AIS7 


3,8 




10* 02A1 


2EM 


A 


JSR 


^SAHP(2) 




10n 02A2 


e^i 


A 


AND 


0,N1FF(2) 




11" "2A3 


E21F A 


SKG 


0,NFF(2) 




IV 07AU 


2im 


A 


JMP 


.+2 




112 02A5 


km 


A 


AISZ 


0,1 




V3 o^A6 


C23B 


A 


ADD 


0,ADL0(2) 




ilk "?A7 A2UE 


A 


ST 


0,ADDR(2) 




115 07A8 


UBOR 


A 


AISZ 


3,8 




116 02A9 


2E«H 


A 


JSR 


(aSAHER(2) 




H7 02AA 


29'>D A 


JSR 


STDATA 




IIS 07AR 


7E4F 


A 


DSZ 


LENGTHC2) 





PROMP 



110 n?AC 


21FC a 


JMP 


.-3 


120 0?AD 


21E1 A 


JMP 


CRIN 


121 02AE 




.PAGE 


'READ PAPER 


122 H2AE 


/ 






lit 02AE 


2E45 A SETPT: 


JSR 


ASTYPE(2) 


124 02 AF 


0511 T 


.WORD 


TPAK5 


125 02B0 


2E4B A PTIN: 


JSR 


@GETC(2) 


126 02B1 


F213 A 


SKNE 


0,N2(2) 


127 02B2 


2101 A 


JMP 


.♦2 


l?f» 0?B3 


21FC A 


JMP 


.-3 


12T n?B4 


2E4B A 


JSR 


@GETC(2) 


^30 02B5 


F21E A 


SKNE 


0,NC0(2) 


131 02B6 


2PF A 


JMP 


SETOFF 


132 02B7 F21D A 


SKNE 


0,N80(2) 


1^ 02B8 


2101 A 


JMP 


,+2 


134 02B9 


21F6 A 


JMP 


PTIN 


135 02BA 


2E4B A 


JSR 


@GETC(2) 


136 02BB 


48FC A 


AISZ 


0,-4 


137 02BC A24F A 


ST 


0,LENGTH(2) 


138 02BD 


4D05 A 


LI 


1,5 


139 02BE 


2E4B A 


JSR 


(3GETC(2) 


140 0?BF 


49FF A 


AISZ 


1,-1 


141 o?co 


21 Fn A 


JMP 


.-2 


142 0T1 


3181 A 


RCPY 


0,1 


143 02C2 


2E4B A 


JSR 


GGETC(2) 


144 o*>C3 


5D0* A 


SHL 


1,* 


145 02C4 


3100 A 


RADD 


0,1 


14P 0*>C5 


6621 A 


AND 


1,N1FF(2) 


147 02C6 


F61F A 


SKG 


1,NFF(2) 




2101 A 


wnp 


.*2 


140 02C8 


4001 a 


AISZ 


1,1 


ISO 02C9 


C63B A 


ADD 


1,ADL0(2) 


151 02CA 


A64E A 


ST 


1,ADDR(2) 


15' 02CB 


4D04 A 


LI 


1,4 


153 02CC 


2E4B A 


JSR 


0GETC(2) 


154 02CD 


49 FF A 


AISZ 


I,- 1 


15"; 02CE 


21FD A 


JMP 


.-2 


156 02CF 


/ 






157 02CF 


2E4B A LP1: 


JSR 


PGETCC2) 


15* 02D0 


31*1 A 


RCPV 


0,1 


159 02D1 


2E4B A 


JSR 


0GETCC2) 


160 02D2 


5D08 A 


SHL 


1,8 


161 0?D3 


3400 A 


RADD 


1,0 


162 02D4 


2903 A 


JSR 


STDATA 


163 02D5 


7E4F A 


DSZ 


LENGTW2) 


164 02D6 


21F3 A 


JMP 


LP1 


165 02D7 


21D8 A 


JMP 


PTiN 


166 02D8 


/ 






167 02D8 B24E A STDATA: 


ST 


0,@ADDR(2) 


168 02D9 


7A4E A 


ISZ 


ADDRC2) 


160 n2DA 


823C A 


LD 


/ ADHI(2) 


170 02DB 


7A4E A 


ISZ 


ADDRC2) 


171 02DC 


F24E A 


SKNE 


0,ADDR(2) 


17? 02HD 


02O0 A 


RTS 




17* 02DE 


7E4E A 


DSZ 


ADDR(2) 


174 02DF 


823* A 


LD 


0,ADBMF1(2) 


175 0?E0 


F24E A 


SKNE 


0,ADDR(2) 


176 02E1 


2101 A 


JMP 


.+2 


177 02E2 


02*0 A 


RTS 




17* 02E3 


823B A 


LD 


0,ADLO(2) 


179 02E4 A24E A 


ST 


0,ADDR(2) 



; TEST FOR START OF TEXT 

; TEST FOR END RECORD 
; TEST FOR DATA RECORD 



PROMP 



l*o 0^5 


0200 A 


RTS 




181 n<>E6 


/ 






18? 02E6 


2EU5 A SETOFF : 


! JSR 


flSTYPE(2) 


183 02E7 


052F T 


.WORD 


TPAK7 


18l» 02F8 


21 ?E A 


JMP 


<^TOPT 


185 0*>E9 




.PAGE 


'MOVE MEMO 


186 0?F9 


* 






187 0?F9 


2E45 A MEM: 


jsr 


ASTYPE(2) 


188 02EA 


O^FD T 


.WORD 


TPAK3 


1*0 02EB 


2925 A 


JSR 


ZROLMT 


190 02EC 


2EW A LP2: 


JSR 


GSGETCO(2) 


191 02ED 


21FB A 


JMP 


MEM 


192 02EE 


F21A A 


5KNF 


0,COL(2) 


193 02EF 


210? A 


JMP 


.+3 


19U O2F0 


2918 A 


JSR 


STOLMT 


195 02F1 


21FA A 


JMP 


LP2 


196 02F2 


8E3A A 


LD 


3,ADLMT(2) 


197 02F3 


2EM A 


JSR 


@SAHEB(2) 


198 n2Fl* A252 A 


ST 


0,SLO(2) 


igq 02F5 


29 IB A 


JSR 


ZROLMT 


200 0?F6 


2EW A LPU: 


JSR 


f3SGETCO(2) 


201 02F7 


21F1 A 


JMP 


MEM 


?0"> 02F8 


F216 A 


SKNE 


0,CCR(2) 


203 02F9 


2W A 


JMP 


.+3 


?0U 02FA 


290E A 


JSR 


STOLMT 


205 0?FR 


21FA A 


JMP 


LPIt 


206 02FC 


8E3A A 


LD 


3,.DLMT(2) 


207 02FD 


2EW A 


JSR 


!3SAHEB(2) 


208 02FE A253 A 


ST 


0,SHI(2) 


200 0?FF 


82^B A 


LD 


0,ADLO(2) 


210 0300 


A24. A 


ST 


0,ADDR(2) 


213 0-S01 


8E52 A 


LD 


3,SLO(2) 


21? 0302 


8300 A 


LD 


0,(3) 


213 0303 


29DU A 


JSR 


STDATA 


21U 030i» 


FE5^ A 


SKNF 


3,SH|(2) 


215 0305 


2111 A 


JMP 


<HTJPT 


216 0306 


UB*1 A 


AISZ 


3,1 


'17 0307 


21FA A 


JMP 


.-5 


?18 0308 


21F9 A 


JMP 


.-6 


''TO 0300 




.PAGF 




720 0309 


/ 






221 0309 


8F55 A STOLMT: 


LD 


3,1+LMT(2) 


222 03OA 


AE5^ A 


ST 


3,lmt(2) 


223 03HB 


8E56 A 


LD 


3,2+LMT<2) 


2?U "30C 


AE5S A 


ST 


3,1+LMT(2) 


225 O30D 


8E57 A 


LD 


3,3+LMT(2) 


226 030E 


AE56 A 


ST 


3^2+LMT(2) 


^27 030F 


A257 A 


ST 


0,3+LMT(2) 


22? 0310 


0->00 A 


RTS 




?2° 0311 


/ 






2^0 0311 


UDOO A ZROLMT: 


LI 


1,0 


231 031? 


A65U A 


ST 


1,LMT(2) 


23? 0313 


A655 A 


ST 


1 # 1+LMT(2) 


233 03U» 


A656 A 


ST 


l / 2+LMT(2) 


23^ 0315 


A657 A 


ST 


1,3+LMT(2) 


235 0316 


O-'OO A 


RTS 




W 0317 




.PAGE 


'GET 0UTPU1 



PRCMP 



237 0317 


/ 






238 0317 


2E45 A STOPT: 


JSR 


OSTYPEC2) 


230 031° 


055B T 


.WORP 


TPAK10 


*>40 0319 


2E45 A 


JSR 


flSTYPE(2) 


241 H31A 


0564 T 


.WORH 


TPAK11 


242 031B 


2E45 A 


JSR 


@STYPE(2) 


243 n-^ic 


0579 T 


.WORH 


TPAK15 


244 o^lD 


2E45 A 


JSR 


@STYPE(2) 


245 031E 


056C T 


.WORD 


TPAK12 


246 031F 


2E45 A 


JSR 


(aSTYPE(2) 


247 0320 


0573 T 


.WORD 


TPAK13 


748 0321 


2E45 A 


JSR 


0STYPEC2) 


249 032? 


0*64 T 


.WORD 


TPAK11 


250 0323 


?E45 A 


JSR 


(3STYPEC2) 


2F7 0324 


05 7C T 


.WORD 


TPAK16 


252 0325 


2F45 A 


JSR 


(3STYPFC2) 


253 ov>6 


056C T 


.WORD 


TPAK12 


254 0327 


2E45 A 


JSR 


(3STYPEC2) 


255 0^8 


0576 T 


.WORD 


TPAK14 


2^6 03?0 


2E45 A 


J<?R 


@STYPF(2) 


257 03?A 


052A T 


.WORD 


TPAK6A 


25° 032B 


4D00 A 


LI 


\0 


250 032C 


A651 A 


ST 


l,OPTION(2) 


260 032D A635 A 


ST 


l,SM0r>E(2) 


261 032E 


A636 A 


ST 


1,1191(2) 


262 032F 


2E40 A LP5: 


JSR 


3SGETCO(2) 


26^ 0330 


21E6 A 


JMP 


STOPT 


264 0331 


F216 A 


SKNE 


/ CCR(2) 


265 033? 


2108 A 


JMP 


BYTOPT 


">66 0333 


F205 A 


SKNE 


0,TWO(2) 


257 0334 


21FA A 


JMP 


LP5 


2&P 0^35 


F207 A 


SKNE 


0,FOJRC2> 


269 0336 


2101 A 


JMP 


.+2 


270 0337 


21DF A 


JMP 


STOPT 


277 033R 


4CFF A 


LI 


a-i 


27? 0339 


A235 A 


ST 


0,SMODE(2) 


273 033A 


21F4 A 


JMP 


LP5 


274 033B 


2E45 A BYTOPT: 


JSR 


^STYPE(2) 


275 033C 


057F T 


.WORD 


TPAK17 


275 033D 


2E40 A LP6: 


JSR 


3SGETCO(2) 


277 033E 


21D8 A 


JMP 


STOPT 


278 033F 


F216 A 


SKNE 


0,CCR(2) 


279 0340 


213B A 


JMP 


PUTSEL 


280 mui 


8635 A TMODE: 


LD 


l,SMODF(2) 


281 0342 


4900 A 


AISZ 


1/0 


282 0343 


210E A 


JMP 


M512 


28"* 0344 


3181 A M256: 


RCPv 


0,1 


?84 0345 


5D08 A 


SHL 


1,8 


?K5 0346 


2140 A 


JSR 


(3SGETCOC2) 


286 0347 


21CF A 


JMP 


STOPT 


287 0348 


3100 A 


RADD 


0,1 


">8S 0^49 


F631 A 


SKNE 


1,LL(2) 


289 034. 


210C A 


JMP 


SETLL 


290 034B 


F63? A 


SKNE 


1,LR(2) 


291 034C 


210C A 


JMP 


SETLR 


292 034D 


F633 A 


SKNE 


1,HL(2) 


2°3 034F 


?10C A 


JMP 


SETHL 


294 034F 


F634 A 


SKNE 


1,HR(2) 


?95 03*0 


210C A 


JMP 


SETHR 


?06 "351 


21E9 A 


JMP 


BYTOPT 


297 035? 


F22F A M512: 


SKNE 


0,ASCL(2) 


29P 0^53 


210D A 


JMP 


SETL 


?99 0354 


F23<> A 


SKNE 


0,ASCR(2) 



'SET MODE' 



PROMP 



300 ^55 210D A 



JMP 



SE7W 



301 0356 

302 0357 

303 0357 

304 0358 

305 0359 

306 035A 

307 035B 
30 p O^C 

309 03 5D 

310 035E 

311 035F 
31? 0^60 

313 03R1 

314 03B1 

315 0362 

316 0363 

317 0364 
31? 0365 
•*lo 03R6 



ntk A 



4C07 
2105 
4C79 
210^ 
P?'3 
2101 
S2?5 
6A51 
A251 
2 IDC 

»103 
2101 
8102 
21F9 
0707 
7*70 



SETLL: 



SETI.R: 



SETHL: 



SFTHR: 



SETL: 

SETH: 

H07O7: 
H7070: 



JMP 

LI 

JMP 

LI 

JMP 

LD 

JMP 

LD 

OR 

ST 

JMP 

LD 

JMP 

LD 

JMP 

.WORD 

.WORD 



BYTOPT 

0,X'07 

.+6 

0,X'70 

.+4 

/ NEOO(2) 

.+2 

0,N8004(2) 

0,OPTION(2) 

0,OPTION(2) 

LP6 

0,H0707 

.+2 

0,H7070 

SETHR+1 

0707 

07070 



3^0 0367 

321 03^7 

3*>'> 03R7 

3^3 0368 

03R9 

03RA 

03RB 

036C 

324 036E 

325 o^RF 
0370 
0371 
037-> 

0373 
"374 
32R 0375 
327 0376 
0377 
037* 
0379 
037A 
03 7B 



.PAGE 'TAPE MESSAGES' 



0007 
00A0 
OOAO 
OOFO 
OOAO 
OOAO 
0000 
00O7 
90*0 
OOPO 
onpo 
Oooo 
OOEO 
0^00 
00O7 
OOEO 
OOAO 
OOEO 
OOCO 
OOAO 
OOOo 



HMFS: 



LMES: 



RMES: 



.WORD 
.WORD 



.WORD 
.WORD 



.WORD 
.WORD 



X'AO^X'AO^'EO^X'AO^X'AO^'OO 



x'so^'so^'so^'so^'fo^'oo 



X'E0 / X'AO / X'E0,X'C0 / X'A0 / X , 0O 



328 037C 

329 037C 

330 03 7C 
?71 037D 
33? 037E 

333 037F 

334 0380 

335 0381 

336 0382 

337 0383 
33" 0384 

339 0385 

340 0386 

341 0387 
34? 0338 
343 ?789 



.PAGE 'OlTPfnr BC PROM TAPE ROUTINE' 



2E45 
0539 
8251 
1517 
8E3B 
2101 
8E3C 
8620 
4C01 
C300 
4B01 
1505 
49FF 
21FA 



RITSFL: 



L00P1: 



L0OP2: 



JSR 


f5STYPE(2) 


.WORD 


TPAK8 


LD 


0,0PTION(2) 


BOC 


NZR0,WAIT 


LD 


3,ADLO(2) 


JMP 


.+2 


LD 


3, ADM (2) 


LD 


1,N256(2) 


LI 


0,1 


ADD 


0,(3) 


AIS7 


3,1 


BOC 


NZR0,.+6 


AISZ 


1,-1 


JMP 


L00P2 



PROMP 



3kh «^.?A FE38 A 


SKNE 


3,ADBUF1(2) 


3U5 03??B 21"B A 


JMP 


WAIT 


31*6 03*C 21F5 A 


JMP 


L00P1 


3«t7 03SD EE3C A 


SKG 


3,ADHI(2) 


3U8 033E 2105 A 


JMP 


.+6 


3^9 03SF 86 IF A 


LD 


1 / NFF(2) 


350 030" 5D08 A 


SHL 


1,8 


351 0391 C651 \ 


ADD 


1,0PTI0N(2) 


352 039'' A651 A 


ST 


1,0PTI0N(2) 


353 0393 2103 A 


JMP 


WAIT 


35»* 039U 861F A 


LD 


1,NFF(2) 


355 0395 A651 A 


ST 


1,0PTI0N(2) 


356 0396 21EB A 


JMP 


L00P1 


357 0397 2E4B A ''AIT: 


JSR 


RGETCC2) 


35* 0398 ; 






359 0398 WO A TE^T: 


LD 


1 / M0DEC2) 


360 039Q F62C A 


SKNE 


1,PN(2) 


3G1 039A 260" A 


JMP 


^S0UTPN(2) 


352 039B 8651 A OUTPR: 


LD 


l r 0PTI0N(2) 


36* 039C 6617 A 


AND 


1,NF(2) 


36U 030D E61U A 


SKG 


l,Hk(2) 


365 030 E 2109 A 


JMP 


CR1 


36* 03^F 8E3B A 


LP 


3,ADL0(2) 


367 O3A0 2E4D A 


JSR 


(3SR0L8(2) 


36? 03A1 2 n 3" A 


JSR 


BCTP 


3R9 03A2 036 E T 


.WORn 


LMES 


* 7r > 03A3 036E T 


.WORD 


LMES 


371 03A<* %*0 T 


.WORD 


LO-1 


37? n^A5 OFF^ A 


.WORD 


X'FFF 


373 H3A6 RE3B A 


LD 


3,ADL0(2) 


37U 03A7 ?FUD A 


JSR 


0SROL8C2) 


375 03A8 






376 n *A8 8F51 A CR1: 


LD 


1,0PTI0N(2> 


377 03A0 5DFC A 


SHR 


M 


37? 03AA A651 A 


ST 


1, OPTION 2) 


379 n^AR 6617 A 


AND 


1,NF(2) 


3*n 03AC E61U A 


SKG 


1,W*(2) 


3»1 13AD 2105 A 


JMP 


CR2 


W> 03AE 2923 A 


JSR 


BCTP 


3*3 03AF 03^E T 


.WORH 


LMES 


3RU O3B0 0375 T 


.word 


RMES 


385 03B1 06BO T 


.WORD 


LO-1 


3R6 03B2 OF^F A 


.WORD 


X'FFF 


387 Q3B3 ; 






38P 03B3 "651 A CR2: 


LD 


1,0PTI0N(2) 


389 03B*i 5DFC A 


SHR 


I A 


390 03B5 A65! A 


S T 


l,0PTinN(2) 


391 03B6 6R17 A 


AND 


1,NF(2) 


39? 03B7 E61U A 


SKG 


1 *.U.f)\ 


*93 03B« ?10R A 


JMP 


CR3 


39H 03B9 8635 A 


LD 


l,SM0nE(2) 


395 03BA A636 A 


ST 


1,LTSW(2) 


39R 03B* 8E3C A 


LD 


3,ADHI(2) 


3*7 03BC 2EUD A 


JSR 


@SR0L8(2) 


39 P 03BD 29 lh A 


JSR 


BCTP 


399 03BE 0367 T 


.WORD 


WES 


'+0n 03BP 03*E T 


.WORH 


LMES 


Ml 03C0 07B1 T 


.WORD 


HIGH 


W» 03C1 OFFF A 


.WORn 


X'FFF 


1*03 03C2 «E3C A 


LD 


3 / ADHI(2) 


kOk ^3C3 2El*D A 


JSR 


@SROL8(2) 


hOS 03C4 ; 






W6 03CU 8651 A CR3: 


ID 


1 / 0PTI0N(2) 



PROMP 



1*07 03C5 

408 H3C6 

409 03C7 

410 03CS 

411 03C9 
41? 03CA 
413 03CB 
41U 03CC 

415 03CH 

416 03CF 

417 03r^ 
41* 0300 

419 03D0 

420 o^Dl 



5DFC 

6617 

E614 

2107 

8635 

A636 A 

2906 A 

03*7 

037* 

07B1 

OFFF 



?E4B A CR4: 
2R3E A 



SHR 

AND 

SKG 

JMP 

LD 

ST 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

JSR 
JMP 



1,NF(2) 
1,N4(2) 
CR4 

:LSM0DE(2) 
1,LTSW(2) 
BCTP 
WES 
RMES 
HIGH 
X'FFF 

0GETC(2) 
e»ASTART(2) 



421 03D2 

422 03D2 

423 H3H2 

424 03 £3 

425 03 C4 

426 03G5 

427 0TO6 
423 03D7 
420 03D8 
43" "3D9 
431 03DA 
43? 03DB 
43^ 03d! 

434 03 m 

435 03DE 
43P 03DF 
437 03E0 
43.? 03E1 
4^0 03E2 

440 03E3 

441 H3F4 
44? 03E5 
44^ ^F6 
444 03E7 
44* 03E8 
44* 03E9 

447 03EA 

448 03EA 
440 03EB 

450 03EC 

451 03ED 
45 1 ? 03EF 

453 03EF 

454 03FO 

455 03F1 

456 03F2 

457 03F3 

458 03F4 
450 ^5 

460 03F6 

461 0^F7 

462 03F8 
4*3 03F9 

464 03FA 

465 03FB 

466 03FC 

467 03FO 



.PAGE 'OUTPUT BC PROM TAPE ROUTINE' 



4700 

8235 

4801 

2105 

4B02 

8236 

150? 

2*5^ 

4BFF 

AE4F 

9F4H 

8700 

7A4F A 

F620 A 

2109 A 

FE24 

?11C 

210? 

8^on 

2E4A 
4B01 
40FF 
?lF r% 
21F2 



BCTP: 



$1?: 



8236 
4801 
210^ 
4901 
21HC 
4C00 
/237 
2030 
4CFF 
4901 
210? 
8300 
5000 
2?4A 
5000 
C237 
A237 
4B01 
49FF 
21F7 



fi CR6: 
A 
A 
A 
A 
/ 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



CBACK: 



CR6A: 



PULL 

LD 

AISZ 

JMP 

AISZ 

LD 

BOC 

JSR 

AIS7 

ST 

LD 

LD 

ISZ 

SKNE 

JMP 

SKNE 

JMP 

JMP 

LD 

JSR 

AISZ 

AISZ 

JMP 

JMP 

LD 

AIS7 

JMP 

AISZ 

JMP 

LI 

ST 

JSR 

LI 

AIS7 

JMP 

LD 

CAI 

JSR 

CAI 

ADD 

ST 

AISZ 

AIS7 

JMP 



0, 3«DE(2) 

0,1 

.+6 

3,2 

0,LTSW(2) 

NZR0,..3 

S40N 

3,-1 

3,LENGTH(2) 

3,0LENG7H(2) 

1,(3) 

LENGTH(2) 

1,N256(2) 

CR6 

3,NFFF(2) 

CR7 

.+3 

0,(3) 

^PUTC(2) 

3,1 

1,-1 

.-4 

SI? 

0,LTSW(2) 

0,1 
.+3 

1,1 

CR6A 

0,0 

0,CKSM(2) 

S160N 

o,-i 

1,1 

.+3 

0,(3) 

0,0 

faPUTC(2) 

0,0 

0,CKSM(2) 

0,CKSM(2) 

3,1 

1,-1 
CBACK 



; TEST FOR START BC 
; TEST FOR END OF TEXT 



; SEND LEADER 



; COMPLEMENT BEFORE OUTPUT 



; OUTPUT START OF TEXT 



PROMP 



468 03FE 
460 03FF 

470 03FF 

471 0400 

47? Him 

47^ nun-) 

474 04 n ^ 

475 0404 

476 0405 

477 0406 
47R 0407 

479 0408 

480 0409 

481 040A 

482 040E 

483 040F 

484 0410 

485 0411 

486 041? 
4»7 0413 
488 0413 
!*pq D414 

400 0415 

401 0416 
4Q*> 0417 
493 0418 
404 0419 

495 041A 

496 041B 
407 041C 
498 041D 
4* r < 041E 

500 041F 

501 ot»20 
50? 0421 

503 0421 

504 042? 



21DO A 



8235 

4801 

210^ 

8?36 

4801 

264F 

4CFF 

2E4A 

2925 

8237 

2900 

040E 

0000 A 

2E45 A 

04OA T 

2919 A 

264F A 



CR7: 



4700 

4D04 

5804 

A237 

6217 

E22E 

2107 A 

4837 A 

A30" 

4B01 

8237 

49FF 

21F5 

2301 



CKMTRL: 



BINASC: 



RL: 



STTBL: 



4*30 A C09: 
21F8 A 



JMP 

LD 

AIS7 

JMP 

LD 

AIS7 

JMP 

LI 

JSR 

JSR 

LD 

JSR 

.=.+4 

.WORD 

JSR 

.WORD 

JSR 

JMP 

PULL 

LI 

ROL 

ST 

ANH 

SKG 

JMP 

AIS7 

ST 

AISZ 

LD 

AiS7 

JMP 

JMP 

AISZ 
JMP 



$12 

0,SMODE(2) 

0,1 

.♦4 

0,LTSWC2) 

0,1 

0LENGTH(2) 

0,-1 

0PUTC(2) 

S40N 

0,CKSM(2) 

BINASC 



@STYPE(2) 
CKMTBL 
S160N 
@LENGTH(2) 

3 

1,4 

0,4 

0,CKSM(2) 

0,NF(2) 

0,BIN9(2) 

C09 

0,037 

0,(3) 

3,1 

CLCKSMC2) 

1,-1 

RL 

1(3) 

0,030 
STTBL 



505 0423 
5*6 OU'3 
507 0423 
50R 04?3 
50Q 04" 
530 0423 

511 04?4 

512 0425 

513 0426 

514 0427 

515 04'?8 

516 0429 

517 04 2A 
51* 042B 

519 04?B 

520 04?B 

521 04?B 

522 042R 

523 04^0 

524 04T> 

525 04'>E 
5?^ 04?F 
5^7 ot^o 
52* 0'i31 



862" A 
830n ?^ 
580S A 
A300 A 
4B01 A 
49FF A 
21FA A 
0200 A 



290^ 
290" 
A64E 
4D2* 
4C00 
2E4A 
49FF 



R0L8: 



S160N: 



'40N: 



.PAGE 'ROTATION AND LEADER/TRAILER' 

THIS SUBROUTINE ROTATES A 256 WORDS 
ARRAY 8 BITS TO THE LEFT 



LD 

LD 

ROL 

ST 

AiSZ 

AIS7 

JMP 

RTS 



1,N256(2) 

0,(3) 

0,8 

0,(3) 

3,1 

1,-1 

.-5 



THIS SUBROUTINE SENDS OUT NULLS 
FOR LEADER/TRAILER 



JSR 

JSR 

ST 

LI 

LI 

JSR 

AIS7 



.+1 

.+1 

1,ADDR(2) 

1,40 

0,0 

APUTC(2) 

1,-1 



PROMP 



5°0 0U3? 21FP A JMP .-2 

5 V) n»,^ 864E a LD 1,ADDR(2) 

531 0434 0200 A RTS 



532 0435 




.PAGE 


'OUTPUT PN 


533 04^5 


/ 






534 0435 


8651 A OUTPN: 


LD 


1,0PTI0N(2) 


535 043* 


6*1 7 A 


AND 


MFC 2) 


536 0437 


E614 A 


SKn 


1,N4<2) 


5^7 ^43* 


2100 A 


JMP 


CN1 


53? H439 


8E3B A 


LD 


3,ADLO(2) 


539 043A 


2E4D A 


JSR 


PSROL8(2) 


540 043B 


29 2F A 


JSR 


PNTP 


541 Oi*3C 


036E T 


.WORD 


LMES 


542 043O 


036E T 


.WORD 


LMES 


543 043E 


06 BO T 


.WORD 


LO-1 


544 043F 


OFF A 


.WORD 


X'FFF 


545 0440 


8E3B A 


LD 


3 / .DLO(2) 


546 0441 


2&4D A 


JSR 


(3TROL8(2) 


547 044^ 


/ 






548 0442 


8651 . CN1: 


LD 


1, (FTI0NC2) 


540 0443 


5BFC /i 


SHR 


M 


550 0444 


A651 & 


ST 


1,0PTI0N(2> 


551 0445 


6617 A 


AND 


1,NF(2) 


552 Qkkfi 


C614 A 


$M 


1,N4(2* 


553 0447 


21 n 7 A 


JMP 


CN2 


554 044* 


?92? A 


JSR 


PNTP 


^55 0449 


036E t 


.WORD 


LMES 


556 044A 


0375 T 


.WORD 


RMES 


557 044B 


06B0 T 


.WORD 


LO-1 


55" 044C 


OFFF A 


.WORn 


X'FFF 


559 044P 


8635 A 


LD 


1,SM0DE(2) 


560 044E 


A6-»;6 A 


ST 


1,LTSV'(2) 


561 044F 


/ 






50° 044F 


8557 A CN2: 


LD 


1,0PTI0N(2) 


563 0450 


5DFC A 


SHR 


1,4 


564 0451 


A65! A 


ST 


1,0PTI0N(2) 


565 0452 


6617 . 


AND 


1 / NF(2) 


56* 0453 


E614 A 


SKG 


1,N4(2) 


567 045l» 


2109 A 


JMP 


CN3 


568 0455 


8E3C A 


LD 


3,ADHI(2) 


560 0456 


2E4D A 


JSR 


flSROL8(2) 


570 0457 


2913 A 


JSR 


PNTP 


571 0458 


0367 T 


.WORD 


HMES 


572 0459 


036E T 


.WORP 


LMES 


573 045A 


07B1 T 


.WORD 


HIGH 


574 045B 


OFFF A 


.WORD 


X'FFF 


575 045C 


8E3C A 


LD 


3,ADHI(2) 


576 045D 


2E4D A 


JSR 


*>SROL8(2) 


577 045E 


/ 






578 045E 


8651 A CN3: 


LD 


1,0PTI0N(2) 


570 045F 


5DFC A 


SHR 


1,4 


580 046° 


6617 A 


AND 


1,NF(2) 


581 0461 


E614 A 


SKG 


1,N4(2) 


5*2 04R2 


2601 A 


JMP 


ASCR4C2) 


583 0463 


8635 A 


LD 


1,SM0DE(2) 


584 0464 


A636 A 


ST 


1,LTSW(2) 


585 0465 


2005 A 


JSR 


PNTP 


586 0466 


0367 T 


.WORD 


HMES 


587 0467 


037^ T 


.WORD 


RMES 


588 0468 


07B1 T 


.WORD 


HIGH 


589 0460 


OFFF A 


.WORD 


X'FFF 
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PROMP 



Son nt*6A 26H1 A 



JMP 



(3SCR4C2) 



591 04RB 




.PAGF 






592 9U5R 


/ 








59"* OlffiR 


1*700 A PNTP: 


PULL 


3 




59** OURC 


8235 A 


LD 


/ SMODF(2) 




5^5 0f;6D 


Mil A 


AIS7 


0,1 




596 OWE 


2104 A 


JMP 


.+5 




597 OUFF 


8236 A 


LD 


0,LTSW(2) 




59" 01*70 


1*800 A 


AISZ 


0,0 




599 01*71 


t*B01 A 


AISZ 


3,1 




500 0U72 


l*B01 A 


AISZ 


3,1 




601 m*73 AE**F A 


ST 


3,LENGTH(2) 




6n? 01*7^ 


?9B8 A 


JSPv 


SI*ON 




603 01*75 9E4F A $13: 


LD 


3,^LENGTH(2) 




fill* 01*76 


870f» A 


LD 


1,(3) 




605 01*77 


7MF A 


fsz 


LENGTHC2) 




606 01*7? 


FF21* A 


SKNE 


3,NFFF(2) 


; TEST FOR END OF TEXT 


607 01*79 


?inq A 


JMP 


CN7 




pop ot*7A 


F620 A 


SKNE 


1,N256(2) 


; TEST FOR START PN 


poo ni*7B 


?Q0F A 


JSR 


CN6 




6 in 01* 7C 


2102 A 


JMP 


.+3 




611 Of t 7D 


8300 A 


LD 


0,(3) 




61*> 0l*7E 


2Ei*A A 


JSR 


(3PUTC(2) 




613 Oh7F 


l*B01 A 


AISZ 


3,1 




511* OUPO 


1*9FF A 


AIS7 


1,-1 




615 o«m 


21FB A 


JMP 


,-u 




616 0'*J?2 


?1F2 A 


JMP 


$13 




617 01*33 


3 








fil* 01*83 


«235 A CN7: 


LD 


0,SMODE(2) 




619 %8l* 


1*801 A 


AiSZ 


0,1 




620 0fc<?5 


210^ A 


JMP 


.♦U 




621 01**5 


"236 A 


LD 


0,LTSW(2) 




R2? or*?7 


!*5"n A 


AISZ 


0,1 




623 0i*<>8 


26t*F A 


JMP 


RLENGTHC2) 




52U °l**9 


29A1 / 


JSR 


S160N 


; SEND TRAILER 


625 "USA 


26I*F A 


JMP 


(3LENGTH(2) 


; RTS 


626 0H5SR 


/ 








627 Ol*F!B 


8236 A CN6: 


ID 


0,LTSW(2) 




62* Ol*8C 


1+800 A 


AISZ 


0,0 




62Q OUSD 


2101 A 


JMP 


.+2 




630 OhPF- 


299C A 


JSR 


S160N 


; SEND LEADER 


R3i ft!»RF AF50 A 


ST 


3,MODE(2) 




53? 0490 


2C3F A CN6A: 


JSR 


*SCRLF(2) 




633 fWi 


1+C03 A 


LI 


0,8 




63'* 01*92 


A2UE A 


ST 


0,ADDR(2) 




635 01*93 


l*CU? A 


LI 


0,X»I*2 


; ASCII 'B' 


636 049** 


^EUA A 


JSR 


^PUTC(2) 




F37 Ol*Q5 


7A50 A 


ISZ 


MODF(2) 




prg nijqp 


9C50 A 


LD 


3,0MODE(2) 




639 01*97 


5F0S A 


SHL 


3,8 




Rl*0 0I*OP 


3C81 A 


RCPY 


3,0 




61*1 0U99 


5F01 A 


SHL 


3,1 




61*'' 0l*9A 


1292 A 


BOC 


2,. +3 




6«*3 0t*9B 


1+C50 A 


LI 


0,X'50 


; ASCII 'P 1 


Kl*l* 0I*9C 


2101 A 


JMP 


.+2 




Rl*5 0I*9D 


l*Cl*E A 


LI 


0,X't*E 


; ASCII 'N' 


61*6 OWE 


2El*A A 


JSR 


gPUTC(2) 




6'* 7 01*0 F 


7Et*E A 


DSZ 


ADDR(2) 




61+?. 0**A0 


21F7 A 


JMP 


.-8 




61*° Oi*Al 


l*Cl*6 A 


LI 


0,X'l*6 


; ASCII 'F' 


650 0t*A2 


2El*A A 


JSR 


APUTC(2) 
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PROMP 



651 0t*A3 


2EU* A 


jsr 


@SETLP(2) 


6<^ OUAU 


2EU9 A 


jsr 


@INTEST(2) 


R53 ^A5 


210? A 


JMP 


.+3 


65U OI1A6 


WFF A 


AISZ 


1,-1 


655 nt*A7 


21E8 A 


JMP 


CN6A 


656 0UA8 


0206 A 


RTS 6 




657 Ol*A9 




.PAGE 


'CARD RLM T 


65* 0M9 


/ 






659 0nA9 


2E^5 A PAPRLM: 


JSR 


flSTYPE(2) 


660 OUAA 


05nE T 


.WORD 


TPAK9 


66! OkfiB 


2E« A 


JSR 


(3STYPE(2) 


662 OUAC 


0539 T 


.WORD 


TPAK8 


663 OkfiP 


2EI»B A 


JSR 


GGETC(2) 


66k OWE 


2D2A A 


JSR 


@SS160N 


665 OUAF 


2EU2 A 


JSR 


flSRDCRD(2) 


6P6 O^BO 


0SB2 T 


.WORH 


BUF1 


667 O^Bl 


2EU3 A 


JSR 


^SCHT0A(2) 


668 04B2 


08B? T 


.WORD 


BUF1 


RRO 0*tB3 


823B A 


LD 


0,ADLO(2) 


6 7n mnk A2I+E A 


ST 


0,ADDR(2) 


671 0^B5 


nci2 A 


LI 


0,18 


672 0'tB6 


.251 A 


ST 


0, CPTI0N(2) 


673 0ltB7 


8E3P A 


LD 


3,ADBUF1(2) 


67U 0**B8 


2EM. A 


JSR 


^SAHEB(2) 


*75 0nB9 


31*1. A 


RCPY 


0,1 


676 nifBA 


661F A 


AND 


1,NFF(2) 


677 OfcBB 


WP A 


AIS? 


1,2 


67?! nhBC A650 A 


ST 


1,M0DE(2) 


679 CftBD 


2101 . 


JMP 


.+2 


6?n OUBE 


2EW . 


JSR 


^SAHFB(2) 


6«n ni+BF 


R2^E A 


ST 


0,AADDR(2) 


**? OnCO 


7AltE A 


ISZ 


ADDR(2) 


rsi onci 


7C51 A 


DSZ 


0PTI0N(2) 


6PU 0i»C2 


?1FB A 


JMP 


,-k 


685 0i»C3 


ItC02 A 


LI 


0,2 


n?>6 n^U 


2EW A 


JSR 


flPUTC(2) 


6P7 niiCS 


PE3B A 


LD 


3 / ADLO(2) 


6°P fUfC6 


830O A 


LD 


0,(3) 


6P0 0^C7 


?Ek6 A 


J^R 


flSPMT2C(2) 


610 OUC? 


UB01 d 


AISZ 


3,1 


591 04C9 


7E5n A 


DSZ 


M0DEC2) 


6^2 OnCA 


21F P A 


JMP 


.-h 


6""S OUCH 


2E3F A 


JSR 


flSCRLF(2) 


son once 


ncoo . 


LI 


0,0 


605 oncn 


I*D05 A 


LI 


1,5 


6of oncE 


2E4A A 


JSR 


0PUTC(2) 


607 oncF 


WFF A 


AISZ 


1,-1 


698 owo 


21DD A 


JMP 


.-2 


60n 0UD1 


8E3B A 


LD 


3,ADLO(2) 


700 0UD2 


8300 A 


LD 


0,(3) 


701 onB3 


5CFU A 


SHR 


0,12 


702 OftDU 


n*Fn A 


AISZ 


0,-12 


70^ onss 


21D9 A 


JMP 


PAPRLM+6 


7% 0nD6 


2EO0 A 


JSR 


aSNULLS(2) 


705 0t»D7 


?El*R A 


JSR 


flGETC(2) 


706 0M)8 


2R3E A 


JMP 


flASTART(2) 


7^7 0UD9 


0U2B T «SlfiON: 


.WORO 


S160N 


7hp OUDA 




.PAGE 


'LIST OF ME! 


709 OUDA 


/ 







; TEST FOR KB INTERRUPT 



; WAIT FOR KB INTERRUPT 



; WAIT FOR KB INTERRUPT 
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PROMP 



710 nUDA ; 






711 n 4 DA ODOA A TPAK1: 


.WORD 


ODOA 


71? nunp, ODOA A 


.WORD 


ODOA 


713 OlfDC ODOA A 


.WORD 


ODOA 


71U OUDD 4E53 A 


.ASCII 


'NSC IMP-16 FIRMWARE PAPER TAPE' 


oi*DE U320 A 






O4DF k9kD A 






%E0 50?D A 






0UE1 3136 A 






%E2 20f|B A 






0^E3 495? A 






0I»E4 4D57 A 






0UE5 415 A 






0UE6 4520 A 






0UE7 50U1 A 






0UE8 SOUS A 






0I»E9 5220 A 






OUEA 5441 A 






04EB 5045 A 






715 OltEC 20U7 A 


.ASCII 


' GENERATOR » 


O4ED 454E A 






OUEE If 55 2 A 






OtEF 4154 A 






0r»F0 4F52 A 






71fi ni*Fl ODOA A 


.WORD 


ODOA 


717 0I»F2 OOnO A 


.WORH 





71?? Qk¥3 ; 






71" n?;F3 ; 






720 0kF3 ODOA A TPAK2: 


.WORD 


ODOA 


7*1 WiFk MUE A 


.ASCI 1 


•INPUT DEVICE; ' 


04F5 5055 A 






0UF6 5U20 A 






0^F7 4445 A 






O4F8 5PW A 






0UF9 43U5 A 






nifFA 3A20 A 






722 OUFB 2020 A 


.WORn 


02020 


723 OUFC 0000 A 


.WORD 





7?4 OfsFD ; 






705 n/*FH ; 






72B O4FD ODOA A TPAK3: 


.WORD 


ODOA 


7?7 ntiFE 5350 A 


.ASCII 


•SPECIFY MEMORY — ' 








'iUrr 4343 m 






^500 W«»R A 






0501 5920 A 






0502 4D45 A 






0^0^ 4D4F A 






050U 5259 A 






05^5 202D A 






0506 2D20 A 






728 0507 202^ A 


.WORD 


02020 


720 050P 0000 A 


.WORD 





730 0500 ; 






731 0509 ; 






732 050O ODOA A TPAK4: 


.WOR" 


ODOA 


73"* 050A 544F A 


.ASCII 


'TO LOAD LM' 


050B 204C A 






050C 4F41 A 






050D 44?0 A 






050E 4C4D A 






7^U 050F ODOA A 


.WORD 


ODOA 


735 0510 Oonn a 


.WORD 





73R 0511 ; 







13 



PROMP 



737 051] 


/ 






738 0511 


ODOA A TPAK5: 


.WORD 


ODOA 


739 051? 


4D41 A 


.ASCII 


'MAKE TAPE READEF 


0513 


4B45 A 






nsit 


2054 A 






0515 


415" A 






0516 


452n A 






0517 


5245 A 






0518 


4144 A 






051" 


4552 A 






0514 


205° A 






051B 


4541 A 






051C 


4450 A 






74" 05in 


ODOA A 


.WORD 


ODOA 


741 051E 


544F \ 


.ASCI 1 


•TO LOAD LM' 


05 IF 


204C A 






05*>0 


4F41 A 






0521 


4420 A 






05?? 


4C4D A 






7«x2 0523 


ODOA A 


.WORD 


ODOA 


743 05?4 


000" A 


.WORD 





744 05?^ 


/ 






745 0525 


/ 






746 0525 


ODOA A TPAK6: 


.WORD 


ODOA 


747 05^ 


ODOA A 


.WORTS 


ODOA 


7k9 0527 4F55 & 


.ASCI 1 


•OUTPUT' 


05?8 


5450 f 






0529 


5554 A 






74° 05 2A 


2054 A TPAK6A: 


.ASCII 


» TYPE:' 


052B 


5950 A 






052C 


453A A 






750 05?n 


202" A 


.WORD 


02020 


751 05 9 E 


0000 A 


.WORD 





75-) 05*>F 


/ 






753 OS'F 


/ 






754 052F 


ODOA A TPAK7: 


.WORD 


ODOA 


755 0530 


545^ A 


.ASCII 


•TURN READER OFF 


0531 


5?4E A 






0532 


205? A 






0533 


4541 A 






0534 


4445 A 






0535 


5?2" A 






0536 


4F4fi A 






0TS7 


4520 A 






756 0538 


000" A 


.WORD 





757 "539 


/ 






75? 0539 


/ 






759 0530 


ODOA A TPAK8: 


.WORD 


ODOA 


760 053A 


5455 A 


.ASCII 


'TURN PUNCH ON' 


053B 


524F A 






053C 


2050 A 






0530 


554E A 






nS3E 


4348 A 






053F 


204F A 






0540 


4E20 A 






761 0541 


ODOA A 


.WORD 


ODOA 


762 0542 


4849 A 


.ASCI 1 


•HIT ANY KEY TO 


0543 


542" A 






0544 


414F A 






0545 


5020 A 






^546 


4B45 A 






0547 


592" A 






0548 


544F A 
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PROMP 



0549 2053 A 






054A 5441 A 






054B 525U A 






763 O^C ODOA A 


.WORD 


ODOA 


764 054D oooo a 


.WORD 





765 054E ; 






766 054E ; 






767 nsfcE ODOA A TPAK9: 


.WORD 


ODOA 


769 054F 4D41 A 


.ASCII 


•MAKE CARD READER READY' 


0550 4B45 A 






0551 2%3 A 






0552 1*152 A 






0553 44?0 A 






055U 521*5 A 






0555 MW A 






0555 4552 A 






0557 205? A 






055R 4541 A 






0550 4459 A 






760 055A 0000 A 


.WORD 





770 05^8 






771 055R ; 






772 055B ODOA A TPAK10: 


.WORD 


ODOA 


773 05 5C ODOA A 


.WORD 


ODOA 


774 055D 5345 A 


.ASH! 


'SFT MODF: ' 


055 15420 A 






0F5F 4D4F A 






0560 4445 A 






0561 3A20 A 






775 0562 ODOA A 


.WORD 


ODOA 


776 0563 OOOQ A 


.WORD 





777 *«;«-4 5441 A TPAKll: 


.ASCII 


•TAPE FOR MM520' 


0565 5^45 A 






0566 2046 A 






05P7 4F5? A 






05** 204D A 






0560 4D35 A 






05RA 3230 A 






77P osrb 0000 A 


# ur)pn 





779 056C 2H50 A TPAK12: 


!ascii 


' PROM - TYPE' 


056D 524F A 






056E 4D20 A 






056F 2D20 A 






057H 5450 A 






0571 5045 A 






7K0 057^ 9 n OO a 


.WORD 





7 p l n«57^ 20^2 A TPAK13: 


.ASCII 


• 2' 


7P? ^74 ODOA A 


.WORD 


ODOA 


7PT 057^ nnno A 


.WORD 





7*4 0575 2034 A TPAK14: 


.ASCI 1 


• 4' 


7R5 0577 ODOA A 


.WORD 


ODOA 


78R 057S 000" A 


.WORD 





787 0570 3320 A TPAK15: 


.ASCI 1 


'3 2K' 


05 7A 324B A 






7HH 057B 000" A 


.WORD 





7*9 05 7C 342n A TPAK16: 


.ASCII 


'4 4K» 


05 7D 344B A 






790 f)57E 0000 A 


.WORD 





701 057F XCRLF: 


;THIS WORD USED AS CONSTANT ELSEWHERE 


702 05 7F ODOA A TPAK17: 


.WORD 


ODOA 


703 05*0 2042 A 


.ASCII 


1 BYTE:' 


OF'l 595U A 






05*2 453A A 
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PROMP 



794 0583 


2020 A 


.WORn 


02020 




795 05P4 


0900 A 


.WORD 







796 05°5 




.PAGE 


'READ CARD ROUTINE* 


797 HSRS 


/ 








7or 05p<; 


4C01 A INFRR: 


LI 


0,1 




7^" 05*6 


noon a 


HALT 




; TRANSMISSION El 


«no 0587 


?91C A 


JSR 


OFFLN+2 




801 05P? 


/ 








802 ns«P 


4C00 A FIRS2: 


LI 


0,0 




pm 05<?Q 


A227 A 


ST 


0,FSTCD(2) 




80fi 05 *A 


/ 








«0«; 05 « A 


8227 A RDCARD: 


LD 


0,FSTCD(2) 




P06 °5PB 


1512 A 


BOC 


NZRO, FIRST 




807 05 PC 


4F10 A 


LI 


3,CRADDR 




*>0P 05 PD 


2104 A 1-m.OOP: 


JMP 


.+5 




800 05 PE 


721E A 


SKAZ 


0,NC0(2) 




810 05 8F 


21F5 A 


JMP 


INERR 




811 0590 


5CFE A 


SHR 


0,2 




81? 05^1 


14FB A 


BOC 


BIT1,WTLC0P 


; BRANCH IF BUSY 


R13 0592 


470H A 


PULL 


3 


; MOVE DATA 


814 0593 


4390 A 


PUSH 


3 




815 0594 


8F00. / 


LD 


3,(3) 




PIP 0595 


8639 A 


LD 


1 / ADBUF2(2) 




817 9596 


A54P A 


ST 


1, INDEX 




818 H597 


4D50 A 


LI 


1,80 




819 0598 9144 A $11: 


LD 


0,fi!NDEX 




820 9599 


A300 A 


ST 


0,(3) 




821 059A 


7942 A 


IS7 


INDEX 




822 05"B 


4B01 A 


AISZ 


3,1 




P23 059C 


49FF A 


AIS7 


1,-1 




824 059D 


21FA A 


JMP 


$11 




825 059E 


/ 








P?6 059E 


4F19 A FIRST: 


LI 


3,CRAr»DR 




S?7 059F 


0401 A 


RIN 


STATUS 




825? 95A0 


'inn a BUSYT: 


JMP 


.+1 




829 9^A1 


1405 A 


BOC 


RIT1, READY 


; BRANCH IF READ' 


P39 95A2 


8227 A OF^LN: 


LD 


0,FSTCD(2) 




831 05A3 


1503 A 


BOC 


NZRO, READY 




P32 95A4 


4C01 A 


LI 


0,1 




P3^ 05A5 


A227 A 


ST 


0,FSTCD(2) 




83'» 05A6 


0291 A 


RTS 


1 




R35 05A7 


) 








836 05A7 


8239 A READY: 


LD 


0,ADBUF2(2) 




837 05A8 


3280 A ROC: 


RXCH 


0,2 




838 05A9 


2D05 A 


JSR 


ORDCRDP 




P39 05AA 


21DA A 


JMP 


INERR 




849 05AR 


32R1 A 


RCPY 


0,2 




841 05AC 


8227 A 


LD 


0,FSTCD(2) 




842 05AD 


15DA A 


BOC 


NZRO,FIRS2 


; BRANCH IF FIRS 


843 95AE 


0201 A 


RTS 


1 




844 05AF 


/ 








P45 05 AF 


7FD3 A RDCRHP: 


: .WORD 


07FD3 




84B 05B0 




.PAGE 


•INITIALIZATION OF 16L/16P' 


847 05B0 


/ 








84* 95B0 


; INITIALIZE PROGRAM FOR 16L/16P 


849 O5B0 


/ 








850 05B0 


2E4R A LIMIT: 


JSR 


^SETLP(2) 




851 05B1 


810C A 


LD 


0,WTLPA 




852 05B2 


A1DA A 


ST 


0,WTLOOP 
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853 05B3 *10B 


A 


LD 


0, LBUSYT 


85U 05BU A1E* 


A 


ST 


0,BUSYT 


855 05B5 810A A 


LD 


0,LRDC 


856 05B6 A1F1 A 


ST 


0,RDC 


857 05B7 8109 


A 


LD 


0, LRDP+1 


858 05B P A1F0 A 


ST 


0,RDC+1 


P59 ^5B9 8198 


A 


LD 


0,LRDC+2 


860 95BA A1EF 


A 


ST 


0,RDC+2 


861 05BB 8107 A 


LD 


0, LRDC+3 


8^ 05BC A1EE 


A 


ST 


0,RDC+3 


863 05BD 0200 


A 


RTS 




Wk 05BF 


/ 






*65 05BE 0401 A WTLPA: 


RIN 


STATUS 


866 05BF 5CFF 


\ LBUSYT- 


SHR 


0,1 


867 05C0 0602 


A LRDC: 


ROUT 


STNDRD 


868 05C1 1C01 


A 


BOC 


P0A,.+2 


gcq 05C2 21FP 


A 


JMP 


.-2 


870 05C3 2109 A 


JMP 


.+1 


871 95Ctt 




.PAGE 


•HOLLERM 


87? n«;c4 


/ 






873 05CU .918 


A O'TOA: 


ST 


2, INDEX 


87U 05C5 4700 


# 


PULL 


3 


875 05C6 4300 


• 


PUSH 


3 


876 05C7 4D50 


A 


LI 


1,80 


877 05A8 KFOO 


A 


LD 


3,(3) 


878 05C9 8300 A $5: 


LD 


0,(3) 


R79 05CA 890F 


A 


LD 


2,?ADDR 


880 05CB F200 


/$7: 


SKNE 


0,(2) 


881 05 C 2105 


A 


JMP 


$14+1 


$32 05CH F90D 


A 


SKNE 


2, BADDR 


883 05CE 2102 


A 


JMP 


$14 


884 05 CF UA01 


A 


AISZ 


2,1 


885 05H0 *>1FA 


A 


JMP 


$7 


886 05D1 8908 A $14: 


ID 


2, TADDR 


887 05D2 D907 A 


SUB 


2, TADDR 


88 « 05D3 £»A20 A 


AIS? 


2,X'20 


«*9 05D«* .ROO 


A 


ST 


2,(3) 


890 05D5 fcBOl 


A 


AISZ 


3,1 


891 05D6 49FF 


A 


AISZ 


1,-1 


892 05D7 21F1 


A 


JMP 


$5 


893 05 D8 A904 


A 


LD 


2, INDEX 


*9k 05D9 0™1 


A 


RTS 


1 


895 05DA 


/ 






89R 05PA 0617 


T TADDR: 


.V/ORD 


BEGHOL 


897 05DR 0657 


T BADDR: 


.WORD 


ENDHOL 


898 05DC 05DD 


T COUNT: 


.=.+1 




890 05DD 05DE 


T INDEX: 


.=.+1 




900 05DF 


/ 






901 05DE 0800 


AC12 


= 


2048 


902 05DE 0^00 


A Cll 


= 


1024 


90^ 05DE 0200 


A CO 


= 


512 


90£» 05DE 0100 


A CI 


= 


256 


905 OSDE OOPO 


. C2 


= 


128 


OOP 05DE 00M*» 


A C3 


= 


61* 


907 05DE 0020 


A C4 


= 


32 


908 05 DE 001O 


A C5 


= 


16 


909 05DE OOOP 


A C6 


= 


8 


910 05DE OOOU 


A C7 


= 


4 


911 "FDF 000? 


A C8 


= 


2 


912 05DF 0001 


A C9 


= 


1 



; SAVE PBPAGE INDEX 



; RESTORE PBPAGE INDEX 



; TOP OF HOLLERITH TABLE 
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PROMP 



913 05DE 
9 11* 05DE 

915 05OE 

916 05DF 

917 05E0 
91R 95F1 
919 05E2 
9*>0 OSE3 
921 OREU 
92? 05E5 
923 05E6 
92k 05E7 

925 05E8 

926 05E9 

927 95EA 
923 ^5EB 

929 95EC 

930 OSED 

931 9«;EE 

932 ^5EF 

933 ^SFO 
93t 05F1 

935 05F2 

936 95F2 

937 H5F3 



. PAGE 'ASCII TO R I NARY CONVERS I ON ' 



A9FE 
i*D0U 
A5FB 
5C04 
<?700 
890E 
F600 
2105 
F90C 
2192 
4A01 
21FA 
8907 
D90P 
3*99 
UB01 
7DED 
21F1 
R9EC 
n?oo 



$3: 



$6: 



A AHEB: 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



$19: 



965B T TABAD: 
0*6A T TABTOP: 



ST 

L! 

ST 

SHL 

ID 

LD 

SKNE 

JMP 

SKNE 

JMP 

AIS7 

JMP 

LD 

SlIP 

RADD 

AIS7 

DSZ 

JMP 

LD 

RTS 

.WORn 
.WORD 



2, INDEX 

1, COUNT 
0,1* 
1,(3) 
2, TABAD 
1,(2) 
$10+1 
2, TABTOP 
$10 

2,1 

$6 

2, TABAD 

2, TABAD 

2,0 

3,1 

COUNT 

$3 

2, INDEX 



BEGASC 
ENDASC 



SAVE PBPAGE INDEX 



; FOUND HEX NUMBER 



; RESTORE PBPAGF NUMBER 



93S 05FU 
939 05F1+ 
HUO 05F^ 
941 05F5 
W 95F6 
QM 05F7 
9hk 05F7 
9t*5 05F8 
9U6 05F9 
9^7 05 B\ 
9hP 05 FB 
9U9 95FC 

950 05F> 

951 05FF 
95^ 05FF 
953 05FF 
95U nsnn 
Q55 0601 
956 0RO2 



.PAGE 'SPECIAL OUTPUT ROUTINES' 



K1SA A CRLF: 
29 0^ A 
/ ?n r > A 



U300 
8F00 
8390 
1111 
2902 
W01 
21FB 



A TYPE: 

A 
A 
A 
A 
A 
A 



2900 A PUT2A: 
5*9* A 
2EUA A 

90QO A 



LD 

JSR 

RTS 

PULL 

PUSH 

LD 

LD 

BOC 

JSR 

AISZ 

JMP 

JSR 
ROL 
JSP 
RTS 



0,XCRLF 
PUT2C 



3 

3 

3,(3) 

0,(3) 

ZR0,RET1 

PUT2C 

3,1 

.-k 

.+1 
0,8 
APUTC(2) 



957 0PO3 

958 0603 
95 n 0603 

960 0601; 

961 06"5 

962 0R96 

963 0697 
96tf 9690 

965 9R9Q 

966 969A 

967 060B 
96? 960C 
969 0R9D 
97^ 969E 



.PAGE 'GET CHARACTER ROUTINE' 



2E'tC 
621C 
D21^ 
?107 
F218 
?1FA 
F219 
21FR 
F21G 
0290 
0201 



A GFTCO: 

A 

A 

A 

A 
A 
/ 
A 
A 
A RET1: 



JSR 

AND 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

RTS 

RTS 



0GECO(2) 

0,N7F(2) 

0, fc(2) 

REINIT 

0,SP(2) 

GETCO 

0,C0M(2) 

GETCO 

0,ALT(2) 



; MASK OUT BITS 7-15 

; TEST FOR CNTRL/D 

; TEST FOR SPACE 

; TEST FOR COMMA 

; TEST FOR ALT KEY 
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PROMP 



971 H60C 4400 A REINIT: PULL 

97? 0*OF 263E A JMP (3ASTART(2) 



RESTART 



JSR 

.WORD 

.WORD 

.WORP 

*** 



973 0610 

974 OR in 

975 0610 
076 96in 

977 0619 

978 0610 

979 0610 ; D: 

980 0610 

981 9*10 
9.o? 0610 
983 0*10 1+700 A IFEO: PULL 
9*4 9611 9300 A LD 
985 0*12 0701 A LD 
086 HR13 3^9? A RXOR 
987 0614 1101 A BOC 
98." 0*15 230-S A JMP 
98<> 0616 270? A JMP 



.PAGE 'IF EOUAL JUMP ROUTINE 1 



0SIFEQC2) 

A 

B 

C 



IF A=R, JUMP TO C, ELSE JMP TO D 



3 
0,0(3) 

1,0 

ZR0,.+2 
3(3) 
32(3) 



990 
091 
002 
qq3 



994 



995 



996 



007 



09? 



999 



1000 



0617 
0617 
0617 
0618 
06 in 
06 1A 
0*1 B 
061C 
06 ID 
%1E 
0*1F 
0620 
0621 
0622 
0623 
0624 
0*25 
0^2* 
•o*?7 
06?S 
OR™ 
06 2A 
062B 
n*2C 
062D 
062E 
0*?F 
0630 
0P31 
063? 
0633 
0*34 
0635 

0R3* 

o*37 
%38 
o*39 
063A 
0*3B 
06 3C 



00*0 
048'' 
0006 
0042 
0442 
0222 
0800 
0012 
0812 
0412 
0422 
nooA 
0242 
0400 
n<?42 
030" 

q?oo 

Oinn 
0080 
0040 
0020 
OOin 
0008 
0004 
00H2 
nooi 
ono? 

040A 
W* 

000 A A 
020A A 
090* 

on?? 
0900 
0880 
0840 
0820 
0810 



A BEGHOL: 
A 
A 
A 
A 
A 
A 
/ 
A 
A 
A 
A 
A 

A* 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



,PAGE 'HOLLERITH TABLE' 



.WORP 

,WORP C11+C2+C8, C7+C8,C3+C8,C11+C3+C8 



.WORD 00+04+08,012,05+08,012+05+08 



.WORD C11+C5+C8, C11+C4+C8, C12+C6+C8 



.WORD C0+C3+C8, Oil, C12+C3+C8, 00+01, CO, 01, 02 



.WORD 03,04, C5,C6, 07,08,09, 02+08,011+06+08 



.WORD C12+C4+C8, C6+C8, C0+C6+C8, C0+C7+C8 



.WORD C4+C8, C12+C1, C12+C2, C12+C3, 012+04 



.WORD 012+05,012+06,012+07,012+08,012+09 
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PROMP 



1001 



1002 



1003 



loot 

1005 
TO OR 



OR 3D 

OP^H 
063F 
9R40 
OR 41 

0R44 
0R45 
0R46 
0647 
0648 
OR 40 
064A 
0R4B 
0640 
064D 
0R4E 
0R4F 
OR50 
0651 
065? 
0653 
0R54 
0655 
0656 
0657 



OPOP 
0804 
080? 

n««i 

050* A 

0480 A 

0440 

042* 

0410 

0408 

0404 

040? 

0401 

02?o 

0240 

02*>0 

0210 

0?o*» 

0204 

0202 

0?01 

08P2 

0?»? 

0806 

0406 A 

fV>12 A 

010? A ENDHOL: 



.WORD Cll+Cl, 011+02,011+03, 011+04,011+05 



.WORD C11+C6, C11+C7, C11+C8, C11+C9, 00+02 



. WORn C0+C3, C0+C4, C0+C5, C0+C6, C0+C7, C0+C8 



.WORD C0+C9, C12+C2+C8, C0+C8+C2, C12+C7+C8 

.WORD 011+07+08,00+05+08 
.WORD 08+01 



1007 
100* 
100O 
1010 
1011 

ior 

1013 
1014 

ioi«; 
10 ir 

1017 
1018 
1019 
1020 
10?1 
10?? 

1024 
10 ? 5 

102R 
10^7 

1029 
1030 
1031 
103? 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 



065? 

0658 
0^5* 
0R5R 

or«;p 

0R5 n 
0659 
065A 
065A 
065B 
065C 
0R5C 
0R5D 
0R5P 
0R5F 
0R5E 
0R5F 
065F 
06RO 
0661 
06R? 
0663 
0664 
0665 
06RK 
06^7 
066? 
0660 

066A 
066B 
066B 
ORRC 
0660 



,PAGE 'PSeiDO BASE PAGE' 



PBPAGE: 



0000 
042B 

onni 
03D0 
0002 
0435 
00^0 
0004 
0031 
0005 
003? 
0006 
0033 
00O7 
0034 
0035 
0036 
0037 

oo3n 

0039 
0041 

0043 
0O44 
004^ 
0046 
0013 
000? 
0014 
0004 



SNULLS = 



SCR4 

SOUTPN = 

BEGASC: 
ONE 

TOO 

THREE 



A 

T 

A 

T 

A 

T 

A 

A 

A 

A 

A 

A 

A 

. FOUR 

A 

A 

A 

A ASC7: 

A A°,C8: 

A 

A 

<\ 

A A^OC: 

A 

A 

A 

A 

A 

A 



ENDASC: 
N2 

N4 



.WORn 

.WORD 

.woro 

.WORD 

.WORP 

.WORD 

.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.'-JORP 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 

.LORD 

.WORD 



.-PBPAGE 
S160N 
.-PBPAGE 
CR4 

.-PBPAGE 
OUTPN 
X»30 

.-PBPAGE 
X'31 
.-PBPAGE 
X'32 

.-PBPAGE 
X'33 
.-PBPAGE 
X'34 
X'35 
X'36 
X'37 
X'38 
X'39 
X'41 
X*42 
X'43 
X'44 
X'45 
X'46 
.-PBPAGE 
X'02 
.-PBPAGE 
X»04 
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PROMP 



10W HRHn 0015 A N8 


= 


.-PBPAGE 


101*2 066D 00OP A 


.WORD 


X'08 


1 043 166E 001P A rCR 


= 


.-PBPAGE 


1044 0S6E OOOD A 


.WORD 


X'OD 


1045 O^nF 0017 A NF 


= 


.-PBPAGE 


IQfjK nf^F OOOF A 


J'ORD 


X'OF 


1047 067" 0^1? . SP 


= 


.-PBPAGE 


lOU* 0670 0021 A 


.WOP.P 


X'20 


10r+o 0671 0019 . COM 


= 


.-PBPAGE 


lO^o 067! no?C A 


.WDRn 


X»2C 


in*] 0572 001A A COL 


= 


.-PBPAGE 


1052 %72 On^A A 


.WORD 


X'3A 


105^ 0673 nOlE A ALT 


= 


.-PBPAGE 


1054 0673 007 T A 


.WORD 


X'7D 


1055 0674 0"1C A >'7F 


= 


.-PBPAGE 


1056 0674 007F A 


.WORD 


X*7F 


1057 0F75 '" r 'ID A N80 


s 


.-PBPAGE 


105?? ^75 00*0. > 


.WORD 


X'80 


1050 HP76 001C A NCO 


= 


.-PBPAGE 


10RO 0676 OHCO A 


.WORD 


X'CO 


1061 0677 OOIF A NF^ 


= 


.-PBPAGE 


1062 "677 OOFF A 


.WORD 


X'FF 


1063 067* 00?n . N256 


= 


.-NBPAGE 


7064 067" 0100 A 


.WORD 


256 


10R5 0670 0^21 A N1FF 


= 


.-PBPAGE 


1066 0679 01FF A 


.word 


X'IFF 


1067 H67A 00^2 A N512 


= 


.-PBPAGE 


10** 067A 02on a 


.WORD 


512 


1069 06 7B 0023 A NEOO 


s 


.-PBPAGE 


1070 067B OEOO A 


.WORD 


X'EOO 


1071 067C Omk A MF^F 


= 


.-PBPAGE 


107^ 067 T OFFF A 


.VJORD 


X'FFF 


107^ 0R7D 0025 A N80O4 


= 


.-PBPAGE 


1074 06 7H 8004 A 


.WORD 


X'8004 


1075 06 7E 0026 A NC 


= 


.-PBPAGE 


1076 067E 000 C A 


.WORD 


' X'OC 


1077 067F 0027 A FSTCD 


= 


.-PBPAGE 


107* 067F FFFF A 


.WORD 


-1 


1079 Q6 p OP ** I CR 


s 


-ooDArsc 


10*0 06*0 4352 A 


.ASCII 


•CR' 


1081 06*1 00?Q . FT 


= 


.-PBPAGE 


iftoo ncoi crtci. 

JLV-l'-. «I!()J, .""^'f a 




In-rl 

r i 


10*3 06^7 nn2. A MF 


= 


.-PBPAGE 


1084 06*2 4D45 A 


.ASCII 


•ME' 


10*5 06*3 002R A OM 


= 


.-PBPAGE 


10*6 06^3 4F4D A 


.ASCII 


•OM» 


10*7 HROfj n^?A A Ft 1 


= 


.-PBPAGE 


10*8 n6*4 504C A 


.ASCII 


•PN' 


10*9 06*5 002 T A BC 


= 


.-PBPAGE 


10Q0 0685 4243 A 


.ASCII 


•BC 


1091 06*6 002E A RIN9 


= 


.-PBPAGE 


1092 06*6 Oong a 


.WORD 


9 


1093 06*7 002F A A*CL 


= 


.-PBPAGE 


1094 06*7 004C A 


.WORD 


04C 


1095 06*3 00^0 A ASCR 


= 


.-PBPAGE 


1096 06** n 52 A 


.WORD 


052 


1097 %*9 00^1 A LL 


= 


.-PBPAGE 


1098 06*9 4C4C A 


.A^ni 


•LL' 


1099 068A 0032 A LR 


= 


.-PBPAGE 


HO" or*. 4C52 A 


.ASCII 


•LR' 


1101 06*+ 0033 A HL 


= 


.--BPAGE 


1102 0P8B 4*4C A 


.ASCII 


»HL* 


110^ 06 RC 0034 A HR 


s 


.-PBPAGE 
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1104 

1105 
1106 
1107 
110* 
1100 
1110 
1111 
1112 
IW* 
11 lit 
11.15 
11 1R 
1117 
111*' 
llin 
1120 



06 3C 
OR 3D 
06PD 
OR<>E 
OR<>E 
HRSF 
06RF 
OGOO 
0690 
0601 
0^1 
0Ro<> 

0602 

0693 
0R94 
OROU 



U* 5 2 
0035 
068E 
0036 
06 *F 
0037 
06^0 
003R 
0PR2 
0030 
0002 
003A 
ORAC 
007B 
06B1 
003C 
07B2 



SMOHF 



LTSW 



CKSM 



ADLMT 



ADLO 



ADHI 



.ASCI ! 

a 

.=. + 1 



.=. + 1 



= . + 1 



WRUF1 = 



.WORD 



MDBUF2 - 



.WORn 



.WORD 
.WORD 



.WORD 



'HR' 
,-PBPAGE 

.-PBPAGE 

,-PBPAGE 

,-PBPAGE 

BUF1 

,-PBPAGE 

BUF2 

,-PBPAGE 

SLMT 

.-PBPAGE 

LO 

,-PBPAGE 

HI 



1121 
112? 
1123 
1124 
1125 
1126 
11?7 
112° 
1120 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 

in* 

1139 
1140 
1141 
11U2 
17.43 
1144 
1145 
1146 
1147 
HUP 
11U9 
1150 
1151 
115? 
1153 
1154 
1155 
1156 



0695 
0605 
0605 
OR05 
nr;np 
OROg 
OP07 
nco7 
0R08 
0698 
0690 
9600 
069A 
0R9A 
0R9B 
0R9B 
0R9C 
0R9C 
HROD 
OROH 
OROE 
0P9E 
OROF 
0R9F 
06A0 
06A0 
06A1 
06A1 
OR .2 
06A2 
06A3 
06A3 
06A4 
06A4 
0RA5 
D6A5 



,PAGE 'SUBROUTINE VECTOR' 



0itA9 
O03E 
n?«;B 
H03F 
0SF4 

0603 

oni»i 
05DE 
0042 
05 SA 
0043 
05C4 
004't 
OR 10 
0045 
05F7 
004R 
05 FF 
0047 
05B0 
0Q4P 
09 BC 
0H4O 
0996 
004A 
09P7 

no4B 

096R 
004C 
0992 
0H4D 
04^3 



A ^PAPOM 
T 

* ASTART 
T 

A SHRLF 
T 

A SRETCO 
T 

A SAHEB 
T 

A ^RPCRD 
T 

A SCHTnA 
T 

A ^IFEO 
T 

A 5TYPE 
T 

A <:Pirr2C 
T 

. /UNITA 
? 

A SETLP 

T 

A INTENT 

T 

A PUTC 

T 

A r.rj C 

T 

A GECO 

T 

A SR0L8 

T 



.WORD 
.WORn 
.WOR^ 
.WORD 
.WORD 

s 

.WORn 
.WORD 
.WORD 
.WORO 
.WORn 
.WORD 
.WORD 
.WORD 
.WORn 
•VJORD 
.WORD 
.WORD 



.-PBPAGE 

PAPRLM 

.-PBPAGE 

START 

.-PBPAGE 

CRLF 

.-PBPAGE 

GETCO 

,-PBPAGE 

AHEB 

,-PBPAGE 

RDCARD 

,-PBPAGE 

CHTOA 

.-PBPAGE 

IFFQ 

.-PBPAGE 

TYPE 

.-PBPAGF 

PUT2C 

,-PBPAGE 

UNIT 

,-PBPAGE 

SETPL 

,-NBPAGE 

TTEST 

,-PBPAGE 

PPIITC 

,-NBPAGE 

SGETC 

.-PBPAGE 

PGECO 

,-PBPAGE 

R0L8 



1157 0RA6 
115<? %A5 
1150 06A6 onuE 
HP n 0RA6 06A7 
11.R1 0^A7 OOUF 
1162 nnA7 06AR 



ADDR 



LENGTH = 



.PAGE 

,=.+1 
=.+1 



•TEMPORARY BUFFERS' 

,-PBPAGE 

,-PBPAGE 
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11R3 06A8 0050 A MODE = .-PBPAGE 
1164 06A8 06A9 T .=.+1 



1165 06A9 0051 A OPTION 


= 


.-PBPAGF 


llfifi 06A9 06AA T 




.=.+1 




1167 06AA 0052 


A 


SLO 


= 


.-PBPAGE 


116* 06AA 06AB 


T 




.=.+1 




1169 06AO 0053 


A 


SHI 


= 


.-PBPAGE 


1170 06AB 06AC T 




.=.+1 




1171 06AC 0054 


A 


LMT 


s 


.-PBPAGE 


1172 06AC 06B0 T SLMT: 


.=.+4 




1173 O6B0 






.PAGE 


'BUFFER 1 


1174 06B0 




/ 






1175 06B0 0058 


A 


LOV* 


= 


.-PBPAGE 


1176 06 BO 06B1 T 




.=.+1 




1177 06B1 07B1 


T 


LO; 


.=.+256 




117? 07B1 07B2 


T HIHM: 


.=.+1 




1179 07B2 08B2 


T HI: 


.=.+256 




1180 08B2 0902 


T BUF1: 


.=.+80 




1181 ogo-* 095? 


T BUF2: 


.=.+80 




1182 0952 




/ 






1183 0952 




/ 






11*4 0^52 nn?9 


A ta 


= 


41 


1185 0952 001? 


A TB 


= 


18 


1186 0952 0070 


A TC 


= 


112 


1187 0952 0009 


A 


EA 


= 


9 


1188 0952 0016 


A 


EB 


= 


22 


11R9 0952 0026 


A 


EC 


= 


38 


1100 0952 00^8 


A TTYAD 


= 


7*8 


1191 0952 FFF5 


A 


OPLAY 


= 


0FFF5 


1192 0952 FFF6 


A DELAY1 


s 


0FFF6 


1193 005? FF^R A TTYSR 


= 


OFFFB 


119** 095° 






.PAGE 




11°5 0952 




/ 


TELETYPE TRANSMIT 


linr 005? 




/ 






1197 0952 294B 


A 


LPUTC: 


JSR 


SAVE 


119? 0053 3181 


A 




RCPY 


0,1 


1100 9954 0A80 


A 




PFLG 


2 


1200 0955 4C30 


A 




LI 


0.X»30 


1201 0O56 03 B5 


A 




JSRI 


DELAY1 


1202 0957 4e09 


A 




LI 


2,o 


1203 095P 4F38 


A 




LI 


3, TTYAD 


1204 005 n 050-S 


A 




ROUT 


3 


1205 095A 03F5 


A 


LPC1: 


JSRI 


DELAY 


120R 005B 5829 


A 




ROL 


0,TA 


1207 0O5C 4AFF 


A 




AIS7 


2,-1 


1208 005D 2101 


A 




JMP 


.+ 2 


1200 005E 2101* 


A 




JMP 


DONE 


1210 005F 59FF 


A 




ROR 


1/1 


1211 0960 3481 


fl 




RCPY 


1,0 


121? 0OR1 0603 


A 




ROUT 


3 


1213 0062 21F7 A 




JMP 


LPC1 


1214 0963 4CFF 


A oofF: 


LI 


a-i 


1215 0964 0603 


A 




ROUT 


3 


1215 0965 0605 


• 




ROUT 


5 


1217 0966 2140 


A 




JMP 


RESTOR 


1218 0OH7 






.PAGE 




1210 0OR7 




/ 
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1220 0%7 2036 A PPUTC: jsr savf 

1221 OOfi* ">D01 A JSRI3 PRJTCA 

1222 0°6^ 21U6 A JMP RECTOR 

1223 196A ; 

l?2k 0"6A 7F59 A PPUTCA: .WORD 07E59 



1225 096B .PAGE 

1226 «m ; GET CHARACTER ROUTINE 
1?27 096B ; 

1228 096B 2932 A SGETC: JSR SAVE 

122« nqr,c 2D02 & PGETC: JSR flPGETCA 

1270 096D A13C A ST 0,REG 

1231 0"SE 21M A JMP RESTOR 

1232 096F ; 

1233 0Q6F 7E3B A PGETCA: .WDRP 07E3B 



1231+ 0070 .PAGE 

1275 0970 ; GET CHARACTER AND ECHO ROUTINE 

1236 0970 ; 

1277 0070 2920 A LGECO: 

123* 0O71 UF3P A 

1239 0072 OA"0 A 

171*0 0973 0605 A 

12M 097U I+E08 A 

12*+2 0075 060fc A 

1243 0976 OUO? A 

12M+ 0977 l?oi a 

12U5 iq7* 21FD A 

UkB 1070 4C09 A 

1^7 007A 03F6 A 

121+8 097B 58CA A 

l?l»9 0O7C 01+0? A 

1250 09 7d 1201 A 

1251 00 7E 21 R A 

1252 0Q7F 0603 A LP3: 

1253 0980 03F5 A 
125'+ OO^l 5*26 A 

1255 0982 01+02 A 

1256 0983 610D A 

1257 0981+ 5DFF A 

1258 0985 31S2 A 

1259 0986 l+AFF A 

1260 0987 21F7 A 

1261 098* 0RO3 A 

1262 09SQ 03F5 A 

1263 098A l+CFF A 
12*1+ 098B O603 A 

1265 098C 03F5 A 

1266 098D 0605 A 
12^7 098E 5DF8 A 
126* 098F 3W1 A 

1269 0990 21DC A 

1270 0991 

1271 0™1 *000 A MASK: .WORD X'8000 



127? H002 .PAGE 

1273 0992 ; 

1271+ 0992 290B A PGECO: 

1275 0993 2D01 A 

1276 0991; 2im A 



JSR 


SAVE 


LI 


3 / TTYAD 


PFLG 


2 


ROUT 


5 


LI 


2,8 


ROUT 


k 


RIN 


2 


BOC 


2,. +2 


JMP 


.-2 


LI 


0,EA 


JSRI 


DELAY1 


ROR 


0,EB 


RIN 


2 


BOC 


2,. +2 


JMP 


LGECO+3 


ROUT 


3 


JSRI 


DELAY 


ROL 


0,EC 


RIN 


2 


AND 


0,MASK 


SHR 


1,1 


RXOR 


0,1 


AISZ 


2,-1 


JMP 


LP3 


ROUT 


3 


JSRI 


DELAY 


LI 


0,-1 


ROUT 


3 


JSRI 


DELAY 


ROUT 


5 


SHR 


1,8 


RCPY 


to 


JMP 


PGETC+1 



JSR 


SAVE 


JSRf* 


PGECOA 


JMP 


PGETC+1 



2k 



PROMP 



1277 0095 ; 

127?? 0095 7E73 A PGECDA: 



.WORD 07E73 



127^ 009R 

1280 0996 

1281 0"% 

1282 00O6 
1?«3 0996 
1284 0996 

1?«5 0996 2007 A 
1286 0997 4F00 A 
12*7 OOOp 040R A 
1238 0999 5C0P A 
12*0 090A 1201 A 
1200 0Q9B 2114 A 

iom nnnr 1017 A 
l.Z.-'X \J-ri<~ tbu n 

1202 099D 0201 A 



TTEST: 



.PAGE 

TELETYPE INPUT TEST 

RTS 1 - NORMAL RETURN 
RTS - ATTEMPT TO INPUT 



JSR 

LI 

RIM 

SHL 

BOC 

JMP 

JSR 

RTS 



SAVE 

3,0 

6 

0,8 

2, .+2 

RESTOR 

RESTOR 



1203 

1294 
1295 
1296 
1297 
1298 
120O 
1300 
1301 
1302 
1303 
130U 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1313 
1310 
1320 
1321 
1322 
1323 
1324 



noOE 

OOOE 
H90E 
090E 
09*F 
09 Q 
00A1 
09A2 
0OA3 
09A4 
0OA5 
09A6 
09A7 
09A8 
09A9 
09AA 
09AA 
09AE 
09 AF 
09B0 
OOBO 
09 Bl 
0OB2 
09B3 
00 B4 
09B5 
09 B6 
00B7 
09B8 
09B9 
09 BA 
09BB 



.PAGE 

SAVE/RESTORE REGISTERS AND FUGS ROUTINE 



A10B A 
A50 P A 
A90B A 
ADOB A 
0080 A 
440O A 
A10A A 
4C01 A 
58FE 
AMR 
8M1 
0200 



SAVE; 



09 AE T REG: 
09 AF T SELECT: 
OOBO T FLAGS: 



85FA 
89 FA 
8DFA 
81FB 
4000 
0280 
OAOO 
81F6 
1801 
0A80 
81EF 
02O0 



RESTOR: 



ST 

ST 

ST 

ST 

PUSHF 

PULL 

ST 

LI 

ROR 

ST 

LD 

RTS 

.=.+4 
.=.+1 
,=,+1 

LD 

LD 

LD 

LD 

PUSH 

PULLF 

SFLG 

LD 

BOC 

PFLG 

LD 

RTS 



0,REG 
1,REG+1 
2,REG+2 
3,REG+3 



0, FLAGS 

0,1 

0,2 

0,SELECT 

0,REG 



1,REG+1 
2 t REG+2 
3^RFG+3 
0, FLAGS 




0, SELECT 
NEG,.+2 
2 
0,REG 



1325 OQBC 

1326 OOBC 

1327 OOBC 
13?* 09BC 
1329 OOBC 



.PAGE 



TELETYPE SYSTEM INITIALIZATION/RESET 



1330 OOBC 29E1 . SETPL: 


JSR 


SAVE 


1731 OOBD 8D10 A 


LD 


3,SCPAD 


1372 09BE 0418 A 


RIN 


GPCS 


1733 09BF 4*01 A 


AISZ 


0,1 
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1334 0900 2103 A 


JMP 


SLINIT 


1335 ngci 4F3« A R?T: 


L! 


3,TTYAD 


1336 09C2 0505 A 


Ran 


5 


1337 0PC3 21EC A 


JMP 


RESTOR 


1333 0<>C4 ; 






1339 9«C4 ', 






1340 0OC4 8196 A ^LINIT: 


LD 


0, LPUTCA 


1341 09C5 A24A A 


ST 


0,PUTC(2) 


131*2 09C6 8195 A 


LD 


0, LGETCA 


1343 09C7 A1A4 A 


ST 


0, PGETC 


1344 0«AS 8104 A 


LD 


0, LGECOA 


131*5 09C9 A24C A 


ST 


0,GECO(2) 


1346 09CA 21F6 A 


JMP 


RST 


1347 09CB 






1348 09CR 0952 T LPUTCA: 


.WORn 


LPUTC 


1349 09CC 03FP A LGETCA: 


JSRI 


TTYSR 


1350 09CD 0979 T LGECOA: 


.WORD 


LGECO 


1351 nqCE 0760 A SCPAD: 


.WORD 


0760 


13^? OQCF 0250 T 


.END 


START1 


>***** ERRORS 1 


N ASS EM! 


3LY ****** 



$1 
0279 T 


$1^ 
05 E A T 


$11 
0598 T 


$12 $13 $14 $2 $3 $5 $6 
03DC T 0475 T 05D1 T 027B T 05E1 T 05C9.T 05E4 T 


$7 
05CH T 


ADR AS E 
0289 T 


ADBUF1 ADBUF2 ADDR ADHI ADLMT ADLO AHEB ALT 
0038 A 0039 A 004E A 003C A 003A A 003B A 05DE T 091B A 


ASC7 ASC8 
0662 T 0663 T 


ASCC ASCL ASCR ASTART BADDR BC BCTP BEGASC 
0667 T 0O2F A 0030 A 003E A 05DB T 002D A 03D2 T 065G T 


BEGHOL 
0617 T 


RIN9 

002E A 


PI NASr 
0413 T 


9IT1 BUF1 RUF2 BUSYT 9YT0PT CO C09 
0094 A 08B2 A 0992 T 05A0 T 033B T 0200 A 0421 T 


CI 
010* A 


Cll 

040* A 


CI? 
08^0 A 


C2 C3 C4 C5 C6 C7 C8 
OOPO A 0049 A 0029 A 0019 A 000* A 0004 A 0902 A 


C9 
009] A 


C^AC»' 
0TF5 T 


CCR 
Oni^ A 


CHTOA CKMTBL CK*M CN1 CN2 CM3 CN6 
05A4 T 040A T 0037 A 044^ T 044F T 045F T 048B T 


CN5A 
04QO T 


CM7 
048^ T 


COL 
00 1A A 


COM COUNT CPAD CR CR1 CR2 CR3 
0019 A 05PC T 028A T 0028 A 03A8 T 03B3 T 03C4 T 


CR4 
03D0 T 


CR6 
03EA T 


CR6A 
03FB T 


CR7 CRADDR CRIN TRLF HELAY HELAY1 DONE 
03HF T 0010 A 028 D T 05F4 1 FFF5 A FFF6 A 096^ T 


EA 


EB 
OniR A 


EC 
0O?P 


ENDASC ENDHOL FIRS2 FIRST FLAGS FOUR FSTCD 
066A T 0657 T 0588 T 059E T 09AF T 0907 A 0027 A 


GECO 
004C A 


GETC 
004B A 


GETCO GPCS H07O7 H707O HI HIGH HL HMES 
0693 T 001° A 0365 T 0366 T 07B2 T 07B1 T 0033 A 0367 T 


MR 
003U A 


!PFO 
06 in T 


1 NDE V 
05Hn T 


INERR INT^T LBUSYT LDDATA LENGTH LGECO LGECOA 
0585 T 0049 A 05BF T 029C T 004F A 0970 T 09CD T 


LGETCA 
09CC T 


LI NIT LINITA 
05BO T 0047 A 


LL LMFS LMT LO LOOP1 LOOP2 LOW 
0031 A 036E T 0054 A 06E1 T 0382 T 0384 T 0058 A 
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.PI LP2 LP3 LP«* LP5 LP6 LPC1 LPUTC LPUTCA LR 
-12CF T 02EC T 097F T 02F6 T 032F T 033D T 095A T 0952 T 09CB T 0032 A 

LRDC LTSW M256 M512 MASK ME MEM MODE N1FF N2 
05CO T 0036 A 0344 T 0352 T 0991 T 002A A 02E9 T 0050 A 0021 A 0013 A 

N256 N4 N512 N7F N8 N80 N8004 NC NCO NEOO 
0020 A OOll* A 0022 A 001C A 0015 A 001D A 0025 A 0026 A 001E A 0023 A 

NEG NF MFF NFFF NZRO ODD OFFLN OM ONE OPTION 
OOOB A 0017 A 001F A 0024 A 0005 A 0003 A 05A2 T 002B A 0004 A 0051 A 

OUTPN OUTPR PAPRLM PBPAGE PGECO PGECOA PGETC PGETCA PN PNTP 
01*35 T 039B T 04A9 T 0658 T 0992 T 0995 T 096C T 096F T 002C A 046B T 

POA PPUTC PPUTCA PT PTIN PUT2C_ PUTC PUTSEL RDC RDCARD 
OOOC A 0967 T 096A T 0029 A 02BO T 05FF I G04A A 057C T 05AS T 058A T 

RDCRDP READY REG RE1NIT RESTOR RET1 RL RMES R0L8 RST 
05AF T 05A7 T 09AA T 060E T 09B0 T 060D T 0415 T 0375 T 0423 T 09C1 T 

S160N S40N SAHEB SAVE SCHTOA SCPAD SCR4 SCRLF SELECT SETCR 
Q42B T 042D T 001*1 A 099E T 001*3 A 09CE T 0001 A 003F A 09AE T 028B T 

SETH SETHL SETHR SETL SETLL SETLP SETLR SETOFF SETPL SETPT 
0363 T 035B T 035D T 0361 T 0357 T 001*8 A 0359 T 02E6 T 09BC T 02AE T 

SGETC SGETCO SHI SIFEQ SLINIT SLMT SLO SMODE SKILLS SOUTPN 
096B T 0040 A 0053 A 0044 A 09C4 T 06AC T 0052 A 0035 A 0000 A 0002 A 

SP SPAPOM SPUT2C SRDCRD SROL8 SS160N START START1 STATUS STDATA 
1018 A 003D A 0046 A 0042 A 004D A 04B9 T 025B T 0250 T 0001 A 02B8 T 

STNDRD STOLMT STOPT STTBL STYPE TA TABAD TABTOP TADDR TB 
0002 A 0309 T 0317 T 041B T 0045 A 0029 A 05F2 T 05F3 T 05DA T 0012 A 

TC TEST THREE TMODE TPAK1 TPAK10 TPAK11 TPAK12 TPAK13 TPAK14 
0070 A 0398 T 0006 A 0341 T 04DA T 055B T 0564 T 056C T 0573 T 0576 T 

TPAK15 TPAK16 TPAK17 TPAK2 TPAK3 TPAK4 TPAK5 TPAK6 TPAK6A TPAK7 
0579 T 057C T 057F T 04F3 T 04FD T 0509 T 0511 T 0525 T 052A T 052F T 

TPAK8 TPAK9 TSTOPT TTEST TTYAD TTYSR TWO TYPE WAIT WTLOOP 
0539 T 054E T 0266 T 0Q96 T 0038 A FFFB A 0005 A 05F7 T 0397 T 058D T 

WTLPA XCRLF ZRO ZROLMT 
05BE T 057F T 0001 A 0311 T 

38EC 7235 



DO 

a 
a 



DEBUG 



REVISION-G 05/16/74 

DEBUG 00112C 06/25/74 



0000 
0000 



1 
2 
3 

4 0000 

5 0000 

6 0000 

7 0000 

8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 

24 0000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 0000 

31 0000 

32 0000 

33 0000 

34 0000 

35 0000 

36 0000 

37 0000 

38 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 



FFFF A IMP16 = -1 

.TITLE DEBUG, '00112C 06/25/74' 

SOFTWARE DEBUG FOR IMP-16L/16P 
.ENDIF 

THIS PROGRAM HAS TWO ENTRY POINTS, 'DEBUG' AND 'DEBUG1 ' 
'DEBUG' IS THE USUAL ENTRY POINT 

'DEBUG1' GOES THROUGH THE PROCESS OF LOADING AN 'INITIALIZATION 
ROUTINE' TO LOCATIONS AND 3. THIS INITIALIZATION ROUTINE GIVES 
THE CAPABILITY TO THE DEBUG USER TO RECOVER TO DEBUG BY DEPRESSING 
THE INITIALIZE BUTTON, THEN RUN. 

THIS PROGRAM MAY BE ASSEMBLED FOR EITHER THE GPC/P OR THE IMP-16L/16P 
TELETYPE. THE ASSEMBLER IS DIRECTED BY THE FOLLOWING CONSTANT: 

IMP16: 1 FOR GPC/P, -1 FOR IMP-16L/16P 

THIS PROGRAM MAY BE ASSEMBLED RELOCATABLE WITH FIXED OFFSETS 
DETERMINED BY THE FOLLOWING CONSTANT: 

OFFSET: 1 WITH FIXED OFFSETS, -1 WITHOUT OFFSETS 

WHEN ASSEMBLED WITH OFFSETS, 'BOFFSET' IS THE BASE SECTOR OFFSET 
AND 'TOFFSET' IS THE TOP SECTOR OFFSET 



0001 
0010 
0210 
000B 



A OFFSET = 
A BOFFSET = 
A TOFFSET = 
A NEG 



1 

010 
0210 
0B 



0029 
0012 
0070 
0009 
0016 
0026 



.IF -IMP16 
IMP-16L TELETYPE DELAY CONSTANTS 
THE FOLLOWING CONSTANTS ARE FOR FULLSPEED OPERATION 

A TA = 41 

A TB = 18 

A TC = 112 

A EA = 9 

A EB = 22 

A EC = 38 
.ENDIF 



44 0000 

45 0000 

46 0000 

47 0000 

48 0000 

49 0000 

50 0000 

51 0000 0010 B 

52 0010 



.SPACE 3 

. GLOBL DEBUG 

.GLOBL UCALL 

.GLOBL DEBUG1 

.PAGE 
•BSECT 
, IF OFFSET 
,=.+BOFFSET 
ENDIF 



DEBUG 



53 0010 



.SPACE 



54 


0010 


0306 


T 


ADSRUN: 


.WORD 


SRUN 


55 


0011 


02F1 


T 


ADHRUN: 


.WORD 


HRUN 


56 


0012 


0328 


T 


ASRUNB: 


.WORD 


SRUNB 


57 


0013 


0325 


T 


AHRUNB: 


.WORD 


HRUNB 


58 


0014 


060E 


T 


SAVRIA: 


.WORD 


SAVREG 


59 


0015 


0632 


T 


RSTRIA: 


.WORD 


RESTOR 


60 


0016 








.PAGE 




61 


0016 








.TSECT 




62 


0000 












63 


0000 








.IF OFFSET 


64 


0000 


0210 


T 




.=.+TOFFSET 


65 


0210 








.ENDIF 




66 


0210 


0008 


A 


HSZ 


=8 




67 


0210 


000A 


A 


HRSZ 


= 10 




68 


0210 


000A 


A 


DRSZ 


= 10 




69 


0210 


000D 


A 


CR 


=X'D 




70 


0210 


000A 


A 


LF 


=X'A 




71 


0210 


0052 


A 


IR 


='R'/256 


72 


0210 


005F 


A 


BS 


=X'5F 




73 


0210 


0023 


A 


HMARK 


=X'23 




74 


0210 


003F 


A 


QMARK 


='?'/256 


75 


0210 


002D 


A 


PCHAR 


= '-7256 


76 


0210 


0010 


A 


STKSZ 


= 16 




77 


0210 


0010 


A 


STSZ 


=STKSZ 




78 


0210 


0000 


A 


R0 


= 




79 


0210 


0001 


A 


Rl 


= 1 




80 


0210 


0002 


A 


R2 


= 2 




81 


0210 


0003 


A 


R3 


= 3 




82 


0210 








.IF 


-IMP16 


83 


0210 


0018 


A 


GPCS 


= 


018 


84 


0210 








.ENDIF 




85 


0210 








.PAGE 




86 


0210 






DEBUG1: 






87 


0210 


4000 


A 




PUSH 


R0 


88 


0211 


2C14 


B 




JSR@ 


SAVRIA 


89 


0212 


8104 


A 




LD 


R0,JMPI 


90 


0213 


A000 


A 




ST 


R0,0 


91 


0214 


8103 


A 




LD 


R0,DIA 


92 


0215 


A003 


A 




ST 


R0,3 


93 


0216 


213B 


A 




JMP 


DEBUG2 


94 


0217 






i 






95 


0217 


2403 


A 


JMPI: 


JMP 


@3 


96 


0218 


0250 


T 


DIA: 


.WORD 


DEBUG 


97 


0219 








.PAGE 




98 


0219 






7 






99 


0219 


03CF 


T 


HBASEA: 


.WORD 


HTAB 


100 


021A 


03EF 


T 


HRBASA: 


.WORD 


HRTAB 


101 


021B 


0403 


T 


DRBASA: 


.WORD 


DRTAB 


102 


021C 








.PAGE 




103 


021C 






; PSEUDO BASE 


PAGE 


104 


021C 


021C 


T 


DBASE=. 






105 


021C 








.IF 


-IMP16 


106 


021C 


0000 


A 


LECOI 


= 


.-DBASE 


107 


021C 


0420 


T 




.WORD 


LECHOI 


108 


021D 


0001 


A 


LECOA 


= 


. -DBASE 


109 


021D 


0423 


T 




.WORD 


ECHOA 


110 


021E 


0002 


A 


LTYPI 


= 


.-DBASE 


111 


021E 


0494 


T 




.WORD 


LTYPEI 



;SNAP RUNTIME ADDRESS 
;HALT RUNTIME ADDRESS 

; SECONDARY RUNTIME ADDRESS 



8 HALT/LOOKS 
10 RANGES SNAP 
10 RANGES DUMP 



; BACK ARROW 
; POUND SIGN 

; PROMPT CHAR 
;STACK SIZE 

; REGISTER 

; REGISTER 1 

; REGISTER 2 

; REGISTER 3 



; SET DUMMY DEBUG RETURN ON STACK 
; SAVE FLAGS AND REGISTERS 

; STORE 'JMP @3 ' AT LOCATION 



DEBUG 



112 


021F 


0003 A 


LTYPA 


= . ■ 


-DBASE 


113 


021F 


0499 T 




.WORD TYPE A 


114 


0220 






.ENDIF 




115 


0220 


0004 A 


APTOP 


= . • 


-DBASE 


116 


0220 


05BA T 




.WORD PTOP 


117 


0221 


0005 A 


LPUT2C = 


. -DBASE 




118 


0221 


04B2 T 




.WORD 


PUT2C 


119 


0222 


0006 A 


LPCRLF = 


.-DBASE 




120 


0222 


04AC T 




• WORD 


PCRLF 


121 


0223 


0007 A 


LPUTC = 


.-DBASE 




122 


0223 


0496 T 




.WORD 


PUTC 


123 


0224 


0008 A 


LGETC = 


.-DBASE 




124 


0224 


0422 T 




.WORD 


GETC 


125 


0225 


0009 A 


LRTEST = 


.-DBASE 




126 


0225 


04DF T 




.WORD 


RTEST 


127 


0226 


000A A 


LTCRLF = 


.-DBASE 




128 


0226 


04D9 T 




.WORD 


tv or p 

X V1V1J1 


129 


0227 


000B A 


LEXPR = 


. -DBASE 




130 


0227 


0538 T 




.WORD 


EXPR 


131 


0228 


000C A 


LINPUT = 


. -DBASE 




132 


0228 


0417 T 




.WORD 


INPUT 


133 


0229 


000D A 


LRCHAR = 


.-DBASE 




134 


0229 


052A T 




.WORD 


RCHAR 


135 


22A 


000E A 


LVALUE = 


. -DBASE 




136 


022A 


04EF T 




.WORD 


VALUE 


137 


022B 


000F A 


LADDR = 


.-DBASE 




138 


022B 


0503 T 




.WORD 


ADDR 


139 


022C 


0010 A 


LPRANGE= 


. -DBASE 




140 


022C 


05AF T 




.WORD 


PRANG E 


141 


022D 


0011 A 


LOUTPUT= 


. -DBASE 




142 


022D 


05C0 T 




.WORD 


OUTPUT 


143 


022E 


0012 A 


LRESTOR= 


.-DBASE 




144 


22E 


0632 T 




.WORD 


RESTOR 


145 


022F 


0013 A 


LALPHA = 


.-DBASE 




146 


022F 


025F T 




.WORD OUT 


147 


0230 


0014 A 


LPUTBLK= 


.-DBASE 




148 


0230 


05F7 T 




.WORD 


PUTBLK 


149 


0231 


0015 A 


LPUT4H = 


.-DBASE 




150 


0231 


04BB T 




.WORD 


PUT4H 


151 


0232 


0016 A 


LHOK 


.-DBASE 




152 


0232 


02C4 T 




.WORD 


HOK 


153 


0233 


0017 A 


LRANGE = 


.-DBASE 




154 


0233 


0505 T 




.WORD 


RANGE 


155 


0234 


0018 A 


LTTERM = 


.-DBASE 




156 


0234 


04E7 T 




.WORD 


TTERM 


157 


0235 


0019 A 


LOUTW = 


.-DBASE 




158 


0235 


04AF T 




.WORD 


OUTW 


159 


0236 


001A A 


LPUTADR= 


.-DBASE 




160 


0236 


05FA T 




.WORD 


PUTADR 


161 


0237 


001B A 


LRD0 


. -DBASE 




162 


0237 


04CF T 




.WORD 


RD0 


163 


0238 


001C A 


LOUTCL = 


.-DBASE 




164 


0238 


0336 T 




.WORD 


OUTCL 


165 


0239 


001D A 


VCOM 


=. -DBASE 




166 


0239 


002C A 




.WORD 


\725< 


167 


023A 


001E A 


ESCEX 


=. -DBASE 




168 


023A 


023B T 




. = .+1 




169 


023B 


001F A 


EXPEX 


=. -DBASE 




170 


023B 


023C T 




. = .+1 




171 


023C 


0020 A 


OVREX 


=. -DBASE 




172 


023C 


023D T 




. = .+1 




173 


023D 


0021 A 


RPTR 


=. -DBASE 





;ESC EXIT 

;EXPR ERROR EXIT 

;OVER TABLE SIZE EXIT 



DEBUG 



174 


023D 


0000 


A 




.WORD 







175 


023E 


0022 


A 


CL 


=. -DBASE 




176 


023E 


0000 


A 




.WORD 







177 


023F 


0023 


A 


RWORD 


=. -DBASE 




178 


023F 


0240 


T 




. = .+1 






179 


0240 


0024 


A 


LCHAR 


=. -DBASE 




180 


0240 


0241 


T 




. = .+1 






181 


0241 


0025 


A 


FMT 


=. -DBASE 




182 


0241 


0000 


A 




.WORD 







183 


0242 


0026 


A 


DELTA 


=. -DBASE 




184 


0242 


0243 


T 




. = .+1 






185 


0243 














186 


0243 






; PARAMETERS FOR HALT/SNAP 


187 


0243 














188 


0243 


0027 


A 


HENT 


=. -DBASE 




189 


0243 


0000 


A 




.WORD 







190 


0244 


0028 


A 


HPTR 


=. -DBASE 




191 


0244 


03CF 


T 




.WORD 




HTAB 


192 


0245 


0029 


A 


HBASE 


=. -DBASE 




193 


0245 


03CF 


T 




.WORD 




HTAB 


194 


0246 


002A 


A 


HMAX 


=. -DBASE 




195 


0246 


03EB 


T 




.WORD 




HSZ-1*4+HTAB 


196 


0247 


002B 


A 


HRPTR 


=. -DBASE 




197 


0247 


03EF 


T 




.WORD 




HRTAB 


198 


0248 


002C 


A 


HRBASE 


=. -DBASE 




199 


0248 


03EF 


T 




.WORD 




HRTAB 


200 


0249 


002D 


A 


HRMAX 


=. -DBASE 




201 


0249 


0401 


T 




.WORD 




HRSZ-1*2+HRTAB 


202 


024A 


002E 


A 


SCODE 


=. -DBASE 




203 


024A 


2C10 


B 




JSR 




GADSRUN 


204 


024B 


002F 


A 


SCODEB 


=. -DBASE 




205 


024B 


2C12 


B 




JSR 




§ASRUNB 


206 


024C 


0030 


A 


HCODE 


=. -DBASE 




207 


024C 


2C11 


B 




JSR 




@ADHRUN 


208 


024D 


0031 


A 


HCODEB 


=. -DBASE 




209 


024D 


2C13 


B 




JSR 




@AHRUNB 


210 


024E 


0032 


A 


CODE 


=. -DBASE 




211 


024E 


024F 


T 




. = .+1 






212 


024F 


0033 


A 


CODEB 


=. -DBASE 




213 


024F 


0250 


T 




. = .+1 






214 


0250 








.PAGE 






215 


0250 








.LOCAL 






216 


0250 






; NEED 


TO SAVE 


REGISTERS EVEN ON 


217 


0250 






DEBUG: 








218 


0250 


4000 


A 




PUSH 




R0 


219 


0251 


2C14 


B 




JSR@ 




SAVRIA 


220 


0252 


4F38 


A 


DEBUG2: 


LI 


R3 


r TTYAD 


221 


0253 


0605 


A 




ROUT 


5 




222 


0254 








.IF 


-IMP16 


223 


0254 


8D05 


A 




LD 


R3 


,CPAD 


224 


0255 


0418 


A 




RIN 


GPCS 


225 


0256 


8D1D 


A 




LD 


R3 


r$2 


226 


0257 


4801 


A 




AISZ 


R0 


rl 


227 


0258 


2102 


A 




JMP 


$INIT 


228 


0259 


2105 


A 




JMP 


OUT 


229 


025A 


0760 


A 


CPAD: 


.WORD 


0760 


230 


025B 






i 








231 


025B 


9300 


A 


$INIT: 


LD 


R0 


,@LECOI(R3) 


232 


025C 


B301 


A 




ST 


R0 


,@LECOA(R3) 


233 


025D 


9302 


A 




LD 


R0 


,@LTYPI(R3) 


234 


025E 


B303 


A 




ST 


R0 


,§LTYPA(R3) 



CURRENT LOCATION 
'R' RELOCATION 
LAST CHAR 
FORMAT 
INCREMENT/DECREMENT 

HALT TABLE ENTRY 

HALT TABLE POINTER TO NEXT AVAILABLE 

HALT TABLE BASE LOCATION 

HALT TAB MAX ENTRY LOCATION 

HALT RANGE TAB CURRENT POINTERS 

HALT RANGE TAB BASE LOCATION 

HRTAB MAX ENTRY LOCATION 

SNAP RUN CALL 

CALL TO SNAPB 

;CALL TO HALT 
;CALL TO HALTB 



INITIALIZATION ENTRANCE 



SET DUMMY DEBUG RETURN ON STACK 



DEBUG 



235 025F 




.ENDIF 






236 025F 


i 








237 025F 2F06 A 


OUT: 


JSR 


@LPCRLF(R3) 




238 0260 4C2D A 




LI 


R0,PCHAR 


; OUTPUT 


239 0261 2F07 A 




JSR 


@LPUTC (R3) 


; PROMPT 


240 0262 


; INTIALIZE PARAMETERS 




241 0262 4C00 A 




LI 


R0,0 




242 0263 A323 A 




ST 


R0,RWORD(R3) 


;REG RELOCATION 


243 0264 4C01 A 




LI 


R0,1 




244 0265 A326 A 




ST 


R0 , DELTA (R3) 


; INC/DECREMENT 


245 0266 8129 A 




LD 


R0, AERADR 




246 0267 A31F A 




ST 


R0,EXPEX(R3) 


;EXPR EXIT 


247 0268 8132 A 




LD 


R0,ESCADR 




248 0269 A31E A 




ST 


R0,ESCEX(R3) 


; ESCAPE EXIT 


249 026A 8132 A 




LD 


R0 , OVRADR 


; TABLE OVER 


250 026B A320 A 




ST 


R0,OVREX(R3) 


;EXIT 


251 026C 


; GET 


CHARACTER 


DRIVER 




252 026C 2F0C A 




JSR 


@LINPUT(R3) 


; NON-BLANK 


253 026D A121 A 




ST 


R0,CEND 




254 026E 


; WILL 


FIND CHAR 


LAST IF NO MATCH 




255 026E 892D A 




LD 


R2,CTADR 


; CONTROL TABLE 


256 026F F200 A 


$1: 


SKNE 


R0, (R2) 




257 0270 2102 A 




JMP 


CFND 


; FOUND 


258 0271 4A02 A 




AISZ 


R2, 2 




259 0272 21FC A 




JMP 


$1 




260 0273 


CFND: 






; POINT TO 


261 0273 2601 A 




JMP 


@1(R2) 


; ADDRESS 


262 0274 








;B TO CODE 


263 0274 021C T 


$2: 


.WORD 


DBASE 




264 0275 




.PAGE 






265 0275 




. LOCAL 






266 0275 0041 A 


CTAB: 


.WORD 


'A '/256 




267 0276 034B T 




.WORD 


ALTER 




268 0277 0043 A 




.WORD 


'C/256 




269 0278 03AD T 




.WORD 


CHAR 




270 0279 0054 A 




.WORD 


'T'/256 




271 027A 03AB T 




.WORD 


TYPE 




272 027B 004D A 




.WORD 


'M'/256 




273 027C 036A T 




.WORD 


MOVE 




274 027D 0047 A 




.WORD 


'C/256 




275 027E 033E T 




.WORD 


GO 




276 027F 0048 A 




.WORD 


'H'/256 




277 0280 02B1 T 




.WORD 


HALT 




278 0281 0046 A 




.WORD 


'F'/256 




279 0282 0383 T 




.WORD 


FIND 




280 0283 004E A 




.WORD 


'N'/256 




281 0284 039E T 




.WORD 


NOTE 




282 0285 0053 A 




. WORD 


'S'/256 




283 0286 02D1 T 




.WORD 


SNAP 




284 0287 0052 A 




.WORD 


'R'/256 




285 0288 02A3 T 




.WORD 


RESET 




286 0289 005F A 




.WORD 


BS 




287 028A 03A2 T 




.WORD 


BSCODE 




288 028B 000A A 




.WORD 


LF 




289 028C 03A5 T 




.WORD 


LFCODE 




290 028D 000D A 




.WORD 


CR 




291 028E 03A6 T 




.WORD 


CRCODE 




292 028F 0000 A 


CEND: 


.WORD 







293 0290 0291 T , 


AERADR: 


.WORD 


AEREX 




294 0291 




.PAGE 






295 0291 




. LOCAL 







DEBUG 



296 


0291 






; STANE 


)ARD ERROR 


EXIT 




297 


0291 


4C3F 


A 


AEREX: 


LI 


R0 , QMARK ; 


'? ' 


298 


0292 


2101 


A 




JMP 


ERR 




299 


0293 


4C23 


A 


ESC: 


LI 


R0 f HMARK ; 


'#' 


300 


0294 


2F07 


A 


ERR: 


JSR 


@LPUTC(R3) ; 


OUTPUT CHAR 


301 


0295 


2F06 


A 




JSR 


@LPCRLF(R3) 




302 


0296 






; CLEAR STACK 






303 


0296 






CLEAR: 








304 


0296 


4E10 


A 




LI 


R2,STKSZ 




305 


0297 


4400 


A 


$2: 


PULL 


R0 




306 


0298 


4AFF 


A 




AISZ 


R2,-l 




307 


0299 


21FD 


A 




JMP 


$2 




308 


029A 


21C4 


A 




JMP OUT 




309 


029B 


0293 


T 


ESCADR: 


.WORD 


ESC 




310 


029C 


0275 


T 


CTADR: 


.WORD 


CTAB ; 


CTAB ADDRESS 


311 


029D 


029E 


T 


OVRADR : 


.WORD 


OVER 




312 


029E 






OVER: 








313 


029E 


2F06 


A 




JSR 


@LPCRLF(R3) 




314 


029F 


8102 


A 




LD 


R0,VOV 




315 


02A0 


2F05 


A 




JSR 


@LPUT2C(R3) ; 


OUTPUT 2 CHAR 


316 


02A1 


21F4 


A 




JMP 


CLEAR j 


CLEAR STACK 


317 


02A2 


4F56 


A 


VOV: 


.WORD 


'OV' j 


OVER TABLE SIZE 


318 


02A3 








.PAGE 






319 


02A3 






; RESET 


HALT/LOOPS 






320 


02A3 








. LOCAL 






321 


02A3 






RESET: 








322 


02A3 


2F0C 


A 




JSR 


@LINPUT(R3) 


ASSUME CR 


323 


02A4 


4E00 


A 




LI 


R2,0 




324 


02A5 


AB27 


A 




ST 


R2,HENT(R3) 




325 


2A6 


8B2C 


A 




LD 


R2,HRBASE(R3) 


RESTORE H/R PT 


326 


02A7 


AB2B 


A 




ST 


R2 r HRPTR(R3) 




327 


02A8 


8B28 


A 




LD 


R2 r HPTR(R3) 


HALT TABLE PTR 


328 


02A9 


F906 


A 


$1: 


SKNE 


R2, HBASEB 


ANY ENTRIES 


329 


02AA 


2713 


A 




JMP 


@LALPHA(R3) 


EMPTY-EXIT 


330 


02AB 


4AFC 


A 




AISZ 


R2,-4 


PTR ALWAYS +2 


331 


02 AC 


AB28 


A 




ST 


R2,HPTR(R3) 


UPDATE HPTR 


332 


02 AD 


8601 


A 




LD 


R1,1(R2) 


CODE REPLACES 


333 


02AE 


B600 


A 




ST 


R1,8(R2) 


REPLACED 


334 


02AF 


21F9 


A 




JMP 


$1 


ANY MORE 


335 


02B0 








t 






336 


02B0 


03CF 


T 


HBASEB: 


.WORD 


HTAB 




337 


02B1 








.PAGE 






338 


02B1 








.LOCAL 






339 


02B1 


2F16 


A 


HALT: 


JSR 


@LHOK(R3) 




340 


02B2 






-, R3 HAS HPTR 






341 


02B2 


8324 


A 




LD 


R0,LCHAR(R3) 




342 


02B3 


F31D 


A 




SKNE 


R0,VCOM(R3) 




343 


02B4 


210C 


A 




JMP 


$1 




344 


02B5 






; NOT COMMA 






345 


02B5 


4D00 


A 




LI 


R1,0 




346 


02B6 


4C00 


A 


$2: 


LI 


R0,0 




347 


02B7 


8B28 


A 




LD 


R2,HPTR(R3) 




348 


02B8 


A602 


A 




ST 


R1,2(R2) 


• STOP FIRST TIM 


349 


02B9 


A203 


A 




ST 


R0,3(R2) 




350 


02BA 


2F0A 


A 




JSR 


@LTCRLF(R3) 




351 


02BB 


271F 


A 




JMP 


@EXPEX(R3) 




352 


02BC 


8730 


A 




LD 


Rl r HCODE(R3) 


■RUN CODE HALT 


353 


02BD 


B600 


A 


REPLAC: 


ST 


R1,§(R2) 




354 


02BE 


4A04 


A 




AISZ 


R2,4 




355 


02BF 


AB28 


A 




ST 


R2 f HPTR(R3) 




356 


02C0 


2713 


A 




JMP 


@LALPHA(R3) 





DEBUG 



357 02C1 2F0C A 


$1: 


JSR 


@LINPUT(R3) 




358 02C2 2F0B A 




JSR 


@LEXPR(R3) 




359 02C3 21F2 A 




JMP 


$2 




360 02C4 










361 02C4 


; EVALUATE LOCATION OF HALT/LOOP 


IT MUST NOT BE 'R'. 


362 02C4 


; ALSO 


VERIFY ROOF 


[ AVAILABLE 




363 02C4 872A A 


HOK: 


LD 


Rl,HMAX(R3) 




364 02C5 E728 A 




SKG 


R1,HPTR(R3) 




365 02C6 2720 A 




JMP 


@OVREX(R3) 


;TOO MANY 


366 02C7 2F0C A 




JSR 


@LINPUT(R3) 




367 02C8 2F0F A 




JSR 


@LADDR(R3) 




368 02C9 B728 A 




ST 


Rl,@HPTR(R3) 


; STORE LOC 


369 02CA 2F09 A 




JSR 


@LRTEST(R3) 




370 02CB 271F A 




JMP 


@EXPEX(R3) 


;WAS 'R' 


371 02CC 3681 A 




RCPY 


R1,R2 




372 02CD 8200 A 




LD 


R0, (R2) 


;LODE CODE 


373 02CE 8B28 A 




LD 


R2,HPTR(R3) 




374 02CF A201 A 




ST 


R0,1(R2) 


; SAVE CODE 


375 02D0 0200 A 




RTS 







376 02D1 




.PAGE 






377 02D1 




. LOCAL 






378 02D1 2F16 A 


SNAP: 


JSR 


@LHOK(R3) 


;EVAL LOC 


379 02D2 8324 A 




LD 


R0,LCHAR(R3) 




380 02D3 F31D A 




SKNE 


R0,VCOM(R3) 




381 02D4 2101 A 




JMP 


$1 




382 02D5 


; PREPARE FOR USE 


OF RANGE EVAL 




383 0'2D5 271F A 




JMP 


@EXPEX(R3) 




384 02D6 832B A 


$1: 


LD 


R0,HRPTR(R3) 




385 02D7 8B28 A 




LD 


R2,HPTR(R3) 




386 02D8 A202 A 




ST 


R0,2(R2) 


; SAVE HRANGE 


387 02D9 872D A 




LD 


Ri,HRMAX(R3) 




388 02DA 2F17 A 




JSR 


@LRANGE(R3) 


;R0 HRPTR 


389 02DB 








;R1 HRMAX 


390 02DB 8B28 A 




LD 


R2,HPTR(R3) 




391 02DC 8321 A 




LD 


R0,RPTR(R3) 


; SAVE LAST 


392 02DD A32B A 




ST 


R0,HRPTR(R3) 




393 02DE 48FE A 




AISZ 


R0,-2 


; RANGE POINTER 


394 02DF A203 A 




ST 


R0,3(R2) 




395 02E0 2F0A A 




JSR 


@LTCRLF(R3) 


;TEST IF OK 


396 02E1 271F A 




JMP 


@EXPEX(R3) 


;TO REPLACE CODE 


397 02E2 872E A 




LD 


Rl,SCODE(R3) 


; REPLACE 


398 02E3 21D9 A 




JMP 


REPLACE 




399 02E4 




.PAGE 






400 02E4 










401 02E4 


; USER 


PRINT CALL 






402 02E4 










403 02E4 




. LOCAL 






404 02E4 02E5 T 


$RET: 


. = .+1 






405 02E5 2C14 B 


UCALL: 


JSR@ 


SAVRIA 




406 02E6 4801 A 




AISZ 


R0 f l 


;SAVE RETURN ADDRESS 


407 02E7 A1FC A 




ST 


R0, $RET 




408 02E8 4E00 A 




LI 


R2,0 


; HEX OUTPUT 


409 02E9 AB25 A 




ST 


R2,FMT(R3) 




410 02EA 91F9 A 




LD 


R0,@$RET 


;LOAD BASE 


411 02EB 79F8 A 




ISZ 


$RET 




412 02EC 95F7 A 




LD 


R1,@$RET 


;LOAD TOP 


413 02ED 79F6 A 




ISZ 


$RET 


;SET UP RETURN 


414 02EE 2F11 A 




JSR 


@LOUTPUT(R3) 




415 02EF 81F4 A 




LD 


R0,$RET 




416 02F0 2712 A 




JMP 


@LRESTOR(R3) 





DEBUG 



417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 

448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 



02F1 
02F1 
02F1 
02F1 
02F1 
02F1 
02F1 
02F2 
02F3 
02F4 
02F4 
02F5 
02F6 
02F7 
02F8 
02F9 
02FA 
2FA 
02FB 
02FC 
02FD 
02FE 
02FF 
0300 
0301 
0302 
0302 
0303 
0304 
0304 
0305 

0306 
0306 
0306 
0306 
0306 
0306 
0307 
0308 
0309 
0309 
030A 
030B 
030C 
030D 
030E 
030F 
030F 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 



.PAGE 
. LOCAL 

CONTROL COMES HERE WHEN HALT 
LOCATION IS EXECUTED 



2C14 
A322 
A126 

8125 
8B29 
F200 
2102 
4A04 
21FC 

AB27 
8331 
A333 
7A03 
8602 
E603 
2101 
2119 

4C00 
A203 

2931 
2713 



JSR@ 

ST 

ST 
; FIND HALT ENTRY 

LD 

LD 
$1: SKNE 

JMP 

AISZ 

JMP 
; ENTRY FOUND 



B HRUN: 
A 



$2: 



ST 

LD 

ST 

ISZ 

LD 

SKG 

JMP 

JMP 



;HALT 
HFND: 



SAVRIA 
R0,CL(R3) 
R0,HRET 
IN H TABLE 
R0,HRET 
R2,HBASE(R3) 
R0, (R2) 
$2 

R2,4 
$1 

R2,HENT(R3) 

R0,HCODEB(R3) 

R0,CODEB(R3) 

3(R2) 

Rl f 2(R2) 

Rl,3(R2) 

HFND 

HCONTU 

R0,0 
R0,3(R2) 
LOCATION 
PHRET 
@LALPHA(R3) 



;SAVE REGISTERS 
;SAVE LOCATION OF HALT 



?HAS TO BE THERE 
;SAME TABLE ENTRY 

INCREMENT ITERATIONS 



;HALT N&W 
; CONTINUE 



; RESET COUNT 



LI 
ST 
PRINT CURRENT 
JSR 
JMP 

.PAGE 
. LOCAL 



CONTROL COMES HERE WHEN SNAP LOC IS EXECUTED 



2C14 B 
A322 A 
Alll A 



8110 
8B29 
F200 
2102 
4A04 
21FC 



AB27 A 
832F A 
A333 A 
2923 A 
8B27 A 
8603 A 
B704 A 
8A02 A 
2F10 A 
2F06 A 
2101 A 



SRUN: JSR@ 

ST 

ST 
; FIND SNAP ENTRY 

LD 

LD 
$1: SKNE 

JMP 

AISZ 

JMP 
; ENTRY FOUND 
$2: ST 

LD 

ST 

JSR 

LD 

LD 

ST 

LD 

JSR 

JSR 

JMP 



SAVRIA 

R0 f CL(R3) 

R0,HRET 

IN HTABLE 

R0,HRET 

R2,HBASE(R3) 

R0 f (R2) 

$2 

R2,4 

$1 

R2,HENT(R3) 

R0,SCODEB(R3) 

R0,CODEB(R3) 

PHRET 

R2,HENT(R3) 

R1,3(R2) 

Rl, LAPTOP (R3) 

R2,2(R2) 

@LPRANGE(R3) 

@LPCRLF(R3) 

HCONTU 



;SAVE REGISTERS 
;SAVE LOCATION OF SNAP 



?MUST BE HERE 

; PRINT LOC 

; TOP RANGE+2 

;BASE RANGE 



475 031A 

476 031A 

477 031A 



.PAGE 
; CONTROL COMES HERE WHEN USER INSTRUCTION IS TO BE EXECUTED IN A 



DEBUG 



478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

en 

518 
519 

r **i fx n n -i n 



031A 

031A 

031A 

031A 

031A 

031A 

031B 

031C 

031D 

031E 

031F 

0320 

0321 

0322 

0323 

0324 

0325 

0325 

0325 

0325 

0325 

0325 

0325 

0325 

0325 

0326 

0327 

0328 

0329 

032A 

032B 

032B 

032B 

032B 

032B 

032B 

032B 

032C 

032D 

O Jilj 

032F 
032F 



HALT/SNAP LOC. THE LOCATION AFTER THE HALT/SNAP IS SET TO EXIT 
TO HRUNB/SRUNB; THE SNAP/HALT LOCATION IS RESTORED TO ITS 
ORIGINAL CONTENTS 



031B 
8B27 
8201 
B200 
8333 
8E00 
8701 
A601 
A301 
81F6 



HRET: 
HCONTU : 



2415 B 



. = .+1 

LD 

LD 

ST 

LD 

LD 

LD 

ST 

ST 

LD 

JMP@ 



. LOCAL 



R2,HENT(R3) 

R0,1(R2) 

R0,@(R2) 

R0,CODEB(R3) 

R3, (R2) 

R1,1(R3) 

R1,1(R2) 

R0,1(R3) 

R0,HRET 

RSTRIA 



; DON'T DEPEND ON R3 TO GET HALT 

;HALT RETURN LOC 

; TABLE ENTRY OF HALT 

; RESTORE USER CODE 

; SECOND HALT 

;CODE LOC 

;HALT +1 CODE 

;SAME 

;NEW HALT AT L+l 



THESE ARE EXECUTED IMMEDIATELY AFTER THE USERS INSTRUCT. IN THE 
HALT/SNAP LOCATION. HRUNB/SRUNB MERELY INIT. 'CODE' FOR USE BY 
THE COMMON CODE RUNB 



2C14 B 
8730 A 
2103 A 
2C14 B 
872E A 
2100 A 



HRUNB: 



SRUNB; 



JSR@ 

LD 

JMP 

JSR§ 

LD 

JMP 



SAVRIA 

Rl,HCODE(R3) 

RUNB 

SAVRIA 

Rl,SCODE(R3) 

RUNB 



;SAVE REGISTERS 



A1EE 
A732 
8B27 
8DEB 



8201 A 



CONTROL COMES HERE AFTER INSTRUCTION IN HALT/SNAP LOC. IS 
EXECUTED. IT WILL BE ALTERED TO EXIT TO HRUN/SRUN; THE LOCATION 
FOLLOWING THE HALT/SNAP WILL BE RESTORED 

SECOND HALT TO RESTORE HALT AT PREVIOUS LOC 

RUNB: ST R0,HRET 

ST Rl,CODE(R3) 

LD R2,HENT(R3) ;LOC OF LAST H TAB 

LD K3,HRET ;LOC OF HALT B 

; REPLACE CURRENT HALT B WITH ITS CODE 



J£.YJ VOOY) HJBB rt 



521 
522 
523 
524 
525 
526 



0331 
0331 
0332 
0333 
0334 
0335 



83FF A 
A201 A 
A7FF A 
81E5 A 
2415 B 



LD 
ST 
REPLACE HALT 
LD 
ST 
ST 
LD 
JMP@ 



R0,1(R2) 
R0, (R3) 

R0,-1(R3) 

R0,1(R2) 

Rl,-1(R3) 

R0,HRET 

RSTRIA 



;CODE AT HALT A LOC 
; STORE CODE AT HALT 



527 0336 

528 0336 OUTCL: 

529 0336 PHRET: 

530 0336 

531 0336 2F06 A 

532 0337 8105 A 

533 0338 2F05 A 

534 0339 2F14 A 

535 033A 8322 A 

536 033B 2F15 A 

537 033C 0200 A 

538 033D 434C A CLCHAR: 



.PAGE 



JSR 

LD 

JSR 

JSR 

LD 

JSR 

RTS 

.WORD 



@LPCRLF(R3) 

R0, CLCHAR 

@LPUT2C(R3) 

@LPUTBLK(R3) 

R0,CL(R3) 

@LPUT4H(R3) 



'CL' 



; ASCI I FORMAT 



DEBUG 



539 033E 

540 033E 

541 033E 2F0C A GO: 

542 033F 2P0A A 

543 0340 2104 A 

544 0341 4C00 A $1: 

545 0342 F327 A 

546 0343 271F A 

547 0344 21D6 A 

548 0345 2F0F A GOLOC: 

549 0346 3481 A 

550 0347 2712 A 



551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 



0348 

0348 

0349 

034A 

034B 

034B 

034B 

034C 

034D 

034E 

034F 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

035A 

035B 

035C 

035C 

035D 

035E 

035F 

0360 

0361 

0362 

0363 

0364 

0364 

0364 

0364 

0365 

0366 

0367 

0368 



0403 T DRPTR: 
0403 T DRBASE: 
0415 T DRMAX: 



ALTER: 



2F0C 
2F0D 
2F0C 
2F0F 
A722 
F116 
210F 
271F 
2F1A 
2F0C 
2F0E 
2F0A 
210C 
B722 
F10E 
2713 
2F1B 

8324 
F109 
21F5 
8322 
21F2 
4C00 
A323 
21F0 



ELOOP : 
$6: 



$7: 



$9: 



.PAGE 

. LOCAL 

JSR 

JSR 

JMP 

LI 

SKNE 

JMP 

JMP 

JSR 

RCPY 

JMP 

.PAGE 
.WORD 
.WORD 
.WORD 
. LOCAL 

JSR 

JSR 

JSR 

JSR 

ST 

SKNE 

JMP 

JMP 

JSR 

JSR 

JSR 

JSR 

JMP 

ST 

SKNE 

JMP 

JSR 

LD 

SKNE 

JMP 

LD 

JMP 

LI 

ST 

JMP 



@LINPUT(R3) 

@LTCRLF(R3) 

GOLOC 

R0,0 

R0 f HENT(R3) 

@EXPEX(R3) 

HCONTU 

@LADDR(R3) 

R1,R0 

@LRESTOR(R3) 



DRTAB 
DRTAB 
DRSZ-1*2+DRTAB 



@LINPUT(R3) 

@LRCHAR(R3) 

@LINPUT(R3) 

@LADDR(R3) 

R1,CL(R3) 

R0 F VCOMM 

$9 

@EXPEX(R3) 

@LPUTADR(R3) 

@LINPUT(R3) 

@ LVALUE (R3) 

@LTCRLF(R3) 

$8 

R1,@CL(R3) 

R0,VCR0 

@LALPHA(R3) 

@LRD0(R3) 

R0,LCHAR(R3) 

R0 f VCOMM 

$6 

R0,CL(R3) 

ELOOP 

R0,0 

R0,RWORD(R3) 

$6 



;MUST BE LOC 
;ADDR TO R0 



DUMP RANGE POINTER 

DUMP RANGE BASE LOCATION 

DUMP RANGE TAB MAX ENTRY 



;GET CHAR 
;SET RWORD 



;SAVE LOC 

; VERIFY COMMA 



; PRINT ADR 

;STR OR EXP 

;ENOR EXIT 
; STORE VALUE 



;TEST FOR REG 
;AND INC CL IF OK 



; CONTINUE INPUT WITHOUT PROMPT 



F102 
21F2 
271F 
002C 
000D 



MULTIPLE WORD ALTER WITHOUT REPROMPT 
TEST FOR COMMA 

$8: SKNE R0, VCOMM 

JMP $7 

JMP @EXPEX(R3) 

VCOMM: .WORD ','/256 

VCR0: .WORD CR 



591 0369 .PAGE 

592 0369 .LOCAL 

593 0369 036A T FVALU: .=.+1 

594 036A 2F0C A MOVE: JSR @LINPUT(R3) 

595 036B 2F0E A JSR @LVALUE(R3) 

596 036C FIFA A SKNE R0 , VCOMM 

597 036D 2101 A JMP $0 

598 036E 271F A JMP @EXPEX(R3) 



;GET FIRST CHAN 
; VERIFY COMMA 



599 036F 



$0: 



10 



DEBUG 



600 036F 


A5F9 


A 






ST 


Rl , FVALU 


;SAVE 


601 0370 


81D8 


A 






LD 


R0 f DRBASE 




602 0371 


8510 


A 






LD 


Rl , DRTOP 




603 0372 




! 




SET 


UP RANGE 


PARAMS 




604 0372 


2F17 


A 






JSR 


@LRANGE(R3) 




605 0373 


2F0A 


A 






JSR 


@LTCRLF(R3) 




606 0374 


271F 


A 






JMP 


<§EXPEX(R3) 




607 0375 


81F3 


A 






LD 


R0 , FVALU 




608 0376 


89D2 


A 






LD 


R2 f DRBASE 




609 0377 


8600 


A $2 




LD 


Rl, (R2) 


;ADDR TO STORE VALUE 


610 0378 


3680 


A $1 




RXCH 


Rl f R2 


PUT ADDR IN R2 


611 0379 


A200 


A 






ST 


R0, (R2) 




612 037A 


3680 


A 






RXCH 


Rl,R2 ; 


PUT WORKING RPTR IN R2 


613 037B 


4901 


A 






AISZ 


Rl,l 


INCREMENT ADDR 


614 037C 


E601 


A 






SKG 


R1,1(R2) 




615 037D 


21FA 


A 






JMP 


$1 




616 037E 


4A02 


A 






AISZ 


R2,2 




617 037F 


FB21 


A 






SKNE 


. R2,RPTR(R3) 




618 0380 


2713 


A 






JMP 


@LALPHA(R3) 




619 0381 


21F5 


A 






JMP 


$2 




620 0382 
















621 0382 








SAME 


AS DRBASA AND DRMAX 




622 0382 








TOP 


IS LAST 


ENTRY OF TABLE TO 


BE FILLED 


623 0382 
















624 0382 


0415 


T I 


)RTOP : 


.WORD 


DRSZ-1*2+DRTAB 




625 0383 










.PAGE 






626 0383 










. LOCAL 






627 0383 


2F0C 


A I 


n IND: 


JSR 


@LINPUT(R3) 




628 0384 


2F0E 


A 






JSR 


@ LVALUE (R3) 




629 0385 


A5E3 


A 






ST 


Rl , FVALU 




630 0386 


81C2 


A 






LD 


R0 r DRBASE 




631 0387 


85FA 


A 






LD 


Rl , DRTOP 




632 0388 








RANGE DOES INPUT OF FIRST CHAS 


, REQUIRED 


633 0388 


2F17 


A 






JSR 


@LRANGE(R3) 




634 0389 


2F0A 


A 






JSR 


@LTCRLF(R3) 




635 038A 


271F 


A 






JMP 


@EXPEX(R3) 




636 038B 


7F21 


A 






DSZ 


RPTR(R3) 




637 038C 


7F21 


A 






DSZ 


RPTR(R3) 




638 038D 


ftQBR 


a 






LD 


R2,DRBASE 




639 038E 


8600 


A \ 


?2 




LD 


Rl, (R2) 




640 038F 


3680 


A \ 


?1 




RXCH 


R1,R2 


PUT ADDR IN R2 


641 0390 


8200 


a 






LD 


PCI CQO\ 


GET NEXT LOG IN RANGE 


642 0391 


3680 


A 






RXCH 


R1,R2 ; 


PUT WORKING RPTR IN R 


643 0392 


F1D6 


A 






SKNE 


R0 f FVALU 




644 0393 


2107 


A 






JMP 


SFND 




645 0394 


4901 


A 






AISZ 


Rl,l 




646 0395 


E601 


A 






SKG 


R1,1(R2) 




647 0396 


21F8 


A 






JMP 


$1 




648 0397 


4A02 


A 






AISZ 


R2,2 




649 0398 


EB21 


A 






SKG 


R2,RPTR(R3) ; 


LAST RANGE PAIR? 


650 0399 


21F4 


A 






JMP 


$2 




651 039A 


2713 


A 






JMP 


@LALPHA(R3) 




652 039B 


A722 


A I 


3FND: 


ST 


R1,CL(R3) 


; LOC FOUND IS CL 


653 039C 


2F1C 


A 






JSR 


@LOUTCL(R3) 




654 039D 


2713 


A 






JMP 


@LALPHA(R3) 




655 039E 












1 


TEMP INDEX INTO RANGE 


656 039E 










.PAGE 






657 039E 


2F0C 


A 1 


<IOTE: 


JSR 


@LINPUT(R3) 




658 039F 


2F0A 


A 






JSR 


@LTCRLF(R3) 




659 03A0 


21FD 


A 






JMP 


NOTE 


;NOT CR/LF 


660 03A1 


2713 


A 






JMP 


§LALPHA(R3) 




661 03A2 






> 











11 



DEBUG 



662 


03A2 






i 








663 


03A2 






i 








664 


03A2 


2F06 


A 


BSCODE: 


JSR 


@LPCRLF(R3) 




665 


03A3 


4DFF 


A 




LI 


Rl,-1 




666 


03A4 


A726 


A 




ST 


Rl,DELTA(R3) 


; DECREMENT 


667 


03A5 






/ 








668 


03A5 


2F1B 


A 


LFCODE: 


JSR 


@LRD0(R3) 


INCREMENT VAL 


669 


03A6 






/ 








670 


3A6 


8322 


A 


CRCODE: 


LD 


R0,CL(R3) 




671 


03A7 


2F1A 


A 




JSR 


@LPUTADR(R3) 




672 


03A8 


9322 


A 




LD 


R0,@CL(R3) 




673 


03A9 


2F19 


A 




JSR 


@LOUTW(R3) 




674 


3AA 


2713 


A 




JMP 


@LALPHA(R3) 




675 


3AB 






t 








676 


03AB 






i 








677 


03AB 








.LOCAL 






678 


03AB 


4D00 


A 


TYPE: 


LI 


R1,0 




679 


03 AC 


2101 


A 




JMP 


$1 




680 


3AD 


4D01 


A 


CHAR: 


LI 


Rl,l 




681 


03AE 


A725 


A 


$1: 


ST 


R1,FMT(R3) ; 


ASCII FORMAT 


682 


03AF 


8199 


A 




LD 


R0,DRBASE 




683 


03B0 


85D1 


A 




LD 


Rl,DRTOP 




684 


03B1 






; RANGE 


REQUIRES BASE/TOP OF TABLE 


685 


03B1 






; IT WILL FILL 






686 


03B1 


2F17 


A 




JSR 


@LRANGE(R3) 




687 


03B2 


2F0A 


A 




JSR 


@LTCRLF(R3) 


TEST FOR CR/LF 


688 


03B3 


271F 


A 




JMP 


@EXPEX(R3) 


ERROR EXIT 


689 


03B4 


8B21 


A 




LD 


R2,RPTR(R3) 


NEXT RANGE LOC 


690 


03B5 


4AFE 


A 




AISZ 


R2,-2 


LAST OF CONCERN 


691 


03B6 


BB04 


A 




ST 


R2, LAPTOP (R3) 


PRANGE PARAM 


692 


03B7 


8991 


A 




LD 


R2,DRBASE 




693 


03B8 


2F10 


A 




JSR 


@LPRANGE(R3) 


PRINT RANGE 


694 


03B9 


2713 


A 




JMP 


@LALPHA(R3) 




695 


3BA 








.PAGE 






696 


03BA 


03CF 


T 


REGA: 


.=.+21 






697 


03CF 


03EF 


T 


HTAB: 


.=HSZ* 


4 + . 


;H/L TABLE 


698 


03EF 


0403 


T 


HRTAB : 


.=HRSZ 


*2+. 


;HR TABLE 


699 


0403 


0417 


T 


DRTAB: 


.=DRSZ 


*2+. 


;DR TABLE 


700 


0417 








.PAGE 






701 


0417 








.LOCAL 






702 


0417 


290A 


A 


INPUT: 


JSR 


GETC 




703 


0418 


F105 


A 




SKNE 


R0,NULL 




704 


0419 


21FD 


A 




JMP 


INPUT 




705 


041A 


F102 


A 




SKNE 


R0, BLANK 


;SKIP TO NON B 


706 


041B 


21FB 


A 




JMP 


INPUT 




707 


041C 


0200 


A 




RTS 







708 


041D 


0020 


A 


BLANK: 


.WORD 


' '/256 




709 


041E 


0000 


A 


NULL: 


.WORD 







710 


041F 


007F 


A 


H7F: 


.WORD 


X'7F 




711 


0420 


FFF5 


A 


DELAY 


= 


0FFF5 




712 


0420 


FFF6 


A 


DELAY1 


= 


0FFF6 




713 


0420 


2920 


A 


LECHOI: 


JSR 


LTECHO-3 




714 


0421 


7E73 


A 


PTECHO: 


.WORD 


07E73 




715 


0422 


2942 


A 


GETC: 


JSR 


SAVE 




716 


0423 


2DFD 


A 


ECHOA: 


JSR@ 


PTECHO 




717 


0424 


A162 


A 




ST 


0,SRREG 




718 


0425 


2950 


A 




JSR 


REST 




719 


0426 


61F8 


A 




AND 


0,H7F 




720 


0427 


A324 


A 




ST 


R0,LCHAR(R3) 




721 


0428 








.ENDIF 






722 


0428 


F16A 


A 




SKNE 


R0,VLF 


;LF 
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DEBUG 



723 0429 217E A 




JMP 


PCR 




724 042A F167 A 




SKNE 


R0,VCR 


;CR 


725 042B 2416 I 




JMP 


PLF 




726 042C F164 A 




SKNE 


R0,VESC 


;ESC 


727 042D 271E A 




JMP 


@ESCEX(R3) 




728 042E 0200 A 




RTS 







729 042F 




.IF -IMP16 




730 042F 




.PAGE 






731 042F , 




. LOCAL 






732 042F 0038 A 


TTYAD 


= 


7*8 




733 042F 0A80 A 


LTTYT: 


PFLG 


2 




734 0430 4C30 A 




LI 


0,X'30 




735 0431 03F6 A 




JSRI 


DELAYl 




736 0432 4E09 A 


$0: 


LI 


2,9 




737 0433 0A80 A 




PFLG 


2 




738 0434 4C00 A 




LI 


0.0 




739 0435 4F38 A 




LI 


3 i TTYAD 




740 0436 0603 A 




ROUT 


3 




741 0437 58FF A 




ROR 


0,1 




742 0438 03F5 A 


$2: 


JSRI 


DELAY 




743 0439 5829 A 




ROL 


0,TA 




744 043A 4AFF A 


$3: 


AISZ 


2,-1 




745 043B 2101 A 




JMP 


$5 




746 043C 2104 A 




JMP 


$7 




747 043D 59FF A 


$5: 


ROR 


1,1 




748 043E 3481 A 




RCPY 


1,0 




749, 043F 0603 A 


$6: 


ROUT 


3 




750 0440 21F7 A 




JMP 


$2 




751 0441 4CFF A 


$7: 


LI 


0,-1 




752 0442 0603 A 




ROUT 


3 




753 0443 0200 A 




RTS 






754 0444 




.PAGE 






755 0444 




. LOCAL 






756 0444 4F38 A 


LTECHO: 


LI 


3, TTYAD 




757 0445 0A80 A 




PFLG 


2 




758 0446 0605 A 




ROUT 


5 




759 0447 4E08 A 




LI 


2,8 




760 0448 0402 A 




RIN 


2 




761 0449 0604 A 




ROUT 


4 




762 044A 1201 A 




BOC 


2, .+2 




763 044B 21FC A 




JMP 


.-3 




764 044C 4C09 A 




LI 


0,EA 




765 044D 03F6 A 




JSRI 


DELAYl 




766 044E 58EA A 




ROR 


0,EB 




767 044F 0402 A 




RIN 


2 




768 0450 1201 A 




BOC 


2, .+2 




769 0451 21F3 A 




JMP 


LTECHO+1 




770 0452 0603 A 


$14: 


ROUT 


3 




771 0453 03F5 A 




JSRI 


DELAY 




772 0454 5826 A 




ROL 


0,EC 




773 0455 0402 A 




RIN 


2 




774 0456 610D A 




AND 


0,$M 




775 0457 5DFF A 




SHR 


1,1 




776 0458 3182 A 




RXOR 


0,1 




777 0459 4AFF A 




AISZ 


2,-1 




778 045A 21F7 A 




JMP 


$14 




779 045B 0603 A 




ROUT 


3 




780 045C 03F5 A 




JSRI 


DELAY 




781 045D 4CFF A 




LI 


0,-1 




782 045E 0603 A 




ROUT 


3 




783 045F 03F5 A 




JSRI 


DELAY 
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DEBUG 



784 


0460 


0605 


A 




ROUT 


5 


785 


0461 


5DF8 


A 




SHR 


1,8 


786 


0462 


3481 


A 




RCPY 


1,0 


787 


0463 


0200 


A 




RTS 




788 


0464 


8000 


A 


$M: 


.WORD 


X'8000 


789 


0465 








.PAGE 




790 


0465 


A121 


A 


SAVE: 


ST 


0,$R 


791 


0466 


A521 


A 




ST 


1,$R+1 


792 


0467 


A921 


A 




ST 


2, $R+2 


793 


0468 


AD21 


A 




ST 


3 f $R+3 


794 


0469 


4700 


A 




PULL 


3 


795 


046A 


4400 


A 




PULL 





796 


046B 


A120 


A 




ST 


0,$R+5 


797 


046C 


4400 


A 




PULL 





798 


046D 


A11F 


A 




ST 


0,$R+6 


799 


046E 


4400 


A 




PULL 





800 


046F 


A11E 


A 




ST 


0,$R+7 


801 


0470 


4400 


A 




PULL 





802 


0471 


A11D 


A 




ST 


0,$R+8 


803 


0472 


4400 


A 




PULL 





804 


0473 


A11C 


A 




ST 


0,$R+9 


805 


0474 


8112 


A 




LD 


0,$R 


806 


0475 


2300 


A 




JMP 


(3) 


807 


0476 


4700 


A 


REST: 


PULL 


3 


808 


0477 


8118 


A 




LD 


0,$R+9 


809 


0478 


4000 


A 




PUSH 





810 


0479 


8115 


A 




LD 


0,$R+8 


811 


047A 


4000 


A 




PUSH 





812 


047B 


8112 


A 




LD 


0,$R+7 


813 


047C 


4000 


A 




PUSH 





814 


047D 


810F 


A 




LD 


0,$R+6 


815 


047E 


4000 


A 




PUSH 





816 


047F 


810C 


A 




LD 


0,$R+5 


817 


0480 


4000 


A 




PUSH 





818 


0481 


4300 


A 




PUSH 


3 


819 


0482 


8104 


A 




LD 


0,$R 


820 


0483 


8504 


A 




LD 


1,$R+1 


821 


0484 


8904 


A 




LD 


2,$R+2 


822 


0485 


8D04 


A 




LD 


3,$R+3 


823 


0486 


0200 


A 




RTS 




824 


0487 






SRREG: 






825 


0487 


0491 


T 


$R: 


.=.+10 




826 


0491 








.ENDIF 




827 


0491 


007D 


A 


VESC: 


.WORD 


X'7D 


828 


0492 


000D 


A 


VCR: 


.WORD 


CR 


829 


0493 


000A 


A 


VLF: 


.WORD 


LF 


830 


0494 








.PAGE 




831 


0494 








. LOCAL 




832 


0494 


2995 


A 


LTYPEI: 


JSR 


LTTYT-5 


833 


0495 


7E59 


A 


PTTYT: 


.WORD 


07E59 


834 


0496 


6137 


A 


PUTC: 


AND 


0,VFF 


835 


0497 


29CD 


A 




JSR 


SAVE 


836 


0498 


3181 


A 




RCPY 


0,1 


837 


0499 


2DFB 


A 


TYPEA: 


JSR@ 


PTTYT 


838 


049A 


4F00 


A 




LI 


R3,0 


839 


049B 


0406 


A 




RIN 


6 


840 


049C 


5C08 


A 




SHL 


0,8 


841 


049D 


1204 


A 




BOC 


2,$1 


842 


049E 


4F38 


A 




LI 


R3,TTYAD 


843 


049F 


0605 


A 




ROUT 


5 


844 


04A0 


29D5 


A 




JSR 


REST 
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DEBUG 



845 


04A1 


2103 


A 




JMP 


$2+1 




846 


04A2 


29D3 


A 


$1: 


JSR 


REST 




847 


04A3 


0200 


A 




RTS 






848 


04A4 








.ENDIF 






849 


04A4 


8D02 


A 


$2: 


LD 


R3,GTEMP 




850 


04A5 


4400 


A 




PULL 


R0 




851 


04A6 


271E 


A 




JMP 


@ESCEX(R3) 




852 


04A7 












;ESC CHAR 


853 


04A7 


04A8 


T 


GTEMP: 


. = .+1 






854 


04A8 








.PAGE 






855 


04A8 


4C0D 


A 


PCR: 


LI 


R0,CR 


; OUTPUT CR 


856 


04A9 


2F07 


A 


PCR1: 


JSR 


@LPUTC(R3) 




857 


04AA 


8324 


A 




LD 


R0,LCHAR(R3) 


;R0 HAS LCHAR 


858 


04AB 


0200 


A 




RTS 







859 


04 AC 






i 








860 


04AC 






PLFCR: 








861 


04AC 


29FB 


A 


PCRLF : 


JSR 


PCR 


; OUTPUT CR/LF 


862 


04 AD 


4C0A 


A 


PLF: 


LI 


R0,LF 


; OUTPUT LF 


863 


04AE 


21FA 


A 




JMP 


PCR1 




864 


04AF 








.PAGE 






865 


04AF 








. LOCAL 






866 


04AP 








OUTPUT 


R0 ACCORDING TO 


FMT 


867 


04AF 








FMT ={ 


) HEX 




868 


04AF 








FMT =1 ASCII 




869 


04AF 














870 


4AF 






OUTW: 








871 


04AF 


4D00 


A 




LI 


R1,0 




872 


04B0 


F725 


A 




SKNE 


R1,FMT(R3) 




873 


04B1 


2109 


A 




JMP 


OUTHEX 




874 


04B2 














875 


04B2 






; OUTPUT 2 CHARS IN R0 




876 


04B2 














877 


04B2 






PUT2C: 








878 


04B2 


A107 


A 




ST 


R0,$TEMP 




879 


04B3 


5CF8 


A 




SHR 


R0,8 


; FIRST CHAR 


880 


04B4 


6119 


A 




AND 


R0,VFF 




881 


04B5 


2F07 


A 




JSR 


@LPUTC(R3) 




882 


04B6 


8103 


A 




LD 


R0, $TEMP 




883 


04B7 


6116 


A 




AND 


R0,VFF 




884 


04B8 


2F07 


A 




JSR 


@LPUTC(R3) 




885 


04B9 


0200 


A 




RTS 







886 


04BA 


04BB 


T 


$TEMP: 


. = .+1 






887 


04BB 














888 


04BB 






; OUTPUT R0 AS 


4 HEX CHAR 




889 


04BB 














890 


04BB 






PUT4H: 








891 


04BB 






OUT4K: 








892 


04BB 


4DFC 


A 


OUTHEX: 


LI 


Rl,-4 




893 


04BC 


A50C 


A 




ST 


Rl,$CNT 




894 


04BD 


A1FC 


A 


SI: 


ST 


R0,$TEMP 




895 


04BE 


5CF4 


A 




SHR 


R0,12 




896 


04BF 


610D 


A 




AND 


R0,VF 


;GET CHAR 


897 


04C0 


E10B 


A 




SKG 


R0,V9 


;FORM HEX 


898 


04C1 


C108 


A 




ADD 


R0 f VC09 


;VC09='0'-'A'+10 


899 


04C2 


C108 


A 




ADD 


R0 f VAM10 


;VAM9='A'-10 


900 


04C3 


2F07 


A 




JSR 


@LPUTC(R3) 




901 


04C4 


81F5 


A 




LD 


R0,$TEMP 




902 


04C5 


5C04 


A 




SHL 


R0,4 




903 


04C6 


7902 


A 




ISZ 


$CNT 




904 


04C7 


21F5 


A 




JMP 


$1 




905 


04C8 


0200 


A 




RTS 
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DEBUG 



906 04C9 04CA T $CNT: 

907 04CA FFF9 A VC09: 

908 04CB 0037 A VAM10: 

909 04CC 0009 A V9: 

910 04CD 000F A VF: 

911 04CE 00FF A VFF: 



= .+1 




WORD 


X'30-X'41+10 


WORD 


X'41-10 


WORD 


9 


WORD 


X'F 


WORD 


X'FF 



912 04CF 








.PAGE 






913 04CF 








. LOCAL 






914 04CF 






; TEST 


IF THE ] 


[NCREMENT/DECREMENT 


OF CL REMAINS 


915 04CF 


8722 


A 


RD0: 


LD 


R1,CL(R3) 




916 04D0 


2F09 


A 




JSR 


@LRTEST (R3) 




917 04D1 


2103 


A 




JMP 


$2 


; IN R 


918 04D2 


C726 


A 




ADD 


Rl, DELTA (R3) 




919 04D3 


A722 


A 


$3: 


ST 


R1,CL(R3) 




920 04D4 


0200 


A 




RTS 







921 04D5 


C726 


A 


$2: 


ADD 


Rl, DELTA (R3) 




922 04D6 


2F09 


A 




JSR 


@LRTEST (R3) 




923 04D7 






; HAS 


TO BE IN 


R OR ERROR 




924 04D7 


21FB 


A 




JMP 


$3 




925 04D8 


271F 


A 




JMP 


@EXPEX(R3) 




926 04D9 








i 






927 04D9 














928 04D9 






• TEST 


CURRENT 


CHARACTER FOR LF,CR 


929 04D9 














930 04D9 


8324 


A 


TCRLF: 


LD 


R0,LCHAR(R3) 




931 04DA 


F1B8 


A 




SKNE 


R0,VLF 




932 04DB 


0201 


A 




RTS 


1 




933 04DC 


F1B5 


A 




SKNE 


R0,VCR 




934 04DD 


0201 


A 




RTS 


1 




935 04DE 


0200 


A 




RTS 





;NOT FOUND 


936 04DF 








.LOCAL 






937 04DF 






; TEST 


IF Rl VALUE IS IN REG 




938 04DF 






; SAVE 


AREA 






939 04DF 


E506 


A 


RTEST: 


SKG 


Rl, REGEND 




940 04E0 


2101 


A 




JMP 


$1 




941 04E1 


0201 


A 




RTS 


1 


;NOT REG SAVE 


942 04E2 


E502 


A 


$1: 


SKG 


R1,REGAM1 




943 04E3 


0201 


A 




RTS 


1 


;NOT REG SAVE 


944 04E4 


0200 


A 




RTS 





;REG SAVE 


945 04E5 


03B9 


T 


REGAM1 : 


.WORD 


REGA-1 




946 04E6 


03CD 


T 


REGEND: 


.WORD 


REGA+19 




947 04E7 














948 04E7 






; TEST 


FOR LF,CR, COMMA, COLON 




949 04E7 














950 04E7 








. LOCAL 






951 04E7 


2F0A 


A 


TTERM: 


JSR 


@LTCRLF(R3) 




952 04E8 


2101 


A 




JMP 


$1 




953 04E9 


0201 


A 




RTS 


1 


; FOUND 


954 04EA 






; R0 CONTAINS ( 


:haracter as a result of tlfcr 


955 04EA 


F148 


A 


$1: 


SKNE 


R0,VCOMMA 




956 04EB 


0201 


A 




RTS 


1 


; FOUND 


957 04EC 


F145 


A 




SKNE 


R0,VCOLON 




958 04ED 


0201 


A 




RTS 


1 


; FOUND 


959 04EE 


0200 


A 




RTS 





;NOT FOUND 


960 04EF 








.PAGE 






961 04EF 








.LOCAL 






962 04EF 














963 04EF 






; GET 


STRING OR EXPRESSION 




964 04EF 














965 04EF 


8324 


A 


VALUE : 


LD 


R0,LCHAR(R3) 




966 04F0 


F110 


A 




SKNE 


R0,VQU 
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DEBUG 



967 04F1 

968 04F2 

969 04F3 

970 04F4 

971 04F4 

972 04F5 

973 04F6 

974 04F7 

975 04F7 

976 04F8 

977 04F9 

978 04FA 

979 04FB 

980 04FC 

981 04FD 

982 04FE 

983 04FF 

984 0500 

985 0501 

986 0502 

987 0503 

988 0503 

989 0503 

990 0503 

991 0503 

992 0503 

993 0503 

994 0504 



2102 
2F0B 
0200 

4D00 
A540 
2F08 

853E 
F108 
2105 
5D08 
6506 
3182 
A538 
21F7 
2F0C 
0200 
0027 
FF00 



JMP 
JSR 
RTS 

; STRING 

PQUOTE: LI 
ST 

$1: JSR 

; POSITION LAST 
LD 

SKNE 
JMP 
SHL 
AND 
RXOR 
ST 
JMP 
JSR 
RTS 
.WORD 
.WORD 



STSTR: 



$2; 

VQU: 
VFF00: 



PQUOTE 

@LEXPR(R3) 



Rl,0 

Rl, RESULT 
@LGETC(R3) 
CHAR 

Rl, RESULT 

R0 f VQU 

$2 

Rl,8 

R1,VFF00 

R0,R1 

Rl, RESULT 

$1 

@LINPUT(R3) 



/256 

X'FF00 



EVALUATE EXPR AND DETERMINE 
IF VALID ADDR 



ADDR: 



2F0B A 
0200 A 



. LOCAL 

JSR 
RTS 



;R1 NEED RESULT 



i POSITION TO CHAR PAST LAST QUOTE 



@LEXPR(R3) 




995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 



0505 
0505 
0505 
0505 
0505 
0505 
0505 
0506 
0507 
0508 
0509 
050A 
050B 
050C 
050D 
050E 
050E 
050F 
050F 
0510 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
051A 
051B 
051C 
051D 



A321 
A522 
2F0C 
4E00 
AB23 
8B21 
E91D 
2101 
2720 



2F0D A 
2110 A 



2F0F 

B721 

F11F 

2109 

8B21 A 

A601 A 

4A02 

AB21 

F11A 

21ED 

2F0A 

271F A 

0200 A 



.PAGE 
INPUT: R0 

Rl 
OUTPUT: RPTR (RANGE TABLE ENTRY) 

TABLE UPDATED 

. LOCAL 



RANGE: 



MORER: 



$0: 



$3: 
$4: 



$1: 



ST 

ST 

JSR 

LI 

ST 

LD 

SKG 

JMP 

JMP 

JSR 



JMP 
NOT AN 'R' 
JSR 
ST 

SKNE 
JMP 
LD 
ST 

AISZ 
ST 

SKNE 
JMP 
JSR 
JMP 
RTS 



R0,RPTR(R3) 

Rl , RMAX 

@LINPUT(R3) 

R2,0 

R2,RWORD(R3) 

R2,RPTR(R3) 

R2 , RMAX 

$0 

@OVREX(R3) 

@LRCHAR(R3) 

RR 

@LADDR(R3) 

R1,@RPTR(R3) 

R0,VCOLON 

$2 

R2 f RPTR(R3) 

R1,1(R2) 

R2,2 

R2,RPTR(R3) 

R0,VCOMMA 

MORER 

@LTCRLF(R3) 

@EXPEX(R3) 





CURRENT ENTRY OF RANGE TABLE 
MAX RANGE TABLE ENTRY 
UPDATED TO CURRENT ENTRY 



; CURRENT 

;MAX 

;NON/BLANK CHAR 

; RESET REG LOC 

; EXCEED TABLE 

;SIZE 



;TEST FOR 'R' 
AND UPDATE RWORD 
; FOUND 



; STORE RESULT 

•TEST FOR ':' SECOND HALF 

; SECOND 

; 16 LOCATION 

; INCREMENT RANGE 

; FINAL RANGE 
;MORE RANGES 

;NO 
;YES 



PROCESS SECOND PART OF RANGE 
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DEBUG 



1029 


051D 


2F0C 


A $2: 


JSR 


@LINPUT(R3) 






1030 


051E 


2F0F 


A 




JSR 


@LADDR(R3) 






1031 


051F 


21F4 


A 




JMP 


$1 




; STORE SECOND 


1032 


0520 




i 


PROCESS R TO SEE IF ALL REGISTERS 


1033 


0520 




i 


GET 


NEXT PAST R 






1034 


0520 


2F0C 


A RR: 


JSR 


@LINPUT(R3) 






1035 


0521 


Fill 


A 




SKNE 


R0, VCOMMA 






1036 


0522 


2102 


A 




JMP 


RR1 




; COMMA YES 


1037 


0523 


2F0A 


A 




JSR 


@LTCRLF(R3) 






1038 


0524 


21EB 


A 




JMP 


$3 




; REGULAR 


1039 


0525 




i 


A COMPLETE REG 


DUMP REQUEST 






1040 


0525 


850E 


A RR1: 


LD 


Rl, REGADR 




;REG 


1041 


0526 


B721 


A 




ST 


Rl,@RPTR(R3) 






1042 


0527 


4913 


A 




AISZ 


Rl,19 




;REG 19 


1043 


0528 


21EB 


A 




JMP 


$1 






1044 


0529 




i 


RANGE PERFORMS 


INPUT OF ALL 


CHAR IN RANGE 


1045 


0529 




i 


ESPECIALLY THE 


FIRST 






1046 


0529 


052A 


T RMAX: 


. = .+1 








1047 


052A 




i 


MAX 


ENTRY IS THE ENTRY BASE 


BEYOND END OF TABLE 


1048 


052A 








.PAGE 








1049 


052A 








. LOCAL 








1050 


052A 




1 


TEST LCHAR FOR 


'R' 






1051 


052A 




i 


IF 


EQUAL SET RWORD < REGADR 


AND 


EXIT AT RET+0. EL 


1052 


052A 


8324 


A RCHAR: 


LD 


R0 , LCHAR (R3) 






1053 


052B 


F105 


A 




SKNE 


R0,VR 






1054 


052C 


2101 


A 




JMP 


$1 




'R' 


1055 


052D 


0201 


A 




RTS 


1 






1056 


052E 


8105 


A $1: 


LD 


R0, REGADR 




; UPDATE 


1057 


052F 


A323 


A 




ST 


R0 , RWORD (R3) 




; RWORD 


1058 


0530 


0200 


A 




RTS 







;EXIT 


1059 


0531 


0052 


A VR: 


.WORD 


'R'/256 






1060 


0532 


003A 


A VCOLON 


: .WORD 


': '/256 






1061 


0533 


002C 


A VCOMMA 


: .WORD 


',7256 






1062 


0534 


03BA 


T REGADR 


: .WORD 


REGA 






1063 


0535 








.PAGE 








1064 


0535 








. LOCAL 








1065 


0535 




i 


FIRST CHAR ASSUMED TO BE INPUT 




1066 


0535 


0536 


T CURR: 


. = .+1 






; CURRENT SYSTEM 


1067 


0536 


0537 


T RESULT 


: .=.+1 






;EXPR RESULT 


1068 


0537 


0538 


T OP: 


. = .+1 






; CURRENT OPERATOR 


1069 


0538 


8324 


A EXPR: 


LD 


R0 , LCHAR (R3) 






1070 


0539 


4D00 


A 




LI 


Rl,0 




; OPERATOR IS 


1071 


053A 


A5FA 


A 




ST 


R1,CURR 




; CURRENT SYATAX 


1072 


053B 


A5FB 


A 




ST 


Rl,OP 




; OPERATOR + 


1073 


053C 


A5F9 


A 




ST 


Rl, RESULT 






1074 


053D 


2928 


A 




JSR 


GETSYN 




;GET NEXT SYN 


1075 


053E 


2104 


A 




JMP 


VECTOR 






1076 


053F 






ON 


FIRST ITEM 


BYPASS DUP SYN 


TEST 


1077 


053F 




ACHAR: 










1078 


053F 


8324 


A 




LD 


R0, LCHAR (R3) 






1079 


0540 


2925 


A ASYN: 


JSR 


GETSYN 






1080 


0541 
















1081 


0541 






R2 


HAS SYNTAX 


TYPE 






1082 


0541 






Rl 


HAS SPECIAL 


BASED ON SYN 


TYPE 


1083 


0541 






R0 


HAS LCHAR 








1084 


0541 
















1085 


0541 


F9F3 


A 




SKNE 


R2,CURR 




;TEST FOR DUP 


1086 


0542 


271F 


A 




JMP 


@EXPEX(R3) 




; ERROR EXIT 


1087 


0543 




\ 


SECTOR 


: 








1088 


0543 


C905 


A 




ADD 


R2,OPADR 







EXIT AT RET+1 



18 



DEBUG 



1089 


0544 


2200 


A 




JMP 


(R2) 




1090 


0545 


2104 


A 


OPVEC : 


JMP 


STOROP 


STORE OP 


1091 


0546 


2107 


A 




JMP 


PEROP 


1 PERFORM OP 


1092 


0547 


210E 


A 




JMP 


EXPEXT 


2 EXIT 


1093 


0548 


271F 


A 




JMP 


@EXPEX(R3) 


• 3 ERROR 


1094 


0549 


0545 


T 


OPADR: 


.WORD 


OPVEC 




1095 


054A 






; STORE 


NEW INTO 


CURRENT 




1096 


054A 


A5EC 


A 


STOROP: 


ST 


Rl,OP 




1097 


054B 






$2: 








1098 


054B 


D9FD 


A 




SUB 


R2, OPADR 




1099 


054C 






1 VALUE IN R2 


HAS BEEN MODIFIED 


TO FORM ADDRESS SO CH 


1100 


054C 


A9E8 


A 




ST 


R2,CURR 




1101 


054D 


21F1 


A 




JMP 


ACHAR 




1102 


054E 






; PERFORM OP 






1103 


054E 


81E8 


A 


PEROP: 


LD 


R0,OP 




1104 


054F 


4800 


A 




AISZ 


R0,0 ; 


TEST IF 


1105 


0550 


2103 


A 




JMP 


MINUS 




1106 


0551 


C5E4 


A 


$4: 


ADD 


Rl, RESULT 




1107 


0552 


A5E3 


A 




ST 


Rl, RESULT 




1108 


0553 


21F7 


A 




JMP 


$2 ; 


STORE SYNTAX 


1109 


0554 


5101 


A 


MINUS: 


CAI 


Rl,l 




1110 


0555 


21FB 


A 




JMP 


$4 




1111 


0556 






; EXPR 


EXIT — CANNOT BE OPERATOR LAST 


1112 


0556 


8324 


A 


EXPEXT: 


LD 


R0,LCHAR(R3) 




1113 


0557 


8723 


A 


$5: 


LD 


Rl,RWORD(R3) 




1114 


0558 


2F09 


A 




JSR 


@LRTEST(R3) ; 


REG 


1115 


0559 


2105 


A 




JMP 


$10 ; 


YES-MUST BE 0-19 


1116 


055A 


C5DB 


A 


$6: 


ADD 


Rl, RESULT 




1117 


055B 


89D9 


A 




LD 


R2,CURR 




1118 


055C 


4A00 


A 




AISZ 


R2 , 


TEST IF OPERATOR 


1119 


055D 


0200 


A 




RTS 







1120 


055E 


271F 


A 




JMP 


@EXPEX(R3) ; 


YES ERROR 


1121 


055F 






; A REG 


ITEM IS i. 


J < R < 20 




1122 


055F 


89D6 


A 


$10: 


LD 


R2, RESULT 




1123 


0560 


E91B 


A 




SKG 


R2,V19 




1124 


0561 


2101 


A 




JMP 


$11 


; RESET > 19 


1125 


0562 


271F 


A 




JMP 


@EXPEX(R3) ; 


ERROR 


1126 


0563 


E949 


A 


$11: 


SKG 


R2,VM1 ; 


>=0? 


1127 


0564 


271F 


A 




JMP 


@EXPEX(R3) 




1128 


0565 


21F4 


A 




JMP 


$6 




1129 


0566 








.PAGE 






1130 


0566 






; TO GET A VALID 


SYNTAX ITEM, INPUT 


R0 LAST CHAR, OUTPUT 


1131 


0566 






; Rl NUM r OPERATOR TYPE, R2 SYNTAX 


ITEM. 


1132 


0566 








. LOCAL 






1133 


0566 


F113 


A 


GETSYN: 


SKNE 


R0,VPLUS 


PLUS ? 


1134 


0567 


210E 


A 




JMP 


PLSCOD 




1135 


0568 


F112 


A 




SKNE 


R0,VMINUS ; 


MINUS 


1136 


0569 


2108 


A 




JMP 


MINCOD 




1137 


056A 


2914 


A 




JSR 


GETNUM 




1138 


056B 


210C 


A 




JMP 


$2 


FOUND 


1139 


056C 


2F18 


A 




JSR 


@LTTERM(R3) 




1140 


056D 


2102 


A 




JMP 


$4 




1141 


056E 


4E02 


A 




LI 


R2,2 ; 


FOUND 


1142 


056F 


0200 


A 




RTS 







1143 


0570 


4E03 


A 


$4: 


LI 


R2,3 ; 


NON SYN 


1144 


0571 


0200 


A 




RTS 







1145 


0572 


4D01 


A 


MINCOD: 


LI 


Rl,l 


MIN OP 


1146 


0573 


2F0C 


A 


$10: 


JSR 


@LINPUT(R3) 


;MOVE SCANNER POSITIOl 


1147 


0574 


4E00 


A 


$1: 


LI 


R2 , 


OP SYN 


1148 


0575 


0200 


A 




RTS 







1149 


0576 


4D00 


A 


PLSCOD: 


LI 


R1,0 
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DEBUG 



1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 



0577 
0578 
0579 
057A 
057B 
057C 
057D 
057E 



21FB 
4E01 
0200 
002B 
002D 
0013 
002E 
000F 



$2: 

VPLUS: 

VMINUS: 

V19: 

VDOT: 

V000F: 



JMP 

LI 

RTS 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



$10 

R2,l 



'+7256 

'-7256 

19 

'. 7256 

X'F 



; OPERAND SYN 



1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 

1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 



057F 
057F 
057F 
057F 
057F 
057F 
057F 
057F 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0588 
0589 
058A 
058B 
058B 
058B 
058C 
058D 

058E 
058E 
058E 
058E 
058E 
058E 
058E 
058F 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0598 
0599 
059A 
059B 
059C 
059C 
059D 
059E 
059F 
05A0 
5A1 



F1FD 
2103 
290E 
0200 
0201 
8722 
2F09 
2101 
2103 

D504 
8903 
AB23 



2F0C 
0200 
03BA 



058F 
0590 
4D00 
A5FD 
4DFF 
A5FA 
E114 
2106 
E113 
2109 

E115 
2102 
Elll 
2104 

85F2 
79F0 
0200 
0201 
4809 
6 IDC 



.PAGE 

. LOCAL 
INPUT R0 CHAR 
OUTPUT R0 LCHAR 
RTS+1 NOT FOUND 
RTS +0 FOUND 
PROCESS . IF PRESENT OR GOTO GETHEX 



GETNUM : 



PCL: 



SKNE 

JMP 

JSR 

RTS 

RTS 

LD 

JSR 

JMP 

JMP 



$2: 



R0,VDOT 

PCL 

GETHEX 



1 

Rl,CL(R3) 

@LRTEST(R3) 

$2 

$1 



; FOUND 
;NOT FOUND 



IN REGISTER 

FOUND AND NOT IN REG 



SUB Rl,REGA01 

LD R2,REGA01 

ST R2,RWORD(R3) 

; IF DOT '.' IS 'R' THEN CL MUST BE 
; 0-19 TILL END OF EXPR. THEN ADD RWORD. 

$1: JSR @LINPUT(R3) ;UPDATE SCANNER 

RTS 

REGA01: .WORD REGA 



.PAGE 
INPUT R0 LCHAR 
OUTPUT Rl RESULT 

RTS FOUND 
RTS \ NOT FOUND 

. LOCAL 

. = .+1 

. = .+1 

LI 

ST 

LI 

ST 

SKG 

JMP 

SKG 

JMP 
; TEST FOR A-F 
TAF: SKG 

JMP 

SKG 

JMP 
; TEST RESULT AND 



CCNT: 

NUM: 

GETHEX: 



$1: 



HEXEX: 



PAF: 
P09: 



LD 

ISZ 

RTS 

RTS 

AISZ 

AND 



Rl,0 

R1,NUM 

Rl,-1 

R1,CCNT 

R0,V2F 

HEXEX 

R0,V39 

P09 

R0,V40 
HEXEX 
R0 f V46 
PAF 
EXIT 
Rl,NUM 
CCNT 

1 

R0,9 
R0,V000F 



;TEST A-F 
; PROCESS 0-9 

;DONE 
; A-F 



NUM FOUND 

41-46 > 4A > 4F 
MASK OFF X'40' 
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DEBUG 



1211 


05A2 


85EC 


A 




LD 


R1,NUM 




1212 


05A3 


79EA 


A 




ISZ 


CCNT 


.=-1 


1213 


05A4 


5D04 


A 




SHL 


Rl,4 


?MULT BY 16 


1214 


05A5 


3100 


A 




RADD 


R0,Rl 


;ADD NEW 


1215 


05A6 


A5E8 


A 




ST 


R1,NUM 




1216 


05A7 


2F0C 


A 




JSR 


@LINPUT(R3) 




1217 


05A8 


21EB 


A 




JMP 


$1 




1218 


05A9 


002F 


A 


V2F: 


.WORD 


X'2F 




1219 


05AA 


0039 


A 


V39: 


.WORD 


X'39 




1220 


5AB 


0041 


A 


V41: 


.WORD 


X'41 




1221 


05AC 


0046 


A 


V46: 


.WORD 


X'46 




1222 


05AD 


FFFF 


A 


VM1: 


.WORD 


-1 




1223 


05AE 


0040 


A 


V40: 


.WORD 


X'40 




1224 


05AF 








.PAGE 






1225 


05AF 








.LOCAL 






1226 


05AF 






• PRINT 


THE ELEMENTS IN A SET OF RANGES 


1227 


05AF 






• INPUT 


R2 BASE 


RANGE 




1228 


05AF 








PTOP HAS 


TOP RANGE 




1229 


05AF 






PRANGE : 








1230 


05AF 


A90B 


A 


$1: 


ST 


R2 f PBASE 




1231 


05B0 


8200 


A 




LD 


R0, (R2) 


?BASE LOC 


1232 


05B1 


8601 


A 




LD 


R1,1(R2) 


?TOP LOC 


1233 


05B2 


2F11 


A 




JSR 


@LOUTPUT(R3) 


•OUTPUT CONTINUE 


1234 


05B3 


8907 


A 




LD 


R2, PBASE 




1235 


05B4 


8601 


A 




LD 


Rl,l(R2) 




1236 


05B5 


A722 


A 




ST 


R1,CL(R3) 




1237 


05B6 












•UPDATE CL AFTER 


1238 


05B6 












IN CASE OF ESC 


1239 


05B6 


4A02 


A 




AISZ 


R2, 2 




1240 


05B7 


E902 


A 




SKG 


R2,PTOP 




1241 


05B8 


21F6 


A 




JMP 


$1 




1242 


05B9 


0200 


A 




RTS 





DONE 


1243 


05BA 


05BB 


T 


PTOP: 


. = .+1 




TOP RANGE TO PR 


1244 


05BB 


05BC 


T 


PBASE: 


. = .+1 




BASE RANGE TO P 


1245 


05BC 








.PAGE 






1246 


05BC 






; FORMAT THE LOCATION IN R0 TO Rl AND OUTPUT 


1247 


05BC 


05BD 


T 


I: 


. = .+1 






1248 


05BD 


05BE 


T 


BADDR: 


. = .+1 






1249 


05BE 


05BF 


T 


TADDR: 


. = .+1 






1250 


5BF 


05C0 


T 


RCNT: 


. = .+1 






1251 


05C0 


0020 


A 


IBLANK 


= 


' V256 




1252 


05C0 






; R0 BOTTOM ADDRESS 




1253 


05C0 






; Rl TOP ADDRESS 






1254 


05C0 


A1FC 


A 


OUTPUT: 


ST 


R0, BADDR 




1255 


05C1 


A5FC 


A 




ST 


Rl, TADDR 




1256 


05C2 


2F06 


A 


NEWL: 


JSR 


@LPCRLF(R3) 




1257 


05C3 


81F9 


A 




LD 


R0, BADDR 




1258 


05C4 


2935 


A 




JSR 


PUTADR ; 


R0 HAS ADR 


1259 


05C5 


4C08 


A 




LI 


R0 r LENG ; 


# OF COLUMS 


1260 


05C6 


A1F8 


A 




ST 


R0,RCNT ; 


REMAINING COLS 


1261 


05C7 


91F5 


A 


OLDL: 


LD 


R0,@ BADDR ; 


OUTPUT CONTENTS 


1262 


05C8 


2F19 


A 




JSR 


@LOUTW(R3) ; 


OF LOCATION 


1263 


05C9 


2F14 


A 




JSR 


@LPUTBLK(R3) 




1264 


05CA 






; DECREMENT REMAINING COL COUNT 




1265 


05CA 


7DF4 


A 




DSZ 


RCNT 




1266 


05CB 


3081 


A 




NOP 


I 


REMAIN 


1267 


05CC 


4D00 


A 




LI 


Rl f 




1268 


05CD 


A5EE 


A 




ST 


Rl, I 




1269 


05CE 






; I IS INDEX TO COUNT # OF DUP LICAQ 


'ES 


1270 


5CE 


89EE 


A 




LD 


R2, BADDR 




1271 


05CF 


79EC 


A 


$5: 


ISZ 


I 
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DEBUG 



1272 


05D0 


85EB 


A 




LD 


R1,I 




1273 


05D1 


3900 


A 




RADD 


R2,R1 


; R1=BADDR+I 


1274 


05D2 


E5EB 


A 




SKG 


R1,TADDR 




1275 


05D3 


2101 


A 




JMP 


$2 




1276 


05D4 


0200 


A 




RTS 







1277 


05D5 






; DONE 


- ALL REMAINING THE SAME 




1278 


05D5 






; TEST 


FOR DUPLICATE 




1279 


05D5 


8200 


A 


52: 


LD 


R0, (R2) 




1280 


05D6 


A51F 


A 




ST 


Rl,OTEMP 




1281 


05D7 


951E 


A 




LD 


Rl,@OTEMP 




1282 


05D8 


A51D 


A 




ST 


Rl,OTEMP 




1283 


05D9 


F11C 


A 




SKNE 


R0,OTEMP 




1284 


05DA 


21F4 


A 




JMP 


$5 




1285 


05DB 






; R0 HAS VALUE ALREADY PRINTED 




1286 


05DB 














1287 


05DB 






; ALL 


DUP FOUND 






1288 


05DB 






; DO THEY EXCEED 


# LEFT ON LINE 




1289 


05DB 














1290 


05DB 














1291 


05DB 


81E0 


A 




LD 


R0,I 




1292 


05DC 


E1E2 


A 




SKG 


R0,RCNT 




1293 


05DD 


2116 


A 




JMP 


DOONE 


;NEED TO PRINT AL 


1294 


05DE 














1295 


05DE 






■ NEED 


TO DECIDE 


HOW MANY LINES TO 




1296 


05DE 






• SKIP BECAUSE OF DUP 




1297 


05DE 














1298 


05DE 


81DE 


A I 


XJPFIL: 


LD 


R0, BADDR 




1299 


05DF 


C1DF 


A 




ADD 


R0,RCNT 


; (MAY BE ZERO) 


1300 


05E0 


4801 


A 




AISZ 


R0,1 




1301 


05E1 


A1DB 


A 




ST 


R0 , BADDR 




1302 


05E2 














1303 


05E2 






THE 


NEXT ADDRESS WILL BE AT LEAST ON NEXT LINE 


1304 


05E2 














1305 


05E2 


89D9 


A 




LD 


R2,I 




1306 


05E3 


D9DB 


A 




SUB 


R2,RCNT 




1307 


05E4 


A9D7 


A 




ST 


R2,I 




1308 


05E5 














1309 


05E5 






BADDF 


I MOVED UP 


SO I DECREMENTED 




1310 


05E5 














1311 


05E5 


89D6 


A ? 


58: 


LD 


R2,I 




1312 


05E6 


D90C 


A 




SUB 


R2,VLENG 




1313 


05E7 


A9D4 


A 




ST 


R2,I 




1314 


05E8 


4A00 


A 




AISZ 


R2,0 




1315 


05E9 


2101 


A 




JMP 


$10 




1316 


05EA 


21D7 


A 




JMP 


NEWL 




1317 


05EB 




< 


510: 






;I <= JMP TO NE 


1318 


05EB 


4C00 


A 




LI 


R0,0 




1319 


05EC 


E1CF 


A 




SKG 


R0,I 




1320 


05ED 


2101 


A 




JMP 


INCBAD 


?INCREM BASE ADDR 


1321 


05EE 


21D3 


A 




JMP 


NEWL 


;BASE IS UPDATED 


1322 


05EF 




i 








SO PRINT IT 


1323 


05EF 


81CD 


A ] 


iNCBAD: 


LD 


R0, BADDR 




1324 


05F0 


C102 


A 




ADD 


R0,VLENG 




1325 


05F1 


A1CB 


A 




ST 


R0, BADDR 




1326 


05F2 


21F2 


A 




JMP 


$8 




1327 


05F3 


0008 


A \ 


rLENG : 


.WORD 


LENG 




1328 


05F4 


0008 


A I 


iENG 


= 


8 


;LINE LENGTH 


1329 


05F4 














1330 


05F4 






JUST PRINT ONE 




1331 


05F4 














1332 


05F4 


79C8 


A I 


)OONE : 


ISZ 


BADDR 




1333 


05F5 


21D1 


A 




JMP 


OLDL 
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DEBUG 



1334 05F6 05F7 

1335 05F7 

1336 05F7 

1337 05F7 

1338 05F7 4C20 

1339 05F8 2F07 

1340 05F9 0200 



T OTEMP: 



PUTBLK: 



. = .+1 



LI 

JSR 

RTS 



R0, I BLANK 
@LPUTC(R3) 



1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 

1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 



05FA 
05FA 
05FA 
05FA 
05FB 
05FC 
05FD 
05FE 
05FF 
0600 
0601 
0602 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 

060A 
060A 
060A 
060A 
060A 
060A 
060A 
060A 
060B 
060C 
060D 
060E 
060C 
060F 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
061A 
061B 
061C 
061D 
061E 
061F 
0620 
0621 
0622 
0623 



A10D 
3181 
2F09 
2104 
2F15 
2F14 
2F14 
0200 

D106 
A104 
4C52 
2F07 
8101 
21F6 
0609 
03BA 



0008 

0001 
0009 
000A 
000D 
060B 
060C 
060D 
060E 

191E 
B13F 
4CFF 
A1FA 
1801 
2101 
0000 
4400 
A1F3 
0080 
4400 
B13A 
4C01 
58FE 
A1F0 
4400 
48FF 
A1EB 
B52F 
B92F 
BD2F 
4D0F 



.PAGE 
. LOCAL 
R0 

PUTADR: ST 

RCPY 

JSR 

JMP 

$2: JSR 
JSR 
JSR 
RTS 

; R VALUE 



$1: 



ADRVAL : 
REGA00: 



$3: 



A 

A 

A TSTIEN 
A CYOV 
A SELX 
T $RET: 
T $TEMP: 
T IENST: 
T SELST: 
SAVER: 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



SUB 

ST 

LI 

JSR 

LD 

JMP 

. = .+1 

.WORD 

.PAGE 
. LOCAL 
STKFUL= 
IEN=1 



= 9 



. = .+1 
. = .+1 
. = .+1 

. = .+1 
SAVREG : 

BOC 

ST 

LI 

ST 

BOC 

JMP 

HALT 

PULL 

ST 

PUSHF 

PULL 

ST 

LI 

ROR 

ST 

PULL 

AISZ 

ST 

ST 

ST 

ST 

LI 



10 
13 



HAS LOC 

R0, ADRVAL 

R0,R1 

@LRTEST(R3) 

$1 

@LPUT4H(R3) 

@LPUTBLK (R3) 

@LPUTBLK(R3) 



R0 f REGA00 
R0, ADRVAL 
R0,IR 
@LPUTC(R3) 
R0, ADRVAL 
$2 

REGA 



; YES 'R' 
;PUT BLANKS 



; REGISTER 
; VALUE 



TSTIEN,$2 

R0,@REGA0 

R0,-1 

R0, IENST 

STKFUL,.+2 

.+2 

R0 
R0,$RET 

R0 

R0,§REG20 

R0,1 

R0,2 

R0, SELST 

R0 

R0,-1 

R0, $TEMP 

R1,@REGA1 

R2,@REGA2 

R3,@REGA3 

Rl,STSZ-l 



;SET RESTORE TO LEAVE CPU DISABLED 



;HALT ON STACK FULL 
;SAVE SAVEREG RETURN 



; SAVE STATUS FLAGS 



;SAVE ADDR OF DEBUG CALL 
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DEBUG 



1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 



0624 
0625 
0626 
0627 
0628 
0629 
06 2A 
062B 
06 2C 
062D 
062E 
062F 
0630 
0631 



892E A 

4400 A 

A200 

4A01 

49FF 

21FB 

81E0 

8D05 

25DD 

0980 

B120 

4C00 

21E0 

021C 



$1 



1409 0632 

1410 0632 

1411 0632 A11B A 

1412 0633 4E10 A 

1413 0634 4400 A 

1414 0635 4AFF A 

1415 0636 21FD A 

1416 0637 4D10 A 

1417 0638 8919 A 

1418 0639 3600 A 

1419 063A 8200 A 

1420 063B 4000 A 

1421 063C 49FF A 

1422 063D 21FA A 

1423 063E 

1424 063E 9115 

1425 063F 4000 

1426 0640 0280 

1427 0641 0A00 

1428 0642 81CA A 

1429 0643 1B01 A 

1430 0644 0A80 

1431 0645 8108 

1432 0646 4000 

1433 0647 9107 

1434 0648 9507 A 

1435 0649 9907 A 

1436 064A 9D07 

1437 064B 79C0 

1438 064C 0100 

1439 064D 0200 

1440 064E 064F 

1441 064F 03BA 

1442 0650 03BB 

1443 0651 03BC 

1444 0652 03BD T 

1445 0653 03BE T 

1446 0654 03CE T 

1447 0655 0250 T 
POINTERS GENERATED 

0016 04AD T 



$RET: 
REGA0 
REGA1 
REGA2 
REGA3 
REGA4 
REG 20 



LD 

PULL 

ST 

AISZ 

AISZ 

JMP 

LD 

LD 
JMP 
PFLG 
ST 
LI 
JMP 

.WORD 

.PAGE 
. LOCAL 
ST 
LI 

PULL 
AISZ 
JMP 
LI 
LD 

RADD 
LD 

PUSH 
AISZ 
JMP 
RESTORE LINE 

LD 

PUSH 

PULLF 

SFLG 

LD 

BOC 

PFLG 
LD 

PUSH 
LD 
LD 
LD 
LD 
ISZ 
RTI 
RTS 
. = .+1 



$2: 



$4: 



RESTOR: 



SI: 



$2: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.END 



R2,REGA4 

R0 

R0, (R2) 

R2,l 

Rl,-1 

$1 

R0, $TEMP 

R3,$4 
@$RET 
I EN 

R0,@REGA0 
R0,0 
$3 

DBASE 



R0 r $RET 

R2,STSZ 

R0 

R2,-l 

$1 

R1,STSZ 

R2,REGA3 

R1,R2 

R0, (R2) 

R0 

Rl,-1 

$2 
REG 

R0,§REG20 
R0 



R0,SELST 

NEG,.+2 

2 

R0, $RET 

R0 

R0,@REGA0 

R1,@REGA1 

R2,@REGA2 

R3,@REGA3 

IENST 





REGA 
REGA+1 
REGA+2 
REGA+3 
REGA+4 
REGA+2 
DEBUG 



;GET DEBUG RETURN ADDRESS IN R0 



;SET RESTORE TO ENABLE CPU ON EXIT 



;SAVE ADDRESS TO EXIT TO 
; CLEAR STACK 

:LIFO 



; RESTORE FLAGS 



; SET SELX FLAG 



; CLEAR SELX FLAG 

;INIT STACK FOR RTS/RTI 



; RESTORE CPU ENABLE 



ERRORS IN ASSEMBLY 
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DEBUG 



$0. $02 $0; $1" $1% $1& $1' $1) $1* $1, 
036F T 0432 T 050E T 026F T 02A9 T 02C1 T 02D6 T 02F6 T 030B T 0341 T 

$1. $1/ $10 $10= $10> $10A $11= $14 $143 $15 
0378 T 038F T 03AE T 055F T 0573 T 05EB T 0563 T 04A2 T 0452 T 04BD T 

$17 $18 $19 $1; $1< $1> $1? $1@ $1A $1B 
04E2 T 04EA T 04F6 T 0514 T 052E T 0574 T 058B T 0594 T 05AF T 0602 T 

$1C $1D $2" $2$ $2& $2) $2* $2. $2/ $22 
0625 T 0634 T 0274 T 0297 T 02B6 T 02FA T 030F T 0377 T 038E T 0438 T 

$24 $26 $29 $2; $2= $2> $2? $2A $2B $2C 
04A4 T 04D5 T 04FF T 051D T 054B T 0578 T 0588 T 05D5 T 05FE T 062D T 

$2D $32 $36 $3; $3C $4; $4= $4> $4C $52 
0638 T 043A T 04D3 T 0510 T 0611 T 0511 T 0551 T 0570 T 0631 T 043D T 

$5= $5A $6- $62 $6= $7- $72 $8- $8A $9- 
0557 T 05CF T 0354 T 043F T 055A T 0356 1 0441 T 0364 T 05E5 T 0361 T 

$CNT5 $INIT" $M3 $R3 $RET ( $RETC $RETD $TEMP5 $TEMPC ACHAR 
04C9 T 025B T 0464 T 0487 T 02E4 T 060A T 064E T 04BA T 060B T 053F T 

ADDR ADHRUN ADRVAL ADSRUN AERADR AEREX AHRUNB ALTER APTOP ASRUNB 
0503 T 0011 B 0608 T 0010 B 0290 T 0291 T 0013 B 034B T 0004 A 0012 B 

ASYN BADDR BLANK BOFFSE BS BSCODE CCNT CEND CFND CHAR 
0540 T 05BD T 041D T 0010 A 005F A 03A2 T 058E T 028F T 0273 T 03AD T 

CL CLCHAR CLEAR CODE CODES CPAD CR CRCODE CTAB CTADR 
0022 A 033D T 0296 T 0032 A 0033 A 025A T 000D A 03A6 T 0275 T 029C T 

CURR CYOV DBASE DEBUG DEBUG1 DEBUG2 DELAY DELAYl DELTA DIA 
0535 T 000A A 021C T 0250 T 0210 T 0252 T FFF5 A FFF6 A 0026 A 0218 T 

DOONE DRBASA DRBASE DRMAX DRPTR DRSZ DRTAB DRTOP DUPFIL EA 
05F4 T 021B T 0349 T 034A T 0348 T 000A A 0403 T 0382 T 05DE T 0009 A 

EB EC ECHOA ELOOP ERR ESC ESCADR ESCEX EXPEX EXPEXT 

0016 A 0026 A 0423 T 0353 T 0294 T 0293 T 029B T 001E A 001F A 0556 T 

EXPR FIND FMT FVALU GETC GETHEX GETNUM GETSYN GO GOLOC 
0538 T 0383 T 0025 A 0369 T 0422 T 0590 T 057F T 0566 T 033E T 0345 T 

GPCS GTEMP H7F HALT HBASE HBASEA HBASEB HCODE HCODEB HCONTU 
0018 A 04A7 T 041F T 02B1 T 0029 A 0219 T 02B0 T 0030 A 0031 A 031B T 

HENT HEXEX HFND HMARK HMAX HOK HPTR HRBASA HRBASE HRET 
0027 A 059C T 0302 T 0023 A 002A A 02C4 T 0028 A 021A T 002C A 031A T 

HRMAX HRPTR HRSZ HRTAB HRUN HRUNB HSZ HTAB I IBLANK 
002D A 002B A 000A A 03EF T 02F1 T 0325 T 0008 A 03CF T 05BC T 0020 A 

IEN IENST IMP16 INCBAD INPUT IR JMPI LADDR LALPHA LCHAR 
0001 A 060C T FFFF A 05EF T 0417 T 0052 A 0217 T 000F A 0013 A 0024 A 

LECHOI LECOA LECOI LENG LEXPR LF LFCODE LGETC LHOK LINPUT 
0420 T 0001 A 0000 A 0008 A 000B A 000A A 03A5 T 0008 A 0016 A 000C A 

LOUTCL LOUTPU LOUTW LPCRLF LPRANG LPUT2C LPUT4H LPUTAD LPUTBL LPUTC 
001C A 0011 A 0019 A 0006 A 0010 A 0005 A 0015 A 001A A 0014 A 0007 A 

LRANGE LRCHAR LRD0 LRESTO LRTEST LTCRLF LTECHO LTTERM LTTYT LTYPA 

0017 A 000D A 001B A 0012 A 0009 A 000A A 0444 T 0018 A 042F T 0003 A 
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DEBUG 



LTYPEI LTYPI LVALUE MINCOD MINUS MORER MOVE NEG NEWL NOTE 

0494 T 0002 A 000E A 0572 T 0554 T 0507 T 036A T 000B A 05C2 T 039E T 

NULL NUM OFFSET OLDL OP OPADR OPVEC OTEMP OUT OUT4H 

041E T 058F T 0001 A 05C7 T 0537 T 0549 T 0545 T 05F6 T 025F T 04BB T 

OUTCL OUTHEX OUTPUT OUTW OVER OVRADR OVREX P09 PAF PBASE 

0336 T 04BB T 05C0 T 04AF T 029E T 029D T 0020 A 05A1 T 05A0 T 05BB T 

PCHAR PCL PCR PCR1 PCRLF PEROP PHRET PLF PLFCR PLSCOD 

002D A 0584 T 04A8 T 04A9 T 04AC T 054E T 0336 T 04AD T 04AC T 0576 T 

PQUOTE PRANGE PTECHO PTOP PTTYT PUT2C PUT4H PUTADR PUTBLK PUTC 

04F4 T 05AF T 0421 T 05BA T 0495 T 04B2 T 04BB T 05FA T 05F7 T 0496 T 

QMARK R0 Rl R2 R3 RANGE RCHAR RCNT RD0 REG20 

003F A 0000 A 0001 A 0002 A 0003 A 0505 T 052A T 05BF T 04CF T 0654 T 

REGA REGA0 REGA00 REGA01 REGA1 REGA2 REGA3 REGA4 REGADR REGAMl 

03BA T 064F T 0609 T 058D T 0650 T 0651 T 0652 T 0653 T 0534 T 04E5 T 

REGEND REPLAC RESET REST RESTOR RESULT RMAX RPTR RR RR1 

04E6 T 02BD T 02A3 T 0476 T 0632 T 0536 T 0529 T 0021 A 0520 T 0525 T 

RSTRIA RTEST RUNB RWORD SAVE SAVER SAVREG SAVRIA SCODE SCODEB 

0015 B 04DF T 032B T 0023 A 0465 T 060E T 060E T 0014 B 002E A 002F A 

SELST SELX SFND SNAP SRREG SRUN SRUNB STKFUL STKSZ STOROP 

060D T 000D A 039B T 02D1 T 0487 T 0306 T 0328 T 0008 A 0010 A 054A T 

STSTR STSZ TA TADDR TAF TB TC TCRLF TOFFSE TSTIEN 

04FA T 0010 A 0029 A 05BE T 0598 T 0012 A 0070 A 04D9 T 0210 A 0009 A 

TTERM TTYAD TYPE TYPEA UCALL V000F V19 V2F V39 V40 

04E7 T 0038 A 03AB T 0499 T 02E5 T 057E T 057C T 05A9 T 05AA T 05AE T 

V41 V46 V9 VALUE VAM10 VC09 VCOLON VCOM VCOMM VCOMMA 

05AB T 05AC T 04CC T 04EF T 04CB T 04CA T 0532 T 001D A 0367 T 0533 T 

VCR VCR0 VDOT VECTOR VESC VF VFF VFF00 VLENG VLF 

0492 T 0368 T 057D T 0543 T 0491 T 04CD T 04CE T 0502 T 05F3 T 0493 T 

VM1 VMINUS VOV VPLUS VQU VR 
05AD T 057B T 02A2 T 057A T 0501 T 0531 T 

E196 4DC9 
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■-3 
»-3 






TTY16P 



RFVISION-G 05/16/74 
TTY16P 00312D 10/15/74 



1 0000 



0000 

0000 
00 30 
0030 

0000 

0000 
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8 3000 

9 3300 

10 0000 

11 0003 

12 300 

13 0030 

14 0330 

15 0303 

16 3330 

17 0033 

18 3000 

19 3003 
23 3300 

21 3303 

22 0330 

23 3000 

24 0000 

25 0000 

26 3030 
0033 

0000 

29 3003 

30 0300 

31 0000 

32 0300 

33 0003 

34 0330 

35 3030 

36 0303 

37 0003 

38 0000 

39 3003 

40 3300 

41 0300 

42 033 3 

43 0303 

44 03 33 

45 3030 

46 3330 

47 0000 

48 0030 

49 3300 
53 3330 



.TITLE TTY16P, '00312D 10/15/74' 
.ASECT 

TTY16P CONTAINS THE IMP-16P TELETYPE AND 
HIGH-SPEED PAPER TAPE READER I/O DRIVERS. 

THERE IS ONE MAIN PROGRAM: 

ABSTTY - ABSOLUTE PAPER TAPE LM LOADER 

SUBROUTINES ARE: 

PUTC - TRANSMITS A CHARACTER FROM BITS 0-7 OF 
ACCUMULATOR (AC0) TO THE TELETYPE 

GETC - RECEIVES A CHARACTER FROM EITHER THE HIGH SPEED 
PAPER TAPE READER (IF ENABLED) OR 
TELETYPE, FOR TRANSFER TO BITS 0-7 OF AC0 

GECO - RECEIVES A CHARACTER FROM THE TELETYPE 
AND ECHOES IT ON THE TELETYPE PRINTER 

MESG - PRINTS A SERIES OF ASCII CHARACTERS ON THE TELETYPE 

PUT2C - PRINTS TWO CHARACTERS IN AC0 ON THE TELETYPE 

RESET - RESETS THE TELETYPE 

INTEST - TESTS FOR TELETYPE INPUT 

LDM - LOAD MULTIPLE - LOAD REGISTERS FROM MEMORY 

STM - STORE MULTIPLE - SAVE REGISTERS IN MEMORY 

DPLX IS NOT INCLUDED IN THIS REVISION 

SUBROUTINE LIMITATIONS AND CONVENTIONS: 

ALL REGISTERS ARE SAVED IN ALL SUBROUTINES, EXCEPT THAT 
REGISTER AC0 HAS THE CHARACTER RECEIVED (GETC, GECO) . 

THE STACK IS PUSHED UP TO FIVE LEVELS DEEP 
DURING EXECUTION OF THESE ROUTINES. 

RALU FLAGS ARE NOT SAVED: SELECT FLAG IS CLEARED. 

INTEST - RETURN FROM SUBROUTINE IS AS FOLLOWS: 
RTS - ATTEMPT TO INPUT FROM TELETYPE 
RTS 1 - NO INPUT FROM TELETYPE KEYBOARD 



ENTRY POINTS: 

ABSTTY '- 7E00 

GETC - 7E3B 

PUTC - 7E59 

GECO - 7E73 

PUT2C - 7ED3 



MESG - 7EC3 
RESET - 7EDA 
INTEST - 7EDF 
LDM - 7EEA 
STM - 7EF2 



51 0003 

52 3300 

53 0333 

54 0300 

55 0033 0330 A AC3 

56 3030 0001 A AC1 

57 0033 0002 A AC2 

58 0000 0003 A AC3 

59 0000 ; 

60 0000 0001 A ZRO 

61 0003 0002 A POS 



.PAGE 

DEFINITIONS 


1 
2 
3 

1 
2 



AC0 = 
AC0 >= 



TTY16P 



62 0000 

S3 0000 

64 0000 

65 0003 

66 0000 

67 0000 

68 0000 

69 0000 

70 0000 

71 0000 

72 0000 

73 0000 

74 0000 

75 0000 

76 0000 

77 7E00 

78 7E00 

79 7E00 

80 7E00 

81 7E00 

82 7E00 

83 7E00 

84 7E00 

85 7E00 

86 7E03 

87 7E00 

88 7E00 

89 7E00 

90 7E00 



0005 ft NJZRO 



0038 
0002 
0003 
0004 
0005 
0006 

0010 
0001 
0002 
0003 



7E00 A 



TTYAD 

READ 

SEND 

RDREN 

RESET 

INT 



A PRADR 

A PREAD 

A PSTART 

A PRESET 



=07E00 



7*8 

2 

3 

4 

5 

6 

2*8 
1 
2 
3 



TELETYPE ADDRESS 
READ TTY COMMAND CODE 
SEND TO TTY COMMAND CODE 
READER ENABLE 
RESET TTY 
INTERRUPT STATUS 

PAPER TAPE READER ADDRESS 
PAPER TAPE READER EXPRESSIONS 



; ENTRY POINT 



******************************************************* 

* 

* THIS PROGRAM FITS INTO 2 8X256-BIT PROMS ON THE 

* CARD READER/TELETYPE INTERFACE CARD: 



IMP 
NUMBER 

IMP-16F/003A 
IMP-16F/003B 



PROM 
NUMBER 

4600312D 
4610312D 



* 
* 
* 
* 
* 
* 
********************************************************************** 



ROM 
NUMBER 

4100312D 
4110312D 



BOARD 
CO-ORDINATE 

5G 
7G 



91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 



7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E01 
7E02 
7E03 
7E04 
7E05 
7E06 
7E07 
7E08 
7E09 



293A 
48F6 
21FD 
292E 
121F 
5C01 
1201 
2123 
5CFF 
3381 



.PAGE 'ABSTTY FOR THE IMP-16P' 
LOADS LM FROM 3 CHANNEL PAPER TAPE. 
TO LDAD TAPES: 

1) TURN ON READER 

2) PRESS 'INITIALIZE' SWITCH ON THE IMP-16P 

3) PUT PAPER TAPE IN THE TAPE READER 

(HIGH SPEED READER IF AVAILABLE, OR TTY READER) 

4) PRESS 'LOAD PROGRAM' SWITCH ON THE IMP-16P 

IF THE LOADER HALTS WITH THE PC SET TO 7E23 , 

A CHECKSUM ERROR HAS OCCURRED. CHECK THE TAPE AND 

PRESS 'RUN' WHEN IT IS READY TO READ AGAIN. 

(TO IGNORE THE ERROR, JUST PRESS 'RUN'). 

IF THE LOADER HALTS WITH THE PC SET TO 7E31 , 

THE TAPE IS FINISHED (THE END RECORD HAS BEEN READ) 



ABSTTY: 



TTY1 



A) 
B) 
C) 



JSR 

AISZ 

JMP 

JSR 

BOC 

SHL 

BOC 

JMP 

SHR 

RCPY 



TO LOAD ANOTHER TAPE, GO BACK TO STEP 3. 
TO START EXECUTION, PRESS 'RUN'. 
TO START EXECUTION AT A NEW ENTRY POINT, 
SET EITHER AC2 OR THE PC TO THE NEW 
ENTRY POINT, THEN PRESS 'RUN'. 



GETC 

AC0,-2 

ABSTTY 

RDWD 

POS,TORS 

AC0,1 

POS,.+2 

ENDREC 

AC0,1 

AC0,AC3 



y LOOK FOR STX (START OF TEXT) 

; PROCESS RECORD CONTROL INFORMATION 

; BRANCH IF TITLE OR SYMBOL RECORD 

; BRANCH TO DATA RECORD, 
; ELSE GO TO END RECORD 

; RECORD BODY LENGTH IN AC 3 



TTY16P 



127 


7E0A 


2927 


A 




JSR 


RDWD 


123 


7E0B 


3181 


A 


RCPY 


AC0,AC1 


129 


7E0C 


4000 


A 


PUSH 


AC0 


130 


7E0D 


5101 


A 


CAI 


AC1,1 


131 


7E0E 


290D 


A 


JSR 


RDWDCK 


132 


7E0F 


290C 


A 


JSR 


RDWDCK 


133 


7E10 


3281 


A 


PCPY 


AC0,AC2 


134 


7E11 


290A 


A 


JSR 


RDWDCK 


135 


7E12 


2909 


A 


JSR 


RDWDCK 


136 


7E13 


3B00 


A 


RADD 


AC2,AC3 


137 


7E14 


5305 


A 


CAI 


AC3,l+4 


133 


7E15 


2906 


A TTY2: 


JSR 


RDWDCK 


139 


7E16 


A200 


A 


ST 


AC0,(AC2) 


140 


7E17 


4A01 


A 


AISZ 


AC2,1 


141 


7E18 


3881 


A 


RCPY 


AC2,AC0 


142 


7E19 


3C00 


A 


RADD 


AC3,AC0 


143 


7E1A 


1204 


A 


BOC 


POS r TCKSUM 


144 


7E1B 


21F9 


A 


JMP 


TTY2 


145 


7E1C 




i 






146 


7E1C 


2915 


A RDWDCK: 


JSR 


RDWD 


147 


7E1D 


3100 


A 


RADD 


AC0,AC1 


148 


7E1E 


0200 


A 


RTS 





149 


7E1F 




i 






150 


7E1F 


4400 


A TCKSUM: 


PULL 


AC0 


151 


7E20 


11DF 


A 


BOC 


ZRO, ABSTTY 


152 


7E21 


4900 


A 


AISZ 


AC1,0 


153 


7E22 


0000 


A 


HALT 




154 


7E23 


21DC 


A 


JMP 


ABSTTY 


155 


7E24 




i 






156 


7E24 


6175 


A TORS: 


AND 


AC0 f H3FFF 


157 


7E25 


3131 


A 


PCPY 


AC0 ,AC1 


158 


7E26 


2903 


A 


JSR 


RDWD 


159 


7E27 


49FF 


A 


AISZ 


AC1,-1 


160 


7E28 


21FD 


A 


JMP 


.-2 


161 


7E29 


290 3 


A 


JSR 


RDWD 


162 


7E2A 


21D5 


A 


JMP 


ABSTTY 


163 


7E2B 




• 






164 


7E2B 




> 






165 




2906 


A ENDREC: 


JSR 


RDWD 


166 


7E2C 


2905 


A 


JSR 


RDWD 


167 


7E2D 


2904 


A 


JSR 


RDWD 


168 


7E2E 


3281 


A 


RCPY 


AC 0, AC 2 


169 


7E2F 


4F00 


A 


LI 


AC3,0 


170 


7E30 


0000 


A 


HALT 




171 


7E31 


2200 


A 


JMP 


(AC2) 


17 2 


7E32 




f 






173 


7E32 




9 






174 


7E32 


4100 


A RDWD: 


PUSH 


AC1 


175 


7E33 


2907 


A 


JSP 


GETC 


176 


7E34 


5C08 


A 


SHL 


AC0,8 


177 


7E35 


4000 


A 


PUSH 


AC0 


178 


7E36 


2904 


A 


JSR 


GSTC 


179 


7E37 


4500 


A 


PULL 


AC1 


180 


7E38 


3482 


A 


RXOR 


AC1,AC0 


181 


7E39 


4500 


A 


PULL 


AC1 


182 


7E3A 


0200 


A 


RTS 





183 


7E3B 






.PAGE 


'GETC AND I 


184 


7E33 












185 


7E3B 








READ 


TELETYPE CHAR2 


186 


7E3B 












187 


7E33 








NOTE: 


GETC READS FI 



T SAVE CHECKSUM 

AC1 HAS -(CKSUM MODE WORD) 

SKIP ADDRESS MODE 

GET LOAD ADDRESS 

LOAD ADDRESS IN AC2 

SKIP RELOCATION MODE WORDS 



; AC3 HAS -(LAST ADDRESS - 1) 
; GET DATA WORD 

; INCREMENT DESTINATION ADDRESS 



; IF DONE TEST CHECKSUM 



; READ WORD AND ADD IT 
; TO THE CHECKSUM 



; GET CHECKSUM WORD 



; CHECKSUM ERROR 



; IGNORE TITLE AND SYMBOL RECORDS 



SKIP CHECKSUM 

SKIP ENTRY ADDRESS MODE 

GET ENTRY ADDRESS 

COPY ENTRY ADDRESS INTO AC2 

LOAD DEVICE IS TTY 

(PRESS RUN TO EXECUTE) 

JUMP TO LOADED PROGPAM 



READ A 16-BIT WORD INTO AC0 
OTHER REGISTERS ARE UNDISTURBED 



TTY16P 



183 7E3B 

189 7E3B 

190 7E3B 

191 7E3B 

192 7E3B 

193 7E3B 

194 7E3C 

195 7E30 

196 7E3E 

197 7E3F 

198 7E40 

199 7E41 

200 7E42 

201 7E43 

202 7E44 

203 7E44 

204 7E59 

205 7E59 

206 7E59 

207 7E59 

208 7E59 

209 7E5A 

210 7E5B 

211 7E5C 

212 7E5D 

213 7E5E 

214 7E5F 

215 7E60 

216 7E61 

217 7E62 

218 7E63 

219 7E64 

220 7E65 

221 7E66 

222 7E67 

223 7E68 

224 7E69 

225 7E6A 

226 7E63 

227 7E6C 

228 7E6D 

229 7E6E 

230 7E6E 



2160 
297 F 
0402 
615A 
5DFF 
3182 
4AFF 
21F9 
2148 



7E59 A 



293A 

4000 

3181 

4C0C 

295F 

4E09 

4F38 

0603 

295A 

4AFF 

2101 

2104 

59FF 

3481 

0603 

21F8 A 

4CFF A 

0603 

2950 

4400 

2121 



GETC: 
LP1: 



PUTC: 



LP2: 



DONE; 



IF IT IS CONNECTED AND TURNED ON; OTHERWISE INPUT IS FROM 
THE TELETYPE READER. IF A CARD READER IS CONNECTED 
INSTEAD OF THE HIGH SPEED TAPE READER, IT MUST BE TURNED OFF 
WHEN NOT IN USE. 



JMP 

JSR 

RIN 

AND 

SHR 

RXOR 

AISZ 

JMP 

JMP 

.=07E59 



RDRIN 

DELAY 

READ 

AC 0, MASK 

AC1,1 

AC0,AC1 

AC2,-1 

LP1 

RETURN-4 



TRY HIGH-SPEED READER FIRST 
DELAY ONE BIT TIME 

MASK UNWANTED BITS 
SHIFT DATA 
ADD NEW BIT TO DATA 
TEST TO SEE IF DONE 



SEND CHARACTER IN AC0 TO TELETYPE 



7E73 A 



JSR 


SAV 


PUSH 


AC0 


RCPY 


AC0,AC1 


LI 


AC0,12 


JSR 


DELAY+1 


LI 


AC2,9 


LI 


AC3,TTYAD 


ROUT 


SEND 


JSR 


DELAY 


AISZ 


AC2,-1 


JMP 


. + 2 


JMP 


DONE 


ROR 


ACl f l 


RCPY 


AC1,AC0 


ROUT 


SEND 


JMP 


LP2 


LI 


AC0,-1 


ROUT 


SEND 


JSR 


DELAY 


PULL 


AC0 


JMP 


RETURN-1 


.=07E73 





; SAVE REGISTERS 

; ALSO SAVE CHARACTER 



; SET COUNT TO 9 

SEND START BIT 
DELAY 1 BIT TIME 
DECREMENT BIT COUNT 



; SEND NEXT BIT 



; SEND STOP BIT 



; RESTORE AC0 

; RESET, RESTORE REGISTERS, RETURN 



231 7E73 

232 7E73 

233 7E73 

234 7E73 

235 7E73 

236 7E74 

237 7E75 

238 7E76 

239 7E77 

240 7E78 

241 7E79 

242 7E7A 

243 7E7B 

244 7E7C 

245 7E7D 

246 7E7E 

247 7E7F 

248 7E80 

249 7E81 

250 7E82 

251 7E83 

252 7E84 



2920 A 

4F38 A 

0605 

4E08 

0604 

0402 

1201 

21FD 

4C09 

2940 

0402 

1201 

21F5 

0603 

293A 

0402 

6115 

5DFF 



.PAGE 'TELETYPE GET CHARACTER ROUTINE WITH ECHO' 
READ TELETYPE CHARACTER INTO AC0 (WITH ECHO) 



GECO: 



LP3: 



JSR 

LI 

ROUT 

LI 

ROUT 

RIN 

BOC 

JMP 

LI 

JSR 

RIN 

BOC 

JMP 

ROUT 

JSR 

RIN 

AND 

SHR 



SAV 

AC3,TTYAD 

RESET 

AC2,8 

RDREN 

READ 

POS,.+2 

.-2 

AC0,9 

DELAY+1 

READ 

POS,.+2 

GECO+2 

SEND 

DELAY 

READ 

AC0,MASK 

AC1,1 



SAVE REGISTERS 

RESET TELETYPE 
SET BIT COUNT TO 8 
ENABLE READER 

; TEST FOR START BIT 



DELAY 1/2 BIT TIME 

TEST IF START BIT IS STILL THERE 

BRANCH IF GOOD START BIT 

ECHO BIT 

DELAY ONE BIT TIME 

MASK UNWANTED BITS 
SHIFT DATA 



TTY16P 



253 


7E85 


3182 


A 




RXOR 


AC0,AC1 


254 


7E86 


4AFF 


A 




AISZ 


AC2,-1 


255 


7E87 


21F8 


A 




JMP 


LP3 


256 


7E88 


0603 


A 




ROUT 


SEND 


257 


7E89 


2932 


A 




JSR 


DELAY 


258 


7E8A 


4CFF 


A 




LI 


AC0,-1 


259 


7E83 


0603 


A 




ROUT 


SEND 


26fl 


7E8C 


292F 


A 




JSR 


DELAY 


261 


7E8D 


5DF8 


A 




SHR 


AC1,8 


262 


7E8E 


3481 


A 




RCPY 


AC1,AC0 


263 


7E8F 


0605 


A 




ROUT 


RESET 


264 


7E90 


4600 


A 


RETURN: 


PULL 


AC 2 


265 


7E91 


4500 


A 




PULL 


AC1 


266 


7E92 


4700 


A 




PULL 


AC 3 


267 


7E93 


0200 


A 




RTS 





268 








» 






269 


7E94 






t 






270 


7E94 


57 00 


A 


SAV: 


XCHRS 


AC 3 


271 


7E95 


4100 


A 




PUSH 


AC1 


272 


7E96 


4200 


A 




PUSH 


AC 2 


273 


7E97 


0A80 


A 




PFLG 


2 


274 


7E98 


2300 


A 




JMP 


(AC3) 


275 


7E99 






i 






276 


7E99 


8000 


A 


MASK : 


.WORD 


08000 


277 


7E9A 


3FFF 


A 


H3FFF: 


.WORD 


03FFF 


278 


7E93 


7E9C 


A 




. = . + 1 




279 


7E9C 






; 






280 


7E9C 








.PAGE 


'PAPER TA 


281 


7E9C 






r 






282 


7E9C 


29F7 


A 


RDRIN: 


JSR 


SAV 


283 


7E9D 


4F10 


A 




LI 


AC3,PRADR 


284 


7E9E 


0401 


A 




RIN 


PREAD 


285 


7E9F 


6119 


A 




AND 


AC0,BIT12 


286 


7EA0 


110C 


A 




BOC 


ZRO f $2 


287 


7EA1 


4F33 


A 


$1: 


LI 


AC3 f TTYAD 


288 


7EA2 


4E08 


A 


GETC2: 


LI 


AC2,8 


239 


7EA3 


0605 


A 




ROUT 


RESET 


290 


7EA4 


0604 


A 




ROUT 


RDREN 


291 


7EA5 


0402 


A 




RIN 


READ 


292 


7EA6 


1201 


A 




BOC 


POS f .+2 


293 


7EA7 


21F5 


A 




JMP 


RDRIN+1 


294 


7EA8 


4C09 


A 




LI 


AC0,9 


295 


7EA9 


2913 


A 




JSR 


DELAY+1 


296 


7EAA 


0402 


A 




RIN 


READ 


297 


7EAB 


1290 


A 




BOC 


POS,LPl 


298 


7EAC 


21F6 


A 




JMP 


GETC2+1 


299 


7EAD 






i 






300 


7EAD 


0401 


A 


$2: 


RIN 


PREAD 


301 


7EAE 


6103 


A 




AND 


AC0,BIT13 


302 


7EAF 


15F1 


A 




BOC 


NZRO r $l 


303 


7EB0 


0602 


A 




ROUT 


PSTART 


304 


7EB1 


0603 


A 




ROUT 


PRESET 


305 


7EB2 


0401 


A 




RIN 


PREAD 


306 


7EB3 


6106 


A 




AND 


AC0 r BITl3 


307 


7EB4 


15FD 


A 




BOC 


NZRO, .-2 


308 


7EB5 


0401 


A 




RIN 


PREAD 


309 


7EB6 


5CFC 


A 




SHR 


AC0 f 4 


310 


7EB7 


6103 


A 




AND 


AC 0, RTBYT 


311 


7EB8 


21D7 


A 




JMP 


RETURN 


312 


7EB9 






i 






313 


7EB9 


1000 


A 


3IT12: 


.WORD 


01000 


314 


7EBA 


2000 


A 


BIT13: 


.WORD 


02000 


315 


7EBB 


00FF 


A 


RTBYT: 


.WORD 


0FF 


316 


7EBC 






i 






317 


7EBC 


4C12 


A 


DELAY: 


LI 


AC0,18 



ADD NEW BIT TO DATA 
TEST TO SEE IF DONE 

ECHO LAST BIT 

DELAY INTO FIRST STOP BIT 

SEND STOP BIT 

SHIFT DATA INTO RIGHT 8 BITS 
COPY CHARACTER INTO AC0 

RESTORE REGISTERS 



; SAVE REGISTERS IN STACK 



; CLEAR SELECT FLAG 



'PAPER TAPE READER AND TELETYPE ROUTINE' 



SAVE REGISTERS 

CHECK WHETHER HIGH SPEED TAPE READER 
IS ON-LINE 



NO HIGH-SPEED READER - USE TTY READER 
SET BIT COUNT TO 8 
RESET TELETYPE 
ENABLE READER 

TEST FOR START BIT 



DELAY FOR 1/2 BIT TIME 

TEST IF START BIT IS STILL THERE 

BRANCH IF GOOD START BIT 

NOISE - TRY AGAIN 

; READ CHARACTER FROM HIGH SPEED TAPE R 

; NOT THERE - USE TTY 



CHECK STATUS 

NO GOOD - KEEP TRYING 

REREAD CHARACTER 

; RETURN ONLY EIGHT BITS 



; DELAY SUBROUTINE (AC0) 



TTY16P 



318 7EBD 5870 

319 7EBE 48FF 

320 7EBF 21FD 

321 7EC0 5CD8 

322 7EC1 0200 

323 7EC2 

324 7EC2 7EC3 



A 


ROL 


AC0,112 


A 


AISZ 


AC0,-1 


A 


J.MP 


.-2 


A 


SHR 


AC0,40 


A 


RTS 





A 


.=07EC3 





; GOOD ONLY AT STANDARD SYSTEM SPEED 



325 7EC3 

326 7EC3 

327 7EC3 

328 7EC3 

329 7EC3 

330 7EC3 

331 7EC3 

332 7EC3 

333 7EC3 

334 7EC3 

335 7EC3 

336 7EC3 

337 7EC3 

338 7EC3 

339 7EC3 

340 7EC3 

341 7EC3 

342 7EC3 

343 7EC3 

344 7EC4 

345 7EC5 

346 7EC6 

347 7EC7 

348 7EC8 

349 7EC9 

350 7ECA 

351 7ECB 

352 7ECC 

353 7ECD 

354 7ECE 

355 7ECF 

356 7ED0 

357 7ED1 

358 7ED2 

359 7ED3 

360 7ED3 

361 7ED3 

362 7ED3 

363 7ED3 
354 7ED4 

365 7ED5 

366 7ED6 

367 7ED7 

368 7ED8 

369 7ED9 

370 7ED9 



5709 
4300 
4000 
8F00 
8111 
290A 
8300 
1104 
2913 
2102 
4B01 
21F9 
4400 
4700 
5700 
0201 



.PAGE 'MESSAGE PRINTING ROUTINE' 
MESSAGE PRINTING SUBROUTINE 



MSG: 



MESG: 



LI: 



MSGEND: 



0A80 A PUT2C: 

53F8 A 

2983 A 

53F8 A 

2981 A 

0200 A 

0D0A A CRLF: 



JSR 
.WORD 


MESG 
MSG 


.ASCII 
.WORD 






JUMP TO SUBROUTINE 
MESSAGE ADDRESS 



MESSAGE TERMINATION 



NOTE: CARRIAGE RETURN AND LINE FEED PRECEDE THE MESSAGE. 
TO ABORT PRINTOUT, HIT THE BREAK KEY. 



XCHRS 

PUSH 

PUSH 

LD 

LD 

JSR 

LD 

BOC 

JSR 

JMP 

AISZ 

JMP 

PULL 

PULL 

XCHRS 

RTS 

PUT2C 



PFLG 

ROR 

JSR 

ROR 

JSR 

RTS 



AC 3 

AC 3 

AC0 

AC3, (AC3) 

AC0 f CRLF 

PUT2C 

AC0,(AC3) 

ZRO, MSGEND 

INTEST 

MSGEND 

AC3,1 

LI 

AC0 

AC 3 

AC 3 

1 



GET RETURN ADDRESS 

REGISTERS ARE SAVED 
GET MESSAGE ADDRESS 
CR/LF FIRST 



CHECK IF DONE YET 
TEST FOR INTERRUPT 



RESTORE REGISTERS 



RETURN (SKIP OVER PARAMETER) 



- SEND 2 CHARACTERS TO TELETYPE 
(LEFT AND RIGHT BYTES OF AC0) 



2 

AC0,R 

PUTC 

AC0,8 

PUTC 





.WORD 0D0A 



SEND LEFT CHARACTER 
SEND RIGHT CHARACTER 

CARRIAGE RETURN AND LINE FEED 



371 7EDA 

372 7EDA 

373 7EDA 

374 7EDA 

375 7EDA 4300 

376 7EDB 4F38 

377 7EDC 0605 

378 7EDD 4700 



TRESET: 



RTN: 



.PAGE 'TELETYPE RESET AND INPUT TEST 

TELETYPE RESET 

PUSH AC3 

LI AC3,TTYAD 

ROUT RESET 

PULL AC3 



TTY16P 



379 
380 
3B1 
382 
383 
384 
335 
336 
387 
333 
339 
390 
391 
392 
393 
394 
395 
395 
397 



7EDE 0200 
7EDF 
7EDF 
7EDF 
7EDF 
7EDF 
7EDF 
7EDF 

7EDF 4300 
7EE0 4000 
7EE1 4F00 
7EE2 0406 
7EE3 5C03 
7EE4 1202 
7EE5 4400 
7EE6 21F6 
7EE7 4400 
7EE8 4700 
7EE9 0201 



RTS 



TELETYPE INPUT TEST 

RTS - INTERRUPT 
RTS 1 - NORMAL RETURN 



A INTEST: PUSH AC3 

A PUSH AC0 

A LI AC3,0 

A RIN INT 

A SHL AC0,8 

A 30C POS,NINT 

A PULL AC0 

A JMP RTN 

A NINT: PULL AC0 

A PULL AC3 

A RTS 1 



ZERO ADDRESS TO READ STATUS 
READ INTERRUPT STATUS 
TTY STATUS IS BIT 7 
TEST FOR INTERRUPT 

RETURN 

NO INTERRUPT 



393 
399 
403 
401 
402 
403 
404 
405 
406 
407 
403 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
433 



7EEA 
7.EEA 
7EEA 
7EEA 
7EEA 
7EEA 
7EEA 
7EEA 
7EEA 
7EEA 
7EE3 
7EEC 
7EED 
7EEE 
7EEF 
7EF0 
7EF1 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF2 
7EF3 
7EF4 
7EF5 
7EF6 
7EF7 
7EF8 
7EF9 
7EFA 
7EFB 
7EFC 
7EFD 
7EFE 
7EFE 



4703 
4300 
8F03 
8300 
8701 
8B02 
8F03 
0201 



5700 
4309 
3F00 
A300 
A701 
AB02 
4400 
5400 
A303 
3300 
8F03 
0201 



LDMi 



STM: 



.PAGE 'LOAD/STORE MULTIPLE SUBROUTINES' 

LOAD MULTIPLE SUBROUTINE - LOAD REGISTERS FROM MEMORY 



JUMP TO SUBROUTINE 
START OF SAVE AREA 



JSR 


LDM 


.WORD 


X 


(RETURN 


HERE) 


PULL 


AC 3 


PUSH 


AC 3 


LD 


AC3,(AC3) 


LD 


AC0,0(AC3) 


LD 


ACl f l(AC3) 


LD 


AC2,2(AC3) 


LD 


AC3,3(AC3) 


RTS 


1 



i GET STORAGE LOCATION 



; LOAD REGISTERS 



STORE MULTIPLE SUBROUTINE - STORE REGISTERS IN MEMORY 



JUMP TO SUBROUTINE 
START OF SAVE AREA 



7E00 A 



JSR 


STM 


.WORD 


X 


(RETURN 


HERE) 


REGISTERS ARE UNAL 


XCHRS 


AC 3 


PUSH 


AC 3 


LD 


AC3, (AC3) 


ST 


AC0 r 0(AC3) 


ST 


ACl f l(AC3) 


ST 


AC2,2(AC3) 


PULL 


AC0 


XCHRS 


AC0 


ST 


AC0 f 3(AC3) 


LD 


AC0,0(AC3) 


LD 


AC3 f 3(AC3) 


RTS 


1 


.END 


ABSTTY 



; GET BUFFER ADDRESS 



; STORE REGISTERS 



STORE ORIGINAL AC3 
RESTORE AC0 
RESTORE AC3 



****** 



ERRORS IN ASSEMBLY 



****** 



TTY16P 



$1! $2! ABSTTY AC0 AC1 AC2 AC3 BIT12 BIT13 CRLF 
7EA1 A 7EAD A 7E00 A 0000 A 0001 A 0002 A 0003 A 7EB9 A 7EBA A 7ED9 A 

DELAY DONE ENDREC GECO GETC GETC2 H3FFF INT INTEST LI 
7E8C A 7E69 A 7E2B A 7E73 A 7E3B A 7EA2 A 7E9A A 0006 A 7EDF A 7EC8 A 

LDM LP1 LP2 LP3 MASK MESG MSGEND NINT NZRO POS 
7EEA A 7E3C A 7E61 A 7E80 A 7E99 A 7EC3 A 7ECF A 7EE7 A 0005 A 0002 A 

PRADR PREAD PRESET PSTART PUT2C PUTC RDREN RDRIN RDWD RDWDCK 
0010 A 0001 A 0003 A 0002 A 7ED3 A 7E59 A 0004 A 7E9C A 7E32 A 7E1C A 

READ RESET RETURN RTBYT RTN SAV SEND STM TCKSUM TORS 
0032 A 0305 A 7E90 A 7EBB A 7EDD A 7E94 A 0003 A 7EF2 A 7E1F A 7E24 A 

TRESET TTYl TTY2 TTYAD ZRO 
7EDA A 7E03 A 7E15 A 0038 A 0001 A 



2253 99B2 



o 



PEVISION-G 01/02/74 
GENLOR 00123D 01/01/74 



GENLDR 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 0000 

10 0000 

11 0880 

12 0880 

13 0880 

14 0880 

15 0880 

16 0881 

17 0881 

18 0881 

19 0881 

20 0881 

21 0882 

22 0883 

23 0884 

24 0885 

25 0885 

26 0885 

27 0885 

28 3885 

29 0886 

30 0887 

31 0888 

32 0889 

33 088A 

34 088A 

35 088A 

36 088A 

37 088A 

38 088B 

39 088B 

40 088B 

41 088B 

42 088B 

43 088C 

44 088D 

45 088E 

46 088F 

47 0890 

48 0890 

49 0890 

50 0890 

51 0891 

52 0891 

53 0892 

54 0893 

55 0894 

56 0895 

57 0896 

58 0896 

59 0896 

60 0896 

61 0897 

62 0898 

63 0899 



0001 A 

0000 A 

0001 A 



0880 T 



AC12 B 



8020 A 
0418 A 
4801 A 
2C4C I 



8443 B 
2C4D I 
9C4E I 
4E1D A 
2C4F I 



7817 B 



8012 B 
1102 A 
2C50 I 
2101 A 
2C51 I 



GENL 
DSKL 
IMP16L 



1 



1 
.IF IMP16L 

.IF GENL 

.TITLE GENLDR, '00123D 
.ENDIF 
.TSECT 

.IF 1-DSKL 

.=.+X'880 
.LOCAL 



SAVE INPUT DEVICE FLAG 



; ASSEMBLF GENLDR 

; ASSEMBLE FOR IMP-I6L 

01/01/74* 



DSCLDR: ST 
.IF 



R3,INDEVF 
IMP16L 



;0=TTY, 1=CARD READER 



INITIALIZE LOADER FOP 16P/16L 



SETPL: LD 
RIN 
AISZ 
JSR 
.ENDIF 



R3,CPAD 
GPCS 
R0,1 
LINIT 



WRITE LOADER READY MESSAGE 





R1,H0D0A; 


JSP 


outwd; 


LD 


R3 f TBL4 


LI 


R2,29 


JSR 


OUTANS 


.IF 


GENL 



INITIALIZE LOADER STATE 

ISZ STATE 

.ENDIF 



READ COMMAND FROM INPUT DEVICE SPECIFIED 



READCM: LD 
BOC 
JSR 
JMP 
JSR 



ROt INDEVF 

ZR0..+3 

RDCMDC 

.+2 

RDCMOT 



;CARD READER 'INPUT 
TELETYPE KEYBOARD INPUT 
PACK COMMAND CODE 2 CHARACTERS/WORD 
8806 B $3: 



8C0C B 
2911 4 
A200 A 
290F A 
A201 A 



8200 A 
F300 A 
2101 A 
2103 A 



LD R2,ACMD2 

.ENDIF ; 

LD R3,ATBL2 

JSR $4 

ST P0t(R2) 

JSR $4 

ST R0,HR2) 

LOCATE COMMAND IN TABLE AND JUMP TO COMMAND PROCESSOR OR INVCMD 



$6: 



LD 


R0»(R2) 


SKNE 


R0,(R3) 


JMP 


.+2 


JMP 


.+4 



GENLDR 



64 089A 

65 089B 
6 6 089C 

67 089D 

68 089E 
6 9 089F 

70 089F 

7 1 089F 

72 089F 

73 08A0 

74 08A1 

75 08A2 

76 08A3 

77 08A4 

78 08A4 
7<* 08A4 

80 08A4 

81 08A5 

82 08A6 

83 08A7 

84 08A8 

85 08A9 

86 08AA 

87 08AB 

88 08AC 

89 08AD 

90 08AE 

91 08AF 



8201 A 
F301 A 
2702 A 
4B03 A 
21F7 A 



L0 


R0,1(R2) 


SKNE 


R0.KR3) 


JMP 


32 (R3) 


AISZ 


R3,3 


JMP 


$6 



ERROR: INVALID OR UNRECOGNIZED COMMAND 



4F01 A INVCMD: 
2C52 I 
4C00 A 
A012 B 
21F7 A 



4200 A 
8816 B 
82C0 
5C08 
3181 
8201 
3400 A 
4A02 A 
A816 B 
4600 A 
0200 A 
0760 A 



$4: 



LI 

JSR 

LI 

ST 

JMP 



R3,l 

OUTMSG 

R0,0 

RO.INDEVF 

READCM 



;NEXT COMMAND FROM TTY 



PACK A WORD FROM INPUT BUFFER 



CPAD: 



PUSH 


R2 


LD 


R2»START 


LD 


R0» (R2) 


SHL 


R0,8 


RCPY 


ROtRl 


LD 


R0tl(R2) 


RADD 


RitRO 


AISZ 


R2,2 


ST 


R2 f START 


PULL 


R2 


RTS 





.WORD 


076 



92 


08B0 






93 


08B0 






94 


08B0 






95 


08B0 






96 


08B0 






97 


08B0 






98 


08B0 






99 


08B0 






100 


08B0 






101 


08BO 






102 


08B0 


2C53 


I 


103 


08B1 


21ED 


A 


104 


08B2 






105 


08B2 






106 


08B2 






107 


08B2 


704A 


B 


108 


08B3 


21EB 


A 


109 


08B4 






110 


08B4 






HI 


08B4 






112 


08B4 


881F 


B 


113 


08B5 






114 


08B5 


A202 


A 


115 


08B6 






116 


08B6 






117 


08B6 






118 


08B6 


21D4 


A 



.PAGE 
.*********************************************************************** 

;* * 

;* OBS COMMAND * 

;* * 

• ** ************************************************************** ******* 

.LOCAL 

BASF SECTOR ORIGIN MUST BE SPECIFIED IN COMMAND RECORD 

2C53 I OBS: JSR VALUE 

JMP INVCMD 

BASE SECTOR ORIGIN MUST BE <= X«OOFF 

SKAZ RO.HFFOO 

JMP INVCMD 

SAVE BASE SECTOR ORIGIN IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 



LD R2,RLMVCT 

.ENDIF 

ST RO t BSO(R2) 

RETURN FOR NEXT COMMAND 

JMP READCM 



GENLDR 



119 


08B7 






120 


08R7 






121 


0887 






12? 


08B7 






123 


08B7 






124 


08B7 






125 


8B7 






126 


8B7 






127 


D8B7 






128 


08B7 






129 


08B7 


2C53 


I 


130 


08B8 


21F6 


A 


131 


08B9 






132 


08B9 






133 


08B9 






134 


08B9 


881F 


B 


135 


08BA 






1 -X A 


flQDA 


A->r>-a 


A 


137 


08BB 






138 


08BB 






139 


08BB 






140 


08BB 


21CF 


A 


141 


08BC 






142 


08BC 






143 


08BC 






144 


08BC 






145 


08BC 






146 


08BC 






147 


08BC 






148 


08BC 






149 


08BC 






150 


08BC 






151 


8BC 


4C01 


A 


152 


08BD 


A01C 


B 


153 


088F 


2102 


A 


154 


08BF 






155 


08BF 






1 56 


08BF 






157 


08BF 






158 


08BF 






1 CO 


uoor 






160 


08BF 






161 


08BF 






16? 


08BF 






163 


08BF 


4C00 


A 


164 


08C0 


A01C 


B 


165 


08C1 


881F 


B 


166 


08C2 






167 


08C2 


8201 


A 


168 


08C3 


A018 


B 


169 


8C4 


8A00 


A 


170 


08C5 






171 


08C5 






172 


08C5 






173 


08C5 


F818 


B 


174 


08C6 


2109 


A 


175 


08C7 


801C 


B 


1 7 6 


08C8 


1104 


A 


177 


08C9 






178 


08C9 






179 


08C9 






180 


08C9 


82FF 


A 


1R1 


08Cft 


6048 


B 


182 


08CB 


F047 


B 



.PAGE 

• * * 

;* OTS COMMAND * 

:* * 

.LOCAL 
TOP SECTOR ORIGIN MUST BE SPECIFIED IN COMMAND RECORD 

TS: JSR VALUE 

JMP INVCMD 

SAVE TOP SECTOR ORIGIN IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 

LD R2.RLMVCT 

.FNDIF ;-— *-«■ 

$T ro ? TSO(R2) 

RETURN FOR NEXT COMMAND 

JMP READCM 



.PAGE 

;# * 

;* ER COMMAND * 

;* * 

.LOCAL 

; STHI AND STLO ARE FOUND IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 

ER: LI R0,1 ; SET FLAG TO PRINT ERRORS ONLY 

ST RO, TEMPI 

JMP SY1 

;* * 

;* 5y COMMAND * 

;* * 

■ nr a i 

STHI AND STLO ARE FOUND IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 

SY: LI R0,0 

ST RO, TEMPI 

SYl: LD R2,RLMVCT 

. EN D I F ; 

LD R0,STL0(R2) 

ST R0,STLOW 

LD R2,STHI(R2) 



IF (R2) = STLOW, NO MORE ENTRIFS IN SYMBOL TABLE 



$1: SKNE R2tSTLOW 

JMP $4 

LD RO, TEMPI 

BOC ZR0,$2 



;END OF SYMBOLS 
;PRINT SYMBOL 
IF SYMBOL IS MULTIPLY-DEFINED OR UNDEFINED, PRINT IT 



LD R0,-1(R2) 

AND RO,HAOOO 

SKNE R0,H8000 



GENLDR 



183 08CC 2101 A 

184 08CD 2C54 I $2: 
165 08CE 

186 08CE 

187 08CE 

188 08CE 4AF8 A $3: 

189 08CF 21F5 A 

190 0800 8443 B $4: 

191 0801 2C4D I 

192 0802 21B8 A 



JMP 
JSR 



$3 
PRSYMB 



INCREMENT TO NEXT SYMBOL 



AISZ 


R2.-5 


JMP 


$1 


LD 


RltHODOA 


JSR 


OUT WO 


JMP 


PEADCM 



193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 



0803 
0803 
08D3 
0803 
0803 
0803 
0803 
0803 
08D3 
0803 
08D3 
0804 
08D5 
0805 
0805 
08D5 
0806 
0806 
0806 
08D6 
0807 
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;* * 

;* NLM AND LM COMMANDS * 

;* * 

.LOCAL 

SET FLAG TO INHIBIT PRINTING LIMITS 

4C00 A NLM: LI R0 T 
2101 A JMP $1 

SET FLAG TO PRINT LIMITS 

4C01 A LM: LI ROtl 

SAVE LIMITS FLAG AND RETURN FOR NEXT COMMAND 



A013 B $l: 
21B3 A 



ST 
JMP 



RO.LIMFLG 
REAOCM 



214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 



0808 
08D8 
0808 
08D8 
0808 
0808 
08D8 
0808 
0808 
0808 
08D8 
0809 
080A 
080A 
9 80A 
080A 
08DB 
08DC 



.SPACE 3 

;* * 

;* NSQ AND SQ COMMANDS * 

;* * 

.LOCAL 

INHIBIT SEQUENCE CHECK 

4C00 A NSEQ: LI RO, 
2101 A JMP $1 



PERFORM SEQUENCE CHECK (CARDS ONLY) 



4C01 A SEQ: LI ROt 1 
A0D9 B $1: ST ROtSEQCK 
21AE A JMP PEADCM 



232 080D 

233 0800 

234 08DD 

235 08DD 

236 080D 

237 08DD 

238 08D0 

239 08DD 

240 08DD 

241 08DD 

242 08DD 4C01 A CR: 
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;«********#***************»********#*#****#******** ************ **#$*$*$* 

?* * 

;* CP AND TTY COMMANDS * 

;* * 

.LOCAL 



SET FLAG FOR CARD REAOER INPUT 
LI R0,1 



GENLDR 



243 08DE 2101 A JMP $1 

244 080F 

245 080F 

246 08DF 

247 080F 4C00 A TTY : LI ROtO 

248 08E0 

249 08F0 

250 08E0 . _ _ 

251 08E0 A012 B $1: ST RO.INDEVF 

252 08E1 21A9 A JMP READCM 



SET FLAG FOR TTY INPUT 



SAVE INPUT DEVICE FLAG AND RETURN FOR NEXT COMMAND 



253 
2 54 
255 
256 
257 
258 
2 59 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
2 73 
2 74 
275 
276 
277 
?78 
279 
280 
281 
282 
283 
2 84 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 



08E2 
08E2 
08E2 
08E2 
08E2 
08E2 
08E2 
08E2 
08E2 
08E2 
08E2 
08E3 
08E4 
08E4 
08E5 
08 E6 
08E7 
08E8 
08E9 
08EA 
08EB 
08EB 
08EC 
08EC 
08EC 
08EC 
08EC 
08EC 
08ED 
08EE 
08EF 
08F0 
08F1 
08F2 
08F2 
08F2 
08F2 
08F3 
08F4 
08F5 
08F6 
08F7 
08F7 
08F7 
08F7 
08F8 
08P8 
08F9 
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I* * 

;* CLR COMMAND * 

:* * 

.LOCAL 



INITIALIZE RLM VECTOR 



881E 
8C1F 

4D0D 
8200 
A3 00 
4B01 
4A01 
49FF 
21FA 



4C00 
8800 
2C55 
4A01 
E802 
21FC 



8803 
2C55 
4A01 
E805 
21FC 



2193 
0000 



B CLR 

B 

A 
A 
A 
A 
A 
A 
A 



79 OC A 



LD 

LD 

.ENDIF 

LI 

LD 

ST 

AISZ 

AISZ 

AISZ 

JMP 

.IF 

ISZ 



R2 f INVCT 
R3 t RLMVCT 

RltLVCT 
R0,(R2) 
RO, (R3> 
R3,l 
R 2 » 1 
Rlt-1 
« — 5 
GENL 
CLRFLG 



.ENDIF 




ZERO MEMORY 


RANGE 1 


LI 


R0»0 


LD 


P2,L0W1 


JSR 


STORE 


AISZ 


R2 f l 


SKG 


R2.HIGH1 


JMP 


.-3 



ZERO MEMORY RANGE 2 



LD 


R2» L0W2 


JSR 


STORE 


AISZ 


R2,l 


SKG 


R2,HIGH2 


JMP 


.-3 



RETURN FOR NEXT COMMAND 



A JMP READCM 

.IF GENL 

A CLRFLG: .WORD 
.ENDIF 



;REMEMBER SO THAT SYMB TBL AREA CAN 
BE CLEAREO LATER 



GENLDR 



301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

3 60 

361 

362 

363 

364 

365 

366 



08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08F9 

08FA 

08FB 

08FC 

08F0 

08FD 

08FE 

08FF 

0900 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

90A 

090A 

090A 

090A 

090B 

090C 

090D 

090E 

090F 

090F 

090F 

090F 

0910 

0911 

0912 

0913 

0914 

0915 

0915 

0915 

0915 

0916 

0917 

0918 

0919 

0919 

0919 

0919 

091A 

091B 

091C 

091D 

091E 

091F 

0920 

0921 



.PAGE 

8* * 

;* RLM COMMAND * 

• * 

;************** ******************************* ************* + 3 {f # ^ !et + ^^^ :(tIJEJjt ^ 

.LOCAL 
INITIALIZE RLM VECTOR 



8013 B 
HOB A 
881E B 
8C1F B 

4A04 A 
4B04 A 
4D07 A 



RLM: 



8200 
A300 
4B01 
4A01 
49FF 
21FA 
8CIF B 
7F0C A 
830C A 
A30B A 



.IF 


GENL 


LD 


RO,LIMFLG 


BOC 


ZR0,$1 


LD 


R2tINVCT 


LD 


R3,RLMVCT 


.IF 


GENL 


AISZ 


R2t4 


AISZ 


R3.4 


LI 


RULVCT-6 


.ENOIF 




LD 


R0,(R2) 


ST 


R0t(R3) 


AISZ 


R3,l 


AISZ 


R2.1 


AISZ 


Rl.-l 


JMP 


.-5 


LD 


R3»RLMVCT 


DSZ 


PTRP(R3) 


LD 


R0,PTRP(R3) 


ST 


R0,PTRN(R3) 



;IF LIMITS FLAG SET, REINITIALIZE 
;RLM VECTOR 



;DON t T REINIT FIRST 4 WORDS 



8012 B 
1102 A 
2C56 I 
2101 A 
2C57 I 



8C1F B 
2C58 I 
2103 A 
2106 A 
2119 A 
21F5 A 



4B07 A 
2C52 I 
0000 A 
21F1 A 



$1: 



READ 1 RLM RECORD FROM TTY PAPER TAPE READER OR CARD READER 
$2 A s 



LD 

BOC 

JSR 

JMP 

JSR 



RO.INDEVF 

ZR0..+3 

RDRLMC 

.+2 

RDRLMT 



CALL LODREC TO PROCESS RLM RECORD 



LD 

JSR 

JMP 

JMP 

JMP 

JMP 



R3.RLMVCT 

LODREC 

$2 

$3 

$4 

$2A 



; ERROR RETURN 
;TITLE RETURN 
*,END RETURN 
;NORMAL RETURN 



ERROR RETURN FROM LODREC WITH ERROR CODE IN R3 (1 <- R3 <= 10) 
$2: 



AISZ 
JSR 
HALT 
JMP 



R3,ML 
OUTMSG 

$2A 



8013 B 
HEF A 
8443 B 
2C4D I 
8C07 B 
4B04 A 
4E06 A 
2C4F I 
8446 B 



PRINT TITLE RECORD IF LIMITS FLAG IS SET 



$3: 



LD 


RO.LIMFLG 


BOC 


ZR0,$2A 


LD 


Rl,HODOA 


JSR 


OUTWD 


LD 


R3.AINBUF 


AISZ 


R3.4 


LI 


R2.6 


JSR 


OUTANS 


LD 


RWH2020 



GENLDR 



367 


0922 


2C4D 


I 


368 


0923 


8C07 


B 


369 


924 


4B07 


A 


370 


0925 


9007 


B 


371 


0926 


6041 


B 


372 


0927 


5C01 


A 


373 


0928 


002A 


B 


374 


0929 


3281 


A 


375 


092A 


1101 


A 


376 


092B 


2C4F 


I 


377 


092C 


21DD 


A 


378 


0920 






379 


0920 






3 80 


092D 






381 


0920 


881F 


B $ 


382 


092E 






3 83 


092F 


8204 


A 


384 


092F 


1101 


A 


385 


0930 


A001 


B 


3 86 


0931 






3 87 


0931 


8013 


B $ 


388 


0932 


HOC 


A 


389 


0933 


8446 


B 


390 


0934 


2C4D 


I 


391 


0935 


2C40 


I 


392 


0936 


8C07 


B 


393 


0937 


87 04 


A 


394 


0938 


2C59 


I 


395 


0939 


8446 


B 


396 


093A 


2C4D 


I 


397 


093B 


2C40 


I 


398 


093C 


8705 


A 


399 


0930 


2C59 


I 


400 


093E 


2C5A 


I 


401 


093F 


245B 


I $ 


402 


0940 







JSR 


OUT WD 


LD 


R3 t AINBUF 


AISZ 


R3,7 


LD 


R0.3AINBUF 


AND 


ROtHOOFF 


SHL 


RO, I 


SUB 


RO,HOOOA 


RCPY 


R0 t R2 


BOC 


ZR0..+2 


JSR 


OUTANS 


JMP 


$2A 



PRINT RLM LIMITS IF LIMITS FLAG IS SET 



$4: 



$4A 



LD 


R2.RLMVCT 


.IF 


GENL 


LD 


R0tENTPT(R2) 


BOC 


ZR0,$4A 


ST 


PO.ENTY 


.ENDIF 




LD 


RO.LIMFLG 


BOC 


ZR0»$5 


LD 


R1,H2020 


JSR 


OUTWD 


JSR 


OUTWD 


LD 


R3 t AINBUF 


LD 


R1,4(R3) 


JSR 


OUT HEX 


LD 


R1,H2020 


JSR 


OUTWD 


JSR 


OUTWD 


LD 


R1,5(R3) 


JSR 


OUT HEX 


JSR 


PRLIMS 


JMP 


READCM 


.ENDIF 





; IF RLM ENTRY POINT IS NON-ZEROt 
J SAVE VALUE FOR GO 

; PRINT FOUR BLANKS 

; PRINT SOURCE CHECKSUM 

; PRINT FOUR BLANKS 

5 PR INT OBJECT CHECKSUM 



403 0940 

TUT \J~7T\J 

405 0940 

406 C940 

tu r u ~7tu 

408 0940 

409 0940 

410 0940 881F B GO: 

411 0941 2C53 

412 0942 

413 0942 2101 

414 0943 2107 

415 0944 8001 B 

416 0945 

417 0945 1505 

418 0946 4F03 

419 0947 2C52 

420 0948 4C00 

421 0949 A012 

422 094A 245B 

423 094B 

424 094B 

425 094B 

426 094B 3181 

427 094C 881F 

428 094D 

429 094D A604 

430 094E 

431 094E 

432 094E 
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;* 

;* GO COMMAND 



* 



.LOCAL 

;GET VECTOR ADDRESS 



LD 

JSR 

.ENDIF 

JMP 

JMP 

LD 

.ENDIF 

BOC 

LI 

JSR 

LI 

ST 

JMP 



R2tRLMVCT 
VALUE 

. + 2 

$1 
ROtENTY 

NZER0,$1 

R3,3 

OUT MS G 

R0,0 

RO.INDEVF 

READCM 



ENTRY POINT FROM COMMAND RECORD REPLACES ENTRY POINT IN VECTOR 



$1: 



RCPY 
LD 

.ENDIF 
ST 



R0.R1 
R2.RLMVCT 

R1»ENTPT(R2) 



PRINT COMPOSITE LIMITS 



GENLDR 



43 3 094E 


4200 


A 


$2: 


PUSH 


R2 


434 094F 


2C5A 


I 




JSR 


PRLIMS 


435 0950 


4600 


A 




PULL 


R2 


436 0951 








.IF 


GENL 


437 0951 












438 0951 








MOVE PSEUDO-BASE SEC 


439 0951 












440 0951 


8114 


A 


$2B: 


LD 


RO,$BO 


441 0952 


A114 


A 




ST 


R0,$B1 


*42 0953 


8404 


B 




LD 


Rl.BSZ 


443 0954 


4901 


A 




AISZ 


Rltl 


444 0955 


4F00 


A 




LI 


R3.0 


445 0956 


9110 


A 


$2A: 


LD 


ROt 3$B1 


446 0957 


A3 00 


A 




ST 


RO, (R3) 


447 0958 


790E 


A 




ISZ 


$B1 


448 0959 


4B01 


A 




AISZ 


R3, 1 


449 095A 


49FF 


A 




AISZ 


Rlt-1 


450 095B 


21FA 


A 




JMP 


$2A 


451 095C 


8F04 


A 




LD 


R3,ENTPT(R2) 


452 0950 


819A 


A 




LD 


RO.CLRFLG 


453 095E 


1501 


A 




BOC 


NZERO f $3 


454 095F 


2300 


A 




JMP 


(R3) 


455 0960 


8A01 


A 


$3: 


LD 


R2 t STLO(R2) 


456 0961 


3981 


A 




RCPY 


R2,R1 


457 0962 


5101 


A 




CAI 


Rltl 


458 0963 


C504 


A 




ADD 


RltSCL 


459 0964 


4CO0 


A 




LI 


ROtO 


460 0965 


2502 


A 




JMP 


a$CL 


461 0966 








.SPACE 


2 


462 0966 


0C43 


T 


$B0: 


.WORD 


PBS EC 


463 0967 


0C43 


T 


$Bl: 


.WORD 


PBSEC 


464 0968 


0FC1 


T 


$CL: 


.WORD 


CLEAR 


465 0969 








.ENDIF 





;END OF BASE SECTOR 



;TEST FOR END 



:IF BRANCH, CLEAR REMAINDER OF MEMORY 
;JUMP TO ENTRY POINT 
;CLFAR LOADER AREAS 



;JUMP TO 'CLEAR* ROUTINE 



466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

4 86 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 



0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

096A 

096B 

096C 

096D 

096E 

096F 

0970 

0971 

0971 

0971 

0971 

0972 

0973 

0973 

0973 

0973 

0974 

0975 

0976 

0977 



.PAGE 

; * * 

;* READ COMMAND FROM TELETYPE KEYBOARD INTO INBUF * 

; * 

* 

.LOCAL 
WRITE PROMPT CHARACTER (EXCLAMATION) AND INITIALIZE BUFFER 



8810 B 
A816 B 
8443 B 
2C4D I 
8030 B 
2C5C I 
A200 A 
4A01 A 



4C01 A 
2948 A 



F02B B 

2110 A 
F02A B 

2111 A 
F025 B 



RDCMDT: LD 
ST 
LD 
JSR 
LD 
JSR 
ST 
AISZ 



R2,ACRDBUF 
R2, START 
RltHODOA 
OUT WD 
R0,H002i 
OUTCH 
R0,(R2) 
R2,l 



READ AND ECHO CHARACTER 



$l: 



LI 
JSR 



R0»1 
READCH 



TEST FOR SPECIAL FUNCTION CHARACTERS 



SKNE 

JMP 

SKNE 

JMP 

SKNE 



RO.HOOOD 

$2 

RO,HOOOA 

$3 

ROtHOOOO 



CARRIAGE RETURN 
;line FEED 



GENLDR 



497 
498 
499 
500 
501 
5 02 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
53^ 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 



0978 
0979 
097A 
097B 
097C 
0970 
097E 
097F 
097F 
097F 
097F 
0980 
0981 
0982 
0982 
0982 
0982 
0983 
0984 
0985 
0985 
0985 
0985 
0986 
0987 
0988 
0988 
0988 
0988 
0989 
C98A 
098B 
098B 
098B 
098B 
098C 
0980 
098E 
098F 
098F 
098F 
098F 
0990 
0991 
0992 
0992 
0992 
0992 
993 
3994 
0995 
0996 



21F8 A 
F03E B 
21F6 A 
F03B B 
210E A 
F03C B 
2110 A 



E808 B 
2101 A 
21EF A 



4200 A 
4A01 A 
21 EC A 



802A B 
2C5C I 
210A A 



802B B 
2C5C I 
2107 A 



4AFF A 
F810 B 
2101 a 
21E2 A 



8443 B 
2C4D I 
21D7 A 



802P B 
A200 A 
8041 B 
A201 A 
0200 A 



JMP 


$1 


;null 


SKNE 


R0,H007F 




JMP 


$1 


;RUBOUT 


SKNE 


R0.H005F 




JMP 


$4 


'.BACKSPACE 


SKNE 


R0,H007D 




JMP 


$5 


;ESCAPE 


IF MAXIMUM 


LINE SIZE EXCEEDEC 


>, IGNORE CHARACTER 


SKG 


R2»ENDBUF 




JMP 


.+2 




JMP 


$1 





STORE CHARACTER IN BUFFER, INCREMENT POINTER, AND LOOP FOR NEXT CHAR 



ST 


RO, (R2) 


AISZ 


R2.1 


JMP 


$1 



OUTPUT LINE FEED AND TERMINATE LINE 
$2: 



LD 


R0,H000A 


JSR 


OUTCH 


JMP 


$6 



OUTPUT CARRIAGE RETURN AND TERMINATE LINE 
$3: 



LD 

JSR 

JMP 



RO,HOOOD 

OUTCH 

$6 



; BACKSPACE 1 CHARACTER. IF ENTIRE LINE DELETED, REPROMPT 
$4: 



AISZ 


R2,-l 


SKNE 


R2,ACRDBUF 


JMP 


$5 


JMP 


$1 



DELETE ENTIRE LINE AND REPROMPT 
$5: 



LD 


R1,H0D0A 


JSR 


OUTWD 


JMP 


RDCMDT 



TERMINATE LINE WITH EOR AND RETURN 
$6: 



LD 


R0,H0020 


ST 


R0,(R2) 


LD 


RO.HOOFF 


ST 


RO, KR2) 


RTS 






549 0997 

550 0997 

551 0997 

552 0997 

553 0997 

554 0997 

555 0997 

556 0997 

557 0997 

558 0997 

559 0997 802C B RDRLMT: LD 

560 0998 2C5C I JSR 



.PAGE 

• * $ 

;* READ RLM RECORD FROM 8-CHANNEL TTY PAPER TAPE READER INTO INBUF * 

;* * 

.LOCAL 

SEND •XON 1 TO READER 

R0,H00U 
OUTCH 



GENLDR 



561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
5 83 
584 
585 
586 
5 87 
588 
589 
590 
591 

5 92 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 

6 04 
605 
606 
607 
608 
609 
610 
611 



0999 

0999 

0999 

C999 

099A 

09 9B 

099C 

099D 

099E 

099E 

099E 

099E 

099F 

09A0 

09A1 

09A2 

09A3 

09A4 

09A5 

09A6 

09A6 

09A6 

09A6 

09A7 

09A8 

09A9 

09AA 

09AB 

09AB 

09AB 

09AB 

09AC 

09AD 

09AE 

09AE 

09AE 

09AE 

09AF 

09B0 

09B1 

09B2 

09B2 

09B3 

09B4 

09B5 

09B6 

09B7 

09B7 

09B7 

09B7 

09B8 



SEARCH FOR »STX' CHARACTER 



4C00 
2920 
F026 
2101 
21FB 



8807 
290E 
A600 
6441 
4A01 
C407 
4901 
A511 



2907 

46 00 
4A01 
E90D 
21 FB 



8020 
2971 
0200 



2C5D 
2D09 
5C08 
A106 

2D06 
C104 
B05E 
2C5F 
0200 



0000 
09B9 



A $A: 

A 

B 

A 

A 



LI 

JSR 

SKNE 

JMP 

JMP 



R0,0 

READCH 

RCH0002 

.+2 

$A 



;STX CHARACTER 



READ FIRST WORD AND EXTRACT RECORD LENGTH 



READ 



$1: 



LD 


R2.AINBUF 


JSR 


$2 


ST 


Rl, (R2) 


AND 


Rl-HOOFF 


AISZ 


R2.1 


ADD 


Rl.AINBUF 


AISZ 


Rltl 


ST 


R1»$T1 


REMAINDER OF RLM R 


JSR 


$2 


ST 


Rit (R2) 


AISZ 


R2,l 


SKG 


P2,$Ti 


JMP 


$1 



RECORD 



SEND •XOFF' AND RETURN 



I $2: 
A TGET1 
A 
A 



TGET2 



LD 

JSR 

RTS 



.IF 

JSR 

JSR3 

SHL 

ST 

.IF 

JSR3 

ADD 

ST 

JSR 

RTS 



R0,H0013 

OUTCH 





IMP16L 

SAVE 

PTGET 

R0,8 

R0,$T2 

TMP16L 

PTGET 

R0,$T2 

RO.SRREG+1 

REST 





;SAVE FIRST CHAR 



;BUILD FULL WORD 



TEMPORARY 



A $Tl: 
T $T2: 



.WORD 
.=. + 1 



612 09B9 

613 09B9 

614 09B9 

615 09B9 

616 09B9 

617 09B9 

618 09B9 

619 09B9 



.PAGE 
******************************** ******************************* ********* 

;* * 

;* READ 1 CHARACTER FROM TTY (KEYBOARD OR PAPER TAPE) INTO RO * 

;* * 

********************************************************************** $$ 

.LOCAL 

.IF IMP16L 



620 09B9 7E3B A PTGET: .WORD 07E3B 

621 09Bft 7E73 A PTECHO: .WORD 07E73 

622 09BB 2C5D I READCH: JSR SAVE 

623 09BC 1102 A BOC 1,TGET3 

624 09BD 2DFC A LECOl: JSR 3PTECH0 
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GENLDR 



625 09BE 2101 A 

626 09BF 2DF9 A TGET3: 

627 09C0 B060 I 

628 09C1 2C5F I 

629 09C2 603E B 

630 09C3 0200 A 



JMP 


.+2 


JSR 


3PTGET 


ST 


ROtSRREG 


JSR 


REST 


AND 


R0,H007F 


RTS 






631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 



09C4 
09C4 
9C4 
9C4 
09C4 
09C4 
09C4 
09C4 
09C4 
09C4 
09C4 
9C5 
09C6 
09C7 
9C7 
09C7 
09C7 
09C8 
09C9 
09CA 
09CA 
09C4 
09CA 
09CB 
09CC 



295F 
4C00 
AOOB 



8041 
8810 
A248 



8010 
A016 
0200 



.PAGE 

;*********************************************************************** 
• * * 

;* READ COMMAND FROM CARD READER INTO INBUF * 

;* * 

************************************************************************ 

.LOCAL 
READ 1 CARD AND CONVERT COLUMNS 1-72 TO ANSI 



A RDCMDC: JSR 



LI 
ST 



RDCARD 

R0,0 

ROtCRDFLG 



;IN READING COMMANDS, CRDFLG NOT USED 



TERMINATE RECORD WITH EOR CHARACTER 



LD 
LD 
ST 



RO, HOOFF 
R2t ACRDBUF 
R0,72(R2) 



INITIALIZE SCAN STARTING ADDRESS AND RETURN 



LD 


RO, ACRDBUF 


ST 


RO, START 


RTS 





656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
6 37 



09CD 
09CD 
09CD 
09CD 
09CD 
09CD 
09CD 
Q9CD 
09CD 
09CD 
09CD 
09CE 
09CF 
0900 
09D0 
09D0 
09D0 
09D1 
09D2 
09D3 
09D4 
09D5 
09D6 
09D7 
09D8 
09D9 
09DA 
09DB 
09DC 
09DD 
09DD 
09DD 



2956 A 
8810 B 
A81C B 



8807 B 
4C11 A 
3800 
A11C 
2908 
A600 
4A01 
E918 
21 FB 
2C61 I 
4C01 A 
AOOB B 
0200 A 



.PAGE 

; *********************************************************************** 
;* * 

;* READ RLM RECORD FROM CARD READER INTO INBUF * 

s* * 

.**********************************#*****************#*****#************ 
.LOCAL 

READ 1 CARD AND CONVERT COLUMNS 1-72 TO ANSI 



RDRLMC: JSR 
LD 
ST 



RDCARD 
R2, ACRDBUF 
R2, TEMPI 



PACK RLM RECORD 



$l: 



LD 


R2, A INBUF 


LI 


R0,17 


RADD 


R2,R0 


ST 


R0,$T1 


JSR 


$2 


ST 


R1,(R2) 


AISZ 


R2,l 


SKG 


R2,$T1 


JMP 


$1 


JSR 


CARDIN 


LI 


R0,1 


ST 


RO, CRDFLG 


RTS 






;SET FLAG INDICATING NEW CARD READ 



SUBROUTINE: PACK 4 CHARACTERS/WORD 
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GENLDR 



688 

689 

690 

691 

692 

6 93 

694 

695 

6 96 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

73 5 

736 

737 

738 



0900 

090E 

09DF 

09E0 

09E1 

09P2 

09E3 

09E4 

09E5 

09E6 

09E7 

09E8 

09E8 

09E8 

09E8 

09E9 

09EA 

09EB 

09EC 

09ED 

09EE 

09EF 

09F0 

09F0 

09F0 

09 F0 

09F1 

09F1 

09F1 

09F1 

09F1 

09F1 

09F1 

09F1 

09»=1 

09F1 

09F1 

09F2 

09F3 

09 F4 

09F5 

09F6 

09F7 

09F8 

09F9 

09PA 

09FB 

09FC 

09FD 

09FE 

09FF 



$2: 



$3: 



$4: 



LI 


R1,0 


JSR 


$3 


JSR 


$3 


JSR 


$3 


JSR 


$3 


RTS 





LO 


R0,3TEMP1 


JSR 


ANSHEX 


JMP 


$5 


ISZ 


TEMPI 


RTS 






ERROR — INVALID HEX CHARACTER 



4000 
2904 
2903 
2902 
2901 
0200 
901C B 
290C A 
2102 A 
781C B 
0200 A 



4F04 A 
2C52 I 
0000 A 
4C00 A 
AOOB B 
4400 A 
4400 A 
2100 A 



0000 A $Tl: .WORD 

CONVERT A CHARACTER FROM ANSI TO HEX 
INPUT CHARACTER IN RO 
HEX VALUE PACKED INTO Rl 

RETURNS: 

CALL+1 ERROR 
CALL +2 OK 



: LI 


R3,4 


JSR 


OUTMSG 


HALT 




LI 


R0,0 


ST 


RO,CRDFLG 


PULL 


RO 


PULL 


RO 


JMP 


RDRLMC 


TEMPORARY 





7449 B 

0200 A 
5D04 A 
F02F B 

0201 A 
D032 B 
11FD A 
1201 A 

0200 A 
E029 B 
2101 A 
48 F9 A 
3100 A 

0201 A 



.LOCAL 

ANSHEX: SKAZ 
RTS 
SHL 
SKNE 

$2: RTS 
SUB 
BOC 
BOC 
RTS 

$3: SKG 

JMP 
AISZ 

$4: RADD 

RTS 
.IF 



RltHFOOO 



Rl,4 

R0,H0020 

1 

R0,H0030 

ZR0,$2 

PZR0,$3 



RO.H0009 

$4 

R0,-7 

R0.R1 

1 

IMP16L 



OVERFLOW 



739 09FF 

740 09FF 

741 09FF 

742 09FF 

743 09FF 

744 09FF 

745 09FF 

746 09FF 

747 09FF 

748 09FF 

749 09FF 

750 09FF 03FB A LTGET: JSRI OFFFB 

751 OAOO 2C62 I LTECO: JSR LTECHO 

752 0A01 0A05 T LCRDP: .WORD LCRD 



.PAGE 
.LOCAL 

* * 

* INITIALIZATION ROUTINE FOR 16L * 

* * 
♦♦A*********************************************************** 
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GENLDR 



753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 



0A02 
0A03 
0A04 
0A05 
0A05 
0A06 
0A07 
0A08 
0A08 
0A09 
0A0A 
OAOB 
OAOC 
0A00 
OAOE 
OAOF 
0A10 
0A11 
0A12 
0A13 
0A14 
0A15 
0A16 
0A17 
0A18 
0A19 
0A1A 
0A1B 
OAK 



0A8E T RCR01P: 
6027 B LOLCHK: 
4F01 A STATP: 

♦ 
0610 A LCRO: 
1C01 A 
21PD A 



81F6 
A1A5 
A1A7 
A1B3 
81F3 
A1AF 
810E 
Alll 
81F2 
A178 
81F1 
A113 
4F03 
91EB 
B1EB 
79E9 
79E9 
4BFF 
21FA 



UNIT 



$Ll: 



0200 A 



.WORD 

AND 

LI 

ROUT 

BOC 

JMP 

LO 

ST 

ST 

ST 

LD 

ST 

LO 

ST 

LD 

ST 

LD 

ST 

LI 

LD 

ST 

ISZ 

ISZ 

AISZ 

JMP 

RTS 

.ENDIF 



RCRD1 

R0,H0004 

R3tSTATUS 

CARDR 

P0A,.+2 

.-2 

ROtLTGET 

R0.TGET1 

R0tTGET2 

R0tTGET3 

RO.LTECO 

ROtLECOl 

RCLTTYTI 

ROtTTYTl 

ROt LOLCHK 

RO.OLCHK 

ROtSTATP 

ROt STATCK 

R3,3 

R0t3LCRDP 

R0t3RCRDlP 

LCRDP 

RCRD1P 

R3t-1 

$L1 



782 0A1C 

783 0A1C 

784 0A1C 

785 0A1C 

786 0A1C 

787 0A1C 

788 0A1C 

789 0A1C 

790 0A1C 

791 0A1C 

792 0A1C 

793 0A1C 7E59 A 

794 0A1D 2C63 I 

795 0A1E 6041 B OUTCH: 

796 0A1F 2979 A 

797 0A20 3181 A 

798 0A21 2DFA A 

799 0A22 297B A 

800 0A23 0200 A 

801 0A24 



.PAGE 

j ************************ ************************** ************ 
* * 

;* OUTPUT 1 ANSI CHARACTER TO TTY PRINTER 

;* 

*************************************************************** 
.LOCAL 

; ON ENTRY: RO < — 1 ANSI CHARACTER (RIGHTMOST 8 BITS) 



CS^^SSc^C^C^^^^^C^^SfSnC^T-*^* 



* 

* 

********* 



PTTYT: 
LTTYTI 



TTYTl: 



.IF IMP16L 

.WORD 07E59 

JSR LTTYT 

AND R0,H00FF 

JSR SAVE 

RCPY R0,R1 

JSR3 PTTYT ; PRINT CHARACTER 

JSR REST 

RTS 



802 0A24 

803 0A24 

804 0A24 

805 0A24 

806 0A24 

807 0A24 

808 0A24 



.PAGE 

;*********************************************************************** 

• * * 

;* READ 1 CARD INTO INBUF AND CONVERT TO ANSI * 

!* * 

• *********************************************************************** 

.LOCAL 



809 0A24 800B B RDCARD: LD 

810 0A25 1501 A BOC 

811 0A26 2961 A $1B: JSR 

812 0A27 

813 0A27 

814 0A27 

815 0A27 STATCK: 

816 0A27 2105 A $1A: JMP 



ROtCRDFLG 
NZER0,.+2 
CARDIN 



;HAS CARD ALREADY BEEN READ? 

;yes 



TEST FOR ERRORS AND LOOP UNTIL I/O COMPLETED 
$1-1 
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GENLDR 



817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 



0A28 

0A29 

0A2A 

0A2B 

0A2C 

0A2D 

0A20 

0A2D 

0A2D 

0A2B 

0A2F 

0A30 

0A31 

0A32 

0A33 

0A34 

0A35 

0A36 

0A37 

0A38 

0A39 

0A3A 

0A38 

0A3C 

0A3D 

0A3E 

0A3F 

0A40 

0A41 

0A42 

0A43 

0A44 

0A45 

0A46 

0A47 

0A48 

0A49 

0A4A 

0A4B 

0A4C 

0A4O 

0A4E 

0A4F 

0A50 

0A51 

OA52 

0A52 

0A53 

0A54 

0A55 

0A56 

0A57 

0A58 

0A59 

0A5A 

0A5B 

0A5C 

0A5C 

0A5C 

0A5D 

0A5E 

0A5E 

0A5F 

0A60 

0A61 

0A61 

0A62 

0A63 



0410 A 
7040 B 
215B A 
7028 B 
21FB A 



8810 B 
8C0D B 
8200 A 
F300 A 
2104 A 
4B01 A 
ECOE B 
21FB A 
214C A 
DC 00 B 
4B20 A 
EC30 B 
2104 A 
4B0E A 
EC34 B 
2101 A 
4B07 A 
AE00 A 
4A01 A 
E808 B 
21EC A 
8009 B 
112B A 
4AF8 A 
8C0A B 
8200 A 
E301 
2101 
2108 
4A01 
4B01 
E808 B 
21F8 A 
4F12 A 
2C52 I 
0000 A 
210F A 



RIN 


CARDR 


SKAZ 


ROtHOOCO 


JMP 


$7 


SKAZ 


R0»H0008 


JMP 


.-4 



; TRANSLATE TO ANSI AND RETURN 



$1 
$2 



$3: 



D301 A 

F808 B 

2107 

48FF 

2107 

4A01 

4B01 

4C0A 

C200 

21F6 



E02A B 
2103 A 



4F13 
2C52 
0000 



$4: 



$CKSEQ: 



LD 

LD 

LD 

SKNE 

JMP 

AISZ 

SKG 

JMP 

JMP 

SUB 

AISZ 

SKG 

JMP 

AISZ 

SKG 

JMP 

AISZ 

ST 

AISZ 

SKG 

JMP 

LD 

BOC 

AISZ 

LD 

LD 

SKG 

JMP 

JMP 

AISZ 

AISZ 

SKG 

JMP 

LI 

JSR 

HALT 

JMP 



R2,ACRDBUF 

R3,ATBL3 

R0,(R2) 

R0,(R3) 

$3 

R3,l 

R3,ETBL3 

$2 

$5 

R3 t ATBL3 

P3.020 

R3.H0021 

$4 

R3,00E 

R3,H0039 

$4 

R3,007 

R3,(R2) 

R2.1 

R2t ENDBUF 

$1 

RO,SEQCK 

ZRO,$FIN 

R2,-8 

R3 t NUMB 

R0,0(R2) 

R0» HR3) 

.+2 

$SEQGT 

R2.1 

R3.1 

R2» ENDBUF 

$CKSEQ 

R3, 18 

OUTMSG 

SSEQOK; 



;ERROR — INVALID CHARACTER 



?D0 WE PERFORM SEQUENCE CHECK? 

;no 

;address of current number vector 

iSEQUENCE CHECK CHAR-BY-CHAR 



;SEQUENCE FAILURE - WRITE MESSAGE 



$SE0GT: ; SEQUENCE NUMBER IS GREATER SO CHECK FOR BEING TOO GREAT 

TAKE DIFFERENCE OF CHARS 
ARE WE ON THE LAST CHAR? 
YES 

DIFFERENCE MUST BE 1 OR OIFF IS TOO BIG 
X 



SUB 

SKNE 

JMP 

AISZ 

JMP 

AISZ 

AISZ 

LI 

ADD 

JMP 



; WHEN 
$SQGl: 



$SEQER: 



ROt 1(R3) ; 

R2tENDBUF; 

$SQG1; 

RO,-l; 

$SEQER; 

R2,l; 

R3,l; 

RO,iO; 

R0,0(R2) ; 

$SEQGT; 



GET NEXT CHAR FROM CARD WITH BORROW 
ADDED IN 



LAST CHAR IS PROCESSED DIFFFRENCE SHOULD BE LESS THAN 10 

SKG RO.HOOOA; 

JMP $SEQOK; ALL IS CLEAR 

; SEQUENCE NUM INCREMENTED BY MORE THAN 10 SO THERE IS AN ERROR 



9008 B 
F032 B 
210B A 



LI R3,19; 

JSR OUTMSG; 

HALT 
; PRINT SEQUENCE NUMBER IF NOT 

SSEQOK: LD R0 t 3ENDBUF; 

SKNE R0.H0030; 

JMP $FIN; 



"DROP" 



A MULTIPLE OF TEN 
CHECK FOR LAST DIGIT OF 
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GENLDR 



885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 

rtrt *■» 

90 3 
904 
905 
°06 
907 
908 
909 
910 



911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 

92 8 
929 

93 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 



0A64 
0A64 
0A65 
0A66 
0A67 
0A68 
0A68 
0A69 
0A6A 
0A6A 
0A6B 
0A6C 
0A6D 
0A6E 
0A6F 
0A70 
0A71 

ua r c. 

0A73 
0A74 
0A75 
0A76 
0A77 
0A78 
0A79 
0A7A 
0A7B 
0A7C 
0A70 
0A7E 
0A7F 
0A80 
0A81 
0A82 
0A82 
0A82 
0A82 
0A83 
0A84 
0A85 
0A86 
0A87 
0A88 
0A88 
0A88 
0A88 
0A89 
0A8A 
0A8A 
0A8B 
0A8C 
0A8D 
0A8E 
0A8F 
0A90 
0A91 
0A92 
0A93 
0A93 
0A93 
0A93 
0A94 
0A95 
0A96 
0A97 
0A98 
0A99 



; PRINT IDENTIFYING MESSAGE 



4F14 A 

2C52 I 

8446 B 

2C40 I 

8C08 B 
4008 A 



4F05 A 
2C52 I 
0000 A 
21A0 A 
29 0C A 
219F A 



4F01 A 
0410 A 



6026 B 
1107 A 
8010 B 
4F02 A 
3281 
2D 02 
21FE 
0200 
7FD3 



4F06 A 
2C52 I 
0000 A 
4F05 A 
0610 A 
21EF A 



LI 


R3,20; 


JSP 


OUTMSG; 


LD 


R1,H2020; 


JSR 


OUT wo; 



; LOOP TO PRINT CHARS IN NMBR 
LD R3.ENDBUF; 

LI Rlt8; 



$SQP: 



83F9 
29B2 
4B01 
49FF 
21FB 
4F08 
CCOA B 
8808 B 

£.U\J « 

A300 A 

4AFF A 

4BFF A 

ECOA B 

2101 A 

21F9 

0200 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



$FIN: 



$S 



c />urtt> •in 
C WHU V • l_U 



NMBR: 



LD R0,-7(R3); 

JSR OUTCH; 

AISZ R3,l; 

AISZ Rl.-l; 

JMP $SQP; 

LI R3,8 

ADD R3tNUMB 

LD R2tENDBUF 

Rn i on \ 

ST P0,(R3) 

AISZ R2,-l 

AISZ R3.-1 

SKG R3.NUMB 

JMP .+2 

JMP $SEQM0V 

RTS 

.WORD 0,0,0,0,0,0,0,0 



;SAVE SEQUENCE NUMBER 



ERROR — INVALID PUNCH 



$5 



LI 


R3t5 


JSR 


OUTMSG 


HALT 




JMP 


$1B 


JSR 


$6 


JMP 


$1A 



; PROCESS ERROR 
;CONTINUE LOADING 



READ A CARD - IF CARDREADER OFFLINE, ERROR 



CARDIN: LI 
RTN 
.IF 
AND 
BOC 
LD 
LI 

RCPY 
JSR3 
JMP 
RTS 



OLCHK: 



RCRDl: 



R3, STATUS 
CARDR 
IMP16L 
R0,H0002 
ZR0,$6 
RO, ACRDBUF 
R3,READ 
R0.R2 
RDCRD 
.-1 




;READ CARD STANDARD 



RDCRD: .WORD 07FD3 



ERROR — CARD READER OFFLINE, XMISSION ERROR, OR DATA OVERRUN 



$6: 



LI 


R3,6 


JSR 


OUTMSG 


HALT 




LI 


R3, RESET 


ROUT 


CARDR 


JMP 


CARDIN 


.IF 


IMP16L 



15 



GENLDR 



945 0A99 

946 0A99 

947 0A99 

948 0A99 

949 0A99 

950 0A99 

951 0A99 

952 0A99 A109 A 

953 0A9A A509 A 

954 0A9B A909 A 

955 0A9C AD09 A 

956 0A9D 0200 A 

957 0A9E 8104 A 

958 0A9F 8504 A 

959 0AA0 8904 A 

960 OAAl 8004 A 

961 0AA2 0200 A 

962 0AA3 

963 0AA3 0AA7 T 



.PAGE 
.$$*$******************************************************************* 

• * * 

;* IMP-16L TELETYPE CONTROL ROUTINES * 

;* * 

;**** $$#$$#$*$$#*******#*************************************** ********* 

.LOCAL 



SAVE: 



REST: 



SRREG 
$R: 



ST 

ST 

ST 

ST 

RTS 

LO 

LO 

LO 

LO 

RTS 

.= .+4 



RO,$R 
R1,$R+1 
R2t$R+2 
R3,$R+3 

RO,$R 
R1,$R+1 
R2,$R+2 
R3,$R+3 



964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 



0AA7 
0AA7 
0AA7 
0AA8 
0AA9 
OAAA 
OAAB 
OAAC 
OAAD 
OAAE 
OAAF 
OABO 
0AB1 
0AB2 
0AB3 
0AB4 
0AB5 
0AB6 
0AB7 
0AB8 
0AB9 
OABA 
OABB 
OABC 
OABD 
OABE 
OABF 
OACO 
0AC1 
0AC2 
0AC3 
0AC4 
0AC5 
0AC6 
0AC7 
0AC8 
0AC8 



4F38 
0A80 
0605 
4E08 
0402 
0604 
1201 
21FC 
4C09 
03F6 
58EA 
0402 
1201 
21F3 
0603 
03F5 
5826 
0402 
610D 
5DFF 
3182 
4AFF 
21 F7 
0633 
03F5 
4CFF 
0603 
03 F5 
0605 
50F8 
3481 
0200 
80C0 
FFF5 
FFF6 



LTECHO: 



$14: 



$M: 

DELAY 

0FLAY1 



.PAGE 

.LOCAL 

LI 

PFLG 

ROUT 

LI 

RIN 

ROUT 

BOC 

J MP 

LI 

JSRI 

ROR 

RIN 

BOC 

JMP 

ROUT 

JSRI 

ROL 

RIN 

AND 

SHR 

RXOR 

AISZ 

JMP 

ROUT 

JSRI 

LI 

ROUT 

JSRI 

ROUT 

SHR 

RCPY 

RTS 

.WORD 



R3tTTYAD 

2 

5 

R2,8 

2 

4 

2,. +2 

.-3 

RO,EA 

DEL AY 1 

ROtEB 

2 

2,. +2 

LTECHO+1 

3 

DELAY 

RO,EC 

2 

RO,$M 

Rl,l 

R0»R1 

R2.-1 

$14 

3 

DELAY 

R0,-1 

3 

DELAY 

5 

Rl,8 

R1,R0 

X'8000 

0FFF5 

0FFF6 



;IMP-16L GET CHARACTER AND ECHO ROUTINE 
; PUT TTY AODRESS IN R3 

RESET TTY 

SET COUNT TO 8 

LOAD TTY DATA INTO R0(15) 

ENABLE TTY READER 

TEST FOR START BIT 

DELAY 1/2 BIT TIME 

DELAY COMPENSATION 
TEST IF START BIT IS STILL DOWN 
BRANCH IF GOOD START 
FALSE START, RETURN 
SEND BIT TO PRINTER 
DELAY ONE BIT 
DELAY COMPENSATION 
LOAD DATA FROM TTY 
MASK UNWANTED BITS 

ADD NEW BIT TO DATA 

TEST IF DONE 

NOT DONE, GET NEXT BIT 

SEND LAST DATA BIT 

WAIT INTO THE FIRST STOP BIT 

SEND STOP BIT 



; PUT DATA IN LSB OF RO 



1001 0AC8 

1002 0AC8 4E09 A 

1003 0AC9 0A80 A 

1004 OACA 4C00 A 

1005 OACB 4F38 A 

1006 OACC 0603 A 

1007 OACD 58FP A 

1008 OACE 2100 A 



LTTYT: 



.PAGE 

LI 

PFLG 

LI 

LI 

ROUT 

ROR 

JMP 



R2,9 

2 

R0,0 

R3,TTYAD 

3 

R0,1 

$2 



;TTY CHARACTER-TRANSMIT ROUTINE 
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GENLDR 



1009 


OACF 


03F5 


A 


$2: 


JSRI 


DELAY 


1010 


OADO 


5829 


A 




ROL 


ROf TA 


1011 


0AD1 


4AFP 


A 


$3: 


AISZ 


R2,-l 


1012 


0AD2 


2101 


A 




JMP 


$5 


1013 


0AO3 


2104 


A 




JMP 


$7 


1014 


0A04 


59FF 


A 


$5: 


ROR 


Rltl 


1015 


0A05 


3481 


A 




RCPY 


R1,R0 


1016 


0AD6 


0603 


A 


$6: 


ROUT 


3 


1017 


0AD7 


21F7 


A 




JMP 


$2 


1018 


0AD8 


4CFF 


A 


$7: 


LI 


R0,-1 


1019 


0A09 


0603 


A 




ROUT 


3 


1020 


OADA 


03F5 


A 


$8: 


JSRI 


DELAY 


1021 


OAOB 


03F5 


A 




JSRI 


DELAY 


1022 


OAOC 


0200 


A 




RTS 




1023 


OADD 








.ENDIF 





1024 OADD 

1025 OADD 

1026 OADD 

1027 OADD 

1028 OADD 

1029 OADD 

1030 OADD 

1031 OADD 

1032 OADD 

1033 OADD 

1034 OADD 

1035 OADD 8^00 A 

1036 OADE 0826 B 

1037 OADF E825 B 

1038 OAEO 2103 A 

1039 0AE1 2918 A 

1040 0AE2 4B01 A 

1041 0AE3 21F9 A 

1042 0AE4 C826 B 

1043 0AE5 5°F8 A 

1044 0AF6 3481 A 

1045 0AE7 2C5C I 

1046 0AE8 4AFF A 

1047 0AE9 21FB A 

1048 OAEA 0200 A 



.PAGE 

;**********************************************************************$ 

:* * 

;* OUTPUT ANSI STRING TO TTY PRINTER * 

;* * 

*************** ****************************************#*****#* $*****##* 

.LOCAL 



OF CHARACTERS IN STRING 



; ON ENTRY: 


R3 < — A 




R2 < — # 


OUTANS: LD 


Rl, (R3) 


SUB 


R2,H0002 


SKG 


R2 t H0000 


JMP 


$1 


JSR 


OUT WD 


AISZ 


R3»l 


JMP 


OUTANS 


$1: ADD 


R2,H0002 


ROR 


PI, 8 


RCPY 


R1,R0 


JSR 


OUTCH 


* T C 7 

A 1 O £. 




JMP 


.-4 


RTS 






1049 OAEB 

1050 OAEB 

1051 OAEB 

1052 OAEB 

1053 OAEB 

1054 OAEB 

1055 OAEB 

1056 OAEB 

1057 OAEB 

1058 OAEB 

1059 OAEB A90D 

1060 OAEC 4E04 

1061 OAED 3481 

1062 OAEE 5CF4 

1063 OAEF 5D04 

1064 OAFO 4830 

1065 0AF1 E034 B 

1066 0AF2 2101 

1067 0AF3 4807 

1068 0AF4 2C5C 

1069 0AF5 4AFF 

1070 0AF6 21 F6 

1071 0AF7 8901 

1072 0AF8 0200 

1073 0AF9 OAFA 



.PAGE 

;**************** ******************************** ******* **************** 

;* * 

;* OUTPUT HEXADECIMAL WORD TO TTY PRINTER * 

;* * 

;************************************************************$****£$$$$* 

.LOCAL 

HEXADECIMAL WORD 





; ON 


ENTRY: 


Rl < — H 


A 


OUTHEX: ST 


R2,$R2 


A 




LI 


R2,4 


A 


$l: 


RCPY 


Rl.RO 


A 




SHR 


R0,12 


A 




SHL 


Rl,4 


A 




AISZ 


R0,030 


B 




SKG 


R0,H0039 


A 




JMP 


. + 2 


A 




AISZ 


R0.007 


I 




JSR 


OUTCH 


A 




AISZ 


R2,-l 


A 




JMP 


$1 


A 




LD 


R2,$R2 


A 




RTS 





T 


$R2: 


.=. + 1 
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GENLDR 



1074 OAFA 

1075 OAFA 

1076 OAFA 

1077 OAFA 

1078 OAFA 

1079 OAFA 

1080 OAFA 

1081 OAFA 

1082 OAFA 

1083 OAFA 

1084 OAFA 3481 

1085 OAFB 5CF8 

1086 OAFC 2C5C 

1087 OAFD 3481 

1088 OAFE 2C5C 

1089 OAFF 0200 



.PAGE 

• * * 

;* OUTPUT 2 ANSI CHARACTERS TO TELETYPE KEYBOARD * 

.LOCAL 

ON ENTRY: Rl < — 2 ANSI CHARACTERS 

A OUTWD: RCPY R1,R0 

A SHR R0,8 

I JSR OUTCH 

A RCPY R1,R0 

I JSR OUTCH 

A RTS 



1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
112 7 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 



0600 
OBOO 
OBOO 
OBOO 
OBOO 
OBOO 
OBOO 
OBOO 
OBOO 
OBOO 
OBOO 
0B01 
0B02 
0B03 
0B03 
0B03 
0B03 
0B04 
0B05 
0B06 
0B07 
0B08 
0B09 
OBOA 
OBOB 
OBOB 
OBOB 
OBOB 
OBOC 
OBOO 
OBOE 
OBOF 
0B10 
0B10 
0B10 
0B10 
OBli 
0B12 
0B13 
0B14 
0B15 
0B15 
0B15 
OB 15 
0B16 
0B17 
0B17 
0B17 
0B17 



0B01 
40 00 
A41A 



A9FC 
8816 
8200 
F02F 
2101 
2107 
4A01 
21FA 



2C64 
2108 
781A 
4A01 
8200 



F02F 
2105 
F041 
2103 
21F6 



4400 
2465 



.PAGE 

:* * 

;* OBTAIN HEXADECIMAL VALUE FROM INPUT COMMAND * 

;* * 

• ********* ******#**#*#****#**#*#*******^ 

.LOCAL 
INITIALIZE VALFLG AND VALCNT 



T $R2: .=.+1 
A VALUE: LI 
B ST 



RltO 

PI, VALFLG 



IGNORE LEADING BLANKS 



A 

B 

A $l: 

B 

A 

A 

A 

A 



ST 


R2,$R2 


LD 


R2, START 


LD 


RO, (R2) 


SKNE 


R0» H0020 


JMP 


. + 2 


JMP 


$6 


AISZ 


R2,l 


JMP 


$1 



CHECK FOR VALID HEXADECIMAL CHARACTERS 



I $3: 

A 

B 

A 

A 



JSR 


ANSHEX 


JMP 


$7 


ISZ 


VALFLG 


AISZ 


R2,l 


LD 


RO, <R2) 



CHECK FOR BLANK OR EOR 



B $6: 

A 

B 

A 

A 



SKNE 


R0,H0020 


JMP 


$8 


SKNE 


RO.HOOFF 


JMP 


$8 


JMP 


$3 



ERROR — INVALID COMMAND (INVALID HEX CHARACTER) 



A $7: 
I 



PULL 
JMP 



RO 
INVCMD 



RETURN +0 IF NO VALUE* +1 IF LEGAL VALUE; ELSE INVALID COMMAND 
801A B $8: LD RO, VALFLG 



GENLDR 



1139 0B18 89E7 A 

1140 0B19 1501 A 

1141 0B1A 0200 A 

1142 081B 3481 A 

1143 0B1C 0201 A 



LD 


R2,$R2 


BOC 


NZER0,.+2 


RTS 





RCPY 


RltRO 


RTS 


1 



1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 



0B1D 
0B1D 
0B1D 
0B1D 
0B10 
0B1D 
OB ID 
0B1D 
0B10 
0B1D 
0B1D 
0B1E 
0B1F 
0B20 
0B21 
0B22 
0B23 
0B24 
0B25 
0B26 
0B27 
0B28 
0B29 
0B2A 
0B2B 
0B2C 
0B2D 
0B2E 
0B2F 
0B30 
0B31 
0B32 
0B33 
0B34 
0B35 



A918 A 
8443 B 
29DA A 
3B81 A 
4BFC A 
4E06 A 
29B9 A 
8446 B 
29D4 A 
890F 
8600 
29C2 
89 OC 
8446 
29CE 
82FF 
6048 B 
F047 B 
0200 A 

8438 B 
1501 A 

8439 B 
3481 a 
2C5C I 
0200 A 



.PAGE 

;**************************************************************:(c*j(cjScj}cjj c :jc ! { e .{j 

:* * 

}* PRINT SYMBOL TABLE ENTRY * 

;* * 

•***************************************************************#***#$:{£* 

.LOCAL 



ON ENTRY: 



PRSYMB: 



1180 0B36 

1181 0B36 

1182 0B36 0000 A $T1: 



ST 

LD 

JSR 

RCPY 

AISZ 

LI 

JSR 

LD 

JSR 

LD 

LD 

JSR 

LD 

LD 

JSR 

LD 

AND 

SKNE 

RTS 

LD 

BOC 

LD 

RCPY 

JSR 

RTS 



TEMPORARY 



R2 <— ADDRESS OF SYMBOL TABLE ENTRY 

R2,$T1 

R1,H0D0A 

OUT WD 

R2tR3 

R3,-4 

R2t6 

OUTANS 

R1,H2020 

OUTWD 

R2,$T1 

R1,(R2) 

OUTHEX 

R2,$T1 

RUH2020 

OUTWD 

R0,-KR2) 

R0,HA000 

R0 t H8000 



R1,H004D 

NZER0,.+2 

RltH0055 

OUTCH 




.WORD 



1183 0B37 

1184 0B37 

1185 0B37 

1186 0B37 

1187 0B37 

1188 0B37 

1189 0B37 

1190 0B37 

1191 0B37 

1192 0B37 

1193 0B37 0000 

1194 0B38 0000 

1195 0B39 A811 B PRLIMS 

1196 0B3A A9FC A 

1197 0B3B 8443 B 

1198 0B3C 29BD A 

1199 0B30 4CFC A 

1200 0B3E A1F9 A 

1201 0B3F 8C20 B 



.PAGE 
*********************************** **********************************$£$ 

;* * 

;* PRINT LIMITS * 

;* * 

;****************** ************ ***************************************** 

.LOCAL 



ON ENTRY: 



$VLOC: 
$CNTR: 



.WORD 

• WORD 

ST 

ST 

LD 

JSR 

LI 

ST 

LD 



R2 <— ADDRESS OF VECTOR 



R2»AVECT 

R2,$VL0C 

RltHODOA 

OUTWD 

R0,^4 

ROt$CNTR 

R3t BSEQ 
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GENLDR 



1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

12?7 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 



0B40 

0841 

0B42 

0B43 

0B44 

0B45 

0B46 

0B47 

0B48 

0B49 

0B4A 

0B4B 

0B4C 

OB 40 

0B4E 

0B4F 

0B50 

0B51 

0B52 

0B53 

0B53 

0B53 

0B53 

0B54 

OB 55 

0B56 

OB57 

0B58 

0B59 

0B5A 

0B5B 

0B5C 

0B5D 

0B5E 

0B5F 

0B5F 

0B5F 

0B5F 

OB60 

0B61 

0B62 

0B63 

OB 64 

0B65 

0B65 

0B65 

0B65 

0B66 

0B67 

0B68 

0B69 

0B6A 



89^6 

8606 

F605 

2101 

2109 

2919 

89F0 

8606 

29A2 

8035 B 

2C5C I 

89EB 

8605 

299D 

4B02 

79F7 

79E6 

79E6 

21ED 



$1 



8811 B 
8204 A 
1501 A 
2105 A 
8C23 B 
2906 A 
8811 B 
8604 A 
2981= A 
8443 B 
299C A 
0200 A 



8446 B 
299° A 

4E04 A 
2C4F I 
4BFF A 
0200 A 



4E09 A 
802F B 
2C5C I 
4AFF A 
21F0 A 
0200 A 



$2: 



LD 

LD 

SKG 

JMP 

JMP 

JSR 

LO 

LD 

JSR 

LD 

JSR 

LD 

LD 

JSR 

AISZ 

ISZ 

ISZ 

ISZ 

JMP 



R2,$VL0C 

R1,BSL0(R2) 

R1,BSHI(R2) 

.+2 

$2 

$5 

R2,$VL0C 

R1,BSL0(R2) 

OUTHEX 

P0,H003A 

(DUTCH 

R2,$VL0C 

Ri,BSHMR2) 

OUTHEX 

R3 f 2 

$VLOC 

$VLOC 

$CNTR 

$1 



PRINT ENTRY POINT 

$4: LD R2,AVECT 

LD R0,ENTPT(R2) 

BOC NZER0..+2 

JMP $4A 

LD R3,ENTEQ 

JSR $5 

LD R2,AVECT 

LD R1,ENTPT(R2) 

JSR OUTHEX 

$4A: LD R1,H0D0A 

JSR OUTWD 

RTS 



;cr-lf 



SUBROUTINE: PRINT BLANK, BLANK, CI, C2, C3, C4 (WHERE R3 — > CI) 



$5: 



LD 

JSR 

L! 

JSR 

AISZ 

RTS 



RLH2020 

OUTWD 

R2,4 

OUTANS 

R3.-1 





SUBROUTINE: PRINT 9 BLANKS 



$6: 



LI 

LD 

JSR 

AISZ 

JMP 

RTS 



R2,9 

R0,H0020 

OUTCH 

R2,-l 

.-2 





1254 0B6B 

1255 0B6B 

1256 0B6B 

1257 0B6B 

1258 0B6B 

1259 0B6B 

1260 0B6B 

1261 0B6B 

1262 0B6B 

1263 0B6B 

1264 0B6B 

1265 0B6B 4200 A LOAD: 

1266 0B6C E804 B 

1267 0B6D C903 A 



.PAGE 

? * $ 

;* SIMULATE LOAD INSTRUCTION * 

.LOCAL 



ON ENTRY: 



.IF 
PUSH 
SKG 
ADD 



R2 <— ADDRESS OF WORD TO BE LOADED INTO RO 



GENL 
R2 

R2.BSZ 
R2,BSPT 



;IF NOT IN PBASE SECTOR, SKIP 
;10AD FROM PSEUDO-BS 



20 



GENLDR 



1268 0B6E 8200 A 

1269 0B6F 4600 A 

1270 0B70 0200 A 

1271 0B71 0C43 T BSPT: 

1272 0B72 0FC5 T LOEND: 

1273 0B73 



LD 


ROt (R2) 


PULL 


R2 


RTS 





• WORD 


PBSEC 


• WORD 


GLDRE-1 



.ENDIF 



;POINTER TO PSEUDO-BS 
;END OF LOAOER 



1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 



0B73 
0B73 
OB 73 
0B73 
0873 
0B73 
0B73 
OB 73 
0B73 
0B73 
0B73 
0B73 
0B73 
0B74 
0B75 
0B76 
0B77 
0B78 
0B79 
0B7A 
0B7B 
0B7C 
0B7D 
0B7E 
0B7F 
0B80 
0B81 
0B82 
0B83 
0B84 
0B85 
OB 86 
0B87 
0B88 
OB 89 
0B8A 
0B8B 
0B8C 
0B8D 
0B8E 



E9FE A 
210A A 
E810 B 
2102 4 
2110 A 
4700 A 
4200 A 
E804 B 
C9F5 A 
A200 A 
4600 A 
0200 A 
4300 A 
8C1F B 
EB01 
21F5 
4F0F 
2909 
0000 
4700 
0200 
4300 
4F10 
2903 
0000 
47C0 
0200 



.PAGE 
.************************************************** ********************* 

}* * 

;* SIMULATE STORE INSTRUCTION * 

;* * 

• *********************************************************************** 

.LOCAL 



ON ENTRY: 



R2 < — ADDRESS OF WORD TO BE STORED 



STORE 



$1 



$2: 



$3 



.IF 

SKG 

JMP 

SKG 

JMP 

JMP 

PULL 

PUSH 

SKG 

ADD 

ST 

PULL 

RTS 

PUSH 

LD 

SKG 

JMP 

LI 

JSR 

HALT 

PULL 

RTS 

PUSH 

LI 

JSR 

HALT 

PULL 

RTS 

.ENDIF 



on s = . _ i.irtnn 

r\ \j n — nui\u 

GENL 

R2.LDEND 

$2 
R2*HTC0RE 

.+3 

$3 

R3 

R2 

R2,BSZ 

R2 t BSPT 

R0,(R2) 

R2 



R3 

R3,RLMVCT 
R2,STL0(R3) 

$1 

R3.15 

OUTMSG 

R3 


R3 
R3.16 
OUTMSG 

R3 




BE 



5RED 



*,END OF LOADER 

{UPPER LIMIT OF MFMORY 



:IF NOT IN PBASE SECTOR* SKIP 
{STORE INTO PSEUDO-BS 



; ILLEGAL AREA - SEND MESSAGE 

;and do not perform store 



;EXCEEOED MEMORY SIIF - SEND MESSAGE 
;AND DO NOT PERFORM STORE 



ON ENTRY: 



1314 0B8E 

1315 0B8E 

1316 0B8E 

1317 0B8E 

1318 0B8E 

1319 0B8E 

1320 0B8E 

1321 0B8E 

1322 0B8E 

1323 0B8E 

1324 0B8E 8443 8 OUTMSG: LD 

1325 0B8F 2C4D I JSR 

1326 0B90 CCOF B ADD 

1327 0B91 8F00 A LD 

1328 0B92 8700 A LD 

1329 0B93 2C4D I JSP 

1330 0B94 8701 A LD 

1331 0B95 2C4D I JSR 

1332 0B96 0200 A RTS 



.PAGE 
******************* ***************************************************** 

;* * 

;* OUTPUT MESSAGE TO TELETYPE PRINTER * 

;* * 

;**Q*********** ********************************************************* 

.LOCAL 



R3 < — MESSAGE ADDRESS 



R1,HODOA 

OUT WD 

R3.ATBL4 

R3.(R3J 

Rlt tR3) 

OUTWD 

R1,1(R3) 

OUTWD 





CALCULATE BASE ADDR OF MESSAGE 
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GENLDR 



1333 0B97 

1334 0B97 

1335 0B97 

1336 0B97 

1337 0B97 

1338 0B97 



.PAGE 

;* * 

;* MESSAGES AND MESSAGE SEGMENTS * 

;* * 



1339 


0B97 








•SPACE 


5 


1340 


0B97 








.IF 


GENL 


1341 


0B97 
0B98 
0B99 
0B9A 
0B9B 
0B9C 
0B9D 
0B9E 
0B9F 
OBAO 
OBAl 
0BA2 
0BA3 
0BA4 
0BA5 


4745 
4E45 
5241 
4C20 
4C4F 
4144 
4552 
2028 
5245 
562E 
4429 
2052 
4541 
4459 
2E20 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


MSGO: 


.ASCII 


•GENER 


1342 


0BA6 








.FNOIF 




1343 


0BA6 
0BA7 


4340 
4E44 


A 
A 


MSGl: 


.ASCII 


■CMND' 


1344 


0BA8 
0BA9 


454E 
5420 


A 

A 


MSG3: 


.ASCII 


• ENT • 


1345 


OBAA 
OBAB 


4348 
4152 


A 
A 


MSG5: 


.ASCII 


•CHAR' 


1346 


OBAC 
OBAO 


504E 
4348 


A 
A 


MSG6: 


.ASCII 


•PNCH* 


1347 


OBAE 
OBAF 


4352 
4452 


A 
A 


MSG7: 


.ASCII 


•CROR' 


1348 


OBBO 
0BB1 


5345 
5120 


A 
A 


MSGll: 


.ASCII 


• SEQ • 


134° 


0BB2 
0BB3 


434B 
5340 


A 
A 


MSG12: 


.ASCII 


•CKSM« 


1350 


0BB4 
0BB5 


4253 
4»=56 


A 
A 


MSG13: 


.ASCII 


•BSOV 


1351 


0BB6 
0BB7 


5453 
4F56 


A 
A 


MSG14: 


.ASCII 


«TSOV« 


1352 


0BB8 
0BB9 


5359 
4042 


A 
A 


MSG15: 


.ASCII 


•SYMB* 


1353 


0B3A 
OBBB 


4144 
4452 


A 

A 


MSG16: 


.ASCII 


• ADDR* 


1354 


OBBC 
0B8D 


4558 
544E 


A 
A 


MSG17: 


.ASCII 


•EXTN' 


1355 


OBBE 
OBBF 


4152 
4541 


A 
A 


MSG18: 


.ASCII 


•AREA' 


1356 


OBCO 
0BC1 


4045 
4020 


A 
A 


MSG19: 


.ASCII 


•MEM » 


1357 


0BC2 
0BC3 


5359 
5354 


A 
A 


MSG20: 


.ASCII 


'SYST' 


1358 


0BC4 
0BC5 


4E4D 
4252 


A 
A 


MSG21: 


.ASCII 


•NMBR' 


1359 


0BC6 
0BC7 


4452 
4F50 


A 
A 


MSG22: 


.ASCII 


•DROP' 


1360 


0BC8 
0BC9 


5054 
4348 


A 

A 


MSG23: 


.ASCII 


•PTCH' 


1361 


OBCA 
OBCB 


4253 
203D 


A 
A 


MSl: 


.ASCII 


'BS = » 


1362 


OBCC 
OBCD 


5453 
203D 


A 

A 


MS2: 


.ASCII 


•TS =• 



; SEQUENCE NUMBER ERROR 
; DROPPED CARD ERROR 
PATCH CARD FOUND MESSAGE 
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GENLDR 



1363 08CE 4153 A MS3 : 
OBCF 203D A 

1364 OBDO 5054 A MS5: 
0BD1 5230 A 

1365 0BD2 454E A MS4: 
0BD3 543D A 



.ASCII »AS = « 
.ASCII «PTR=» 
.ASCII «ENT=« 



1366 0BD4 

1367 0B04 

1368 0BD4 

1369 0B04 

1370 0BO4 

1371 0B04 



.PAGE 

;****************** ************* **************************************** 

;* * 

;* NON-BSECT DATA * 

;* * 

• ******************************************************* **************** 



INBUF: 

CROBUF: 

VCTO: 



1372 0BD4 

1373 0BD4 0BE6 

1374 0BE6 0C36 

1375 0C36 087F 
0C37 087F 
0C38 0010 A 
0C39 0120 A 
0C3A 0000 
0C3B 0000 
0C3C 7FFF 
0C3D 0000 
0C3E 7FFF 
0C3F 0000 
0C40 7FFF 
0C41 0100 
0C42 0100 
0C43 

0C43 OCAD T PBSEC: 
OCAD 

OCAD 087F 

OCAE 087F 

OCAF 0010 

OCBO 0120 

0CB1 0000 

0CB2 0000 

0CB3 7FFF 

0CB4 0000 

0CB5 7FFF 

1381 0CB6 0000 

0CB7 7FFF 

0CB8 0100 

0CB9 0100 



1376 



1377 
1378 
1379 
1380 



VCT1 



.SPACE 
.=.+18 
.=.+80 
.WORD 



;PACKED BUFFER FOR RIM RECORD 
UNPACKED BUFFER FOR CARD INPUT 
DSCLDR-l,DSCLDR-i,16,2 88,0,0,X«7FFF,0,X , 7FFF 



WORD 0,X'7FFF, 0100,0100 



.IF 

.=.+106 
.ENDIF 
.WORD 



GENL 



;PSEUDO-BASE SECTOR 



DSCLDR-1,DSCLDR-1,16,288,0,0,X«7FFF,0,X , 7FFF 



.WORD 0,X»7FFF, 0100, 0100 



1382 OCBA 

1383 OCBA 

1384 OCBA 

1385 OCBA 

1386 OCBA 

1387 OCBA 



.PAGE 

*************** ****************#**#******,)£ ^cjt^^^^^^^jjt^^^^jjcjcjtjjc^^^^^jjtjjt^^^^jjj 

;* * 

;* TABLE 2: STATE 1 COMMANDS * 

;* * 

•***********************$#* ***************************** ******** + <t ^ + ^ + ^^c 



1388 OCBA .SPACE 

1389 OCBA 214F A TBL2: .ASCII 
OCBB 4253 A 



OBS' 



23 



GENLDR 



1390 


OCBC 


08B0 


T 


1391 


OCBD 


214F 


A 




OCBE 


5453 


A 


1392 


OCBF 


08B7 


T 


1393 


OCCO 


2152 


A 




0CC1 


4C4D 


A 


1394 


0CC2 


08F9 


T 


1395 


0CC3 


2153 


A 




0CC4 


5920 


A 


1396 


0CC5 


08BF 


T 


1397 


0CC6 


2145 


A 




0CC7 


5220 


A 


1398 


0CC8 


08BC 


T 


1399 


0CC9 


2143 


A 




OCCA 


5220 


A 


1400 


OCCB 


08DD 


T 


1401 


OCCC 


2154 


A 




OCCD 


5459 


A 


1402 


OCCE 


08DF 


T 


1403 


OCCF 


2143 


A 




OCDO 


4C52 


A 


1404 


0CD1 


08 E2 


T 


1405 


0CD2 


2147 


A 




0CD3 


4F20 


A 


1406 


0CD4 


0940 


T 


1407 


0CD5 


214C 


A 




0CD6 


4D20 


A 


1408 


0CD7 


08D5 


T 


1409 


0CD8 


214E 


A 




0CD9 


4C40 


A 


1410 


OCDA 


08D3 


T 


1411 


OCDB 


2153 


A 




OCDC 


5120 


A 


1412 


OCDD 


08DA 


T 


1413 


OCDE 


214E 


A 




OCDF 


5351 


A 


1414 


OCEO 


0808 


T 


1415 


0CE1 


5858 


A 




0CE2 


5858 


A 


1416 


0CE3 


089F 


T 


1417 


0CE4 






1418 


0CE4 






1419 


0CE4 






1420 


0CE4 






1421 


0CE4 






1422 


0CE4 







CMD2: 



.WORD 
.ASCII 


OBS 
• OTS* 


.WORD 
.ASCII 


OTS 
• RLM' 


.WORD 
.ASCII 


RIM 
« SY» 


.WORD 
.ASCII 


SY 

• ER» 


.WORD 
.ASCII 


ER 
• CR» 


.WORD 
.ASCII 


CR 

• TTY» 


.WORD 
.ASCII 


TTY 
• CLR« 


.WORD 
.ASCII 


CLR 

* GO* 


.WORD 
.ASCII 


GO 
• LM' 


.WORD 
.ASCII 


LM 

» NLM» 


.WORD 
.ASCII 


NLM 
• SO' 


.WORD 
.ASCII 


SEQ 
1 NSQ» 


.WORD 
.ASCII 


NSEQ 

•xxxx* 



.WORD 



INVCMD 



.PAGE 

;************************************************** ********************* 

;* * 

:* TABLE 3: EBCDIC TO ANSI CONVERSION TABLE * 

;* * 

************************************************************************ 



1423 


0CE4 






1424 


0CE4 


0000 


A 


1425 


CCE5 


0482 


A 


1426 


0CE6 


0200 


A 


1427 


0CE7 


0100 


A 


1428 


0CE8 


0080 


A 


1429 


0CE9 


0040 


A 


1430 


OCEA 


0020 


A 


1431 


OCEB 


0010 


A 


1432 


OCEC 


0008 


A 


1433 


OCED 


0004 


A 


1434 


OCEE 


0002 


A 


1435 


OCEF 


0001 


A 


1436 


OCFO 


0900 


A 



TBL3 



.SPACE 


5 


.WORD 


0000 


.WORD 


048 2; 


.WORD 


0200; 


.WORD 


0100; 


.WORD 


0080; 


.WORD 


0040; 


.WORD 


0020; 


.WORD 


ooio; 


.WORD 


0008; 


.WORD 


0004; 


.WORD 


0002; 


.WORD 


oooi; 


.WORD 


0900; 



;SPACE 
EXCLAMATION 11-2-8 

1 
2 
3 
4 
5 
6 
7 
8 
9 
A 12-1 



24 



GENLDR 



1437 


0CF1 


6880 


A 


.WORD 


0880; 


1438 


0CF2 


0840 


A 


.WORD 


0840; 


1439 


0CF3 


0820 


A 


.WORD 


0820; 


1440 


0CF4 


0810 


A 


.WORD 


0810; 


1441 


0CF5 


0808 


A 


• WORD 


0808; 


1442 


0CF6 


0804 


A 


.WORD 


0804; 


1443 


0CF7 


0802 


A 


.WORD 


0802; 


1444 


0CF8 


0801 


A 


.WORD 


0801; 


1445 


0CF9 


0500 


A 


.WORD 


0500; 


1446 


OCFA 


0480 


A 


.WORD 


0480; 


1447 


OCFB 


0440 


A 


.WORD 


0440; 


1448 


OCFC 


0420 


A 


.WORD 


0420; 


1449 


OCFD 


0410 


A 


.WORD 


0410; 


1450 


OCFE 


0408 


A 


.WORD 


0408; 


1451 


OCFF 


0404 


A 


.WORD 


0404; 


1452 


ODOO 


0402 


A 


.WORD 


0402; 


1453 


0D01 


0401 


A 


.WORD 


0401; 


1454 


0002 


0280 


A 


.WORD 


0280; 


1455 


00 03 


0240 


A 


.WORD 


0240; 


1456 


0004 


0220 


A 


.WORD 


0220; 


1457 


0D05 


0210 


A 


.WORD 


0210; 


1458 


0006 


0208 


A 


.WORD 


0208; 


1459 


0D07 


0204 


A 


.WORD 


0204; 


1460 


0D08 


0202 


A 


.WORD 


0202; 


1461 


0009 


0201 


A 


.WORD 


0201; 



B 


12-2 


c 


12-3 


D 


12-4 


E 


12-5 


F 


12-6 


G 


12-7 


H 


12-8 


I 


12-9 


J 


11-1 


K 


11-2 


L 


11-3 


M 


11-4 


N 


11-5 





11-6 


p 


11-7 


Q 


11-8 


R 


11-9 


s 


0-2 


T 


0-3 


u 


0-4 


V 


0-5 


w 


0-6 


X 


0-7 


Y 


0-8 


z 


0-9 



1462 ODOA 

1463 ODOA 

1464 ODOA 

1465 ODOA 

1466 ODOA 

1467 ODOA 



.PAGE 
;* TABLE 4: ERROR MESSAGE ADDRESSES * 



1468 


ODOA 






.SPACE 


5 


1469 


ODOA 


OB 97 


T TBL4: 


.WORD 


MSGQ 


1470 


ODOB 


0BA6 


T 


.WORD 


MSG1 


1471 


ODOC 


0000 


A 


.WORD 





1472 


ODOD 






.ENDIF 




1473 


ODOD 


0BA8 


T 


.WORD 


MSG3 


1474 


ODOE 


OBAA 


T 


.WORD 


MSG5 


1475 


ODOF 


OBAC 


T 


.WORD 


MSG6 


1476 


0010 


OBAE 


T 


.WORD 


MSG7 


1477 


0D11 


0000 


A 


• WORD 





1478 


0D12 






.ENDIF 




1479 


0D12 


OBBO 


T 


.WORD 


MSG11 


1480 


0D13 


0BB2 


T 


.WORD 


MSG12 


1481 


0D14 


0BB4 


T 


.WORD 


MSG13 


1482 


0D15 


0BB6 


T 


.WORD 


MSG14 


1483 


0D16 


0BB8 


T 


.WORD 


MSG15 


1484 


0D17 


OBBA 


T 


.WORD 


MSG16 


1485 


0D18 


OBBC 


T 


.WORD 


MSG17 


1486 


0D19 


OBBE 


T 


.WORD 


MSG18 


1487 


0D1A 


OBCO 


T 


.WORD 


MSG19 


1488 


0D1B 


0BC2 


T 


.WORD 


MSG20 


1489 


0D1C 


0BC4 


T 


.WORD 


MSG21 


1490 


0D1D 


0BC6 


T 


.WORD 


MSG22; 


1491 


0D1E 


0BC8 


T 


.WORD 


MSG23; 



;THIS MESSAGE NOT APPLICABLE 



INDEX 19 NOT 22 
INDEX 20 NOT 23 
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GENLDR 



1492 


001F 








.PAGE 




1493 


0D1F 






• sQcsksksksQcsksQcsflesAcsAcsficskjBesk sficjQcjBc^EcsBcsficsficsSc^ficsSc 


1494 


0D1F 






;* 






1495 


0D1F 






;* BSECT VARIABLES 


1496 


0D1F 






;* 






1497 


001F 






; $#$*$*$******* **** ****** 


1498 


00 IF 








.BSECT 




1499 


0000 


0000 


A 


LOWl: 


.WORD 





1500 


0001 








.IF 


GENL 


1501 


0001 


0000 


A 


ENTY: 


.WORD 





1502 


0002 


087F 


T 


HIGH1 


: .WORD 


OSCLDR-1 


1503 


0003 


0FC6 


T 


L0W2: 


.WORD 


GLDRE 


1504 


0004 


0069 


A 


BSZ: 


.WORD 


105 


1505 


0005 








.ENDIF 




15 06 


0005 


3FFF 


A 


HIGH2 


: .WORD 


X«3FFF 


1507 


0006 


0CE1 


T 


ACM 02 


: .WORD 


CMD2 


1508 


0007 


0B04 


T 


AINBUF: .WORD 


INBUF 


1509 


0008 


0C35 


T 


ENOBUF: .WORD 


CRDBUF+79 


1510 


0009 


0000 


A 


SEQCK 


: .WORD 





1511 


OOOA 


0A79 


T 


NUMB: 


.WORD 


NMBR-1 


1512 


0006 


0000 


A 


CRDFLG: .WORD 





1513 


OOOC 


OCBA 


T 


ATBL2 


: .WORD 


TBL2 


1514 


OOOD 


0CE4 


T 


ATBL3 


: .WORD 


TBL3 


1515 


OOOE 


0D09 


T 


ETBL3 


: .WORD 


TBL3+37 


1516 


OCOF 


OOOA 


T 


ATBL4 


: .WORD 


TBL4 


1517 


0010 


0BE6 


T 


ACRDBUF:.WORD 


CRPBUF 


1518 


0011 


0000 


A 


AVECT 


: .WORD 





1519 


0012 


0000 


A 


INDEVF: .WORD 





1520 


0013 


0000 


A 


LIMFLG: .WORD 





1521 


0014 


0000 


A 


PTRLO 


: .WORD 





1522 


0015 


0000 


A 


PTRHI 


: .WORD 





1523 


0016 


0000 


A 


START 


: .WORD 





1524 


0017 


0000 


A 


STATE 


: .WORD 





1525 


0018 


0000 


A 


STLOW 


: .WORD 





1526 


0019 


0000 


A 


VALCNT: .WORD 





1527 


001A 


0000 


A 


VALFLG: .WORD 





1528 


001B 


0000 


A 


WOCNT 


: .WORD 





1529 


001C 


0000 


A 


TEMPI 


: .WORD 





1530 


001D 


3FFF 


A 


HICORE: .WORD 


16383 


1531 


001E 


0C36 


T 


INVCT 


: .WORD 


VCTO 


1532 


001F 


OCAO 


T 


RLMVCT: .WORD 


VCT1 


1533 


0020 


OBCA 


T 


BSEQ: 


.WORD 


MSI 


1534 


0021 


OBCC 


T 


TSEQ: 


.WORD 


MS2 


1535 


0022 


OBCE 


T 


ASEQ: 


.WORD 


MS3 


1536 


0023 


0B02 


T 


ENTEO 


: .WORD 


MS4 


1537 


0024 


OBDO 


T 


PTREQ 


: .WORD 


MS5 


1538 


0025 


0000 


A 


HOOOO 


: .WORD 


0000 


1539 


0026 


0002 


A 


H0002 


.WORD 


0002 


1540 


0027 


0004 


A 


H0004 


: .WORD 


0004 


1541 


0028 


0008 


A 


H0008 


: .WORD 


0008 


1542 


0029 


0009 


A 


H0009 


: .WORD 


X»9 


1543 


002A 


OOOA 


A 


HOOOA 


: .WORD 


OOOA 


1544 


002B 


0000 


A 


HOOOD 


: .WORD 


OOOD 


1545 


002C 


0011 


A 


H0011 


: .WORD 


0011 


1546 


002D 


0013 


A 


H0013 


: .WORD 


0013 


1547 


0G2E 


001F 


A 


H001F 


: .WORD 


001F 


1548 


002F 


0020 


A 


H0020 


.WORD 


0020 


1549 


0030 


0021 


A 


H0021 


.WORD 


0021 


1550 


0031 


002F 


A 


H002F 


: .WORD 


002 F 


1551 


0032 


0030 


A 


H0030: 


.WORD 


0030 


1552 


0033 


0037 


A 


H0037 


: .WORD 


0037 


1553 


0034 


0039 


A 


H0039' 


.WORD 


0039 


1554 


0035 


003A 


A 


H003A: 


.WORD 


003A 


1555 


0036 


0040 


A 


H0040. 


. .WORD 


0040 


1556 


0037 


0046 


A 


H0046: 


.WORD 


0046 


1557 


003 8 


004D 


A 


H004D: 


.WORD 


004D 


1558 


0039 


0055 


A 


H0055 


.WORD 


0055 


1559 


003A 


0059 


A 


H0059: 


.WORD 


0059 



; NON-ZERO ENTRY POINT 



;END OF BASE SECTOR 
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1560 


003B 


005F 


A 


H005F: 


• WORD 


005F 


1561 


003C 


0070 


A 


H007D: 


.WORD 


007D 


1562 


0030 


007E 


A 


H007E: 


.WORD 


007E 


1563 


003E 


007F 


A 


H007F: 


.WORD 


007F 


1564 


003F 


0080 


A 


H0080: 


.WORD 


0080 


1565 


0040 


OOCO 


A 


HOOCO: 


.WORD 


OOCO 


1566 


0041 


OOFF 


A 


HOOFF: 


.WORD 


OOFF 


1567 


0042 


0100 


A 


H0100: 


.WORD 


0100 


1568 


0043 


0O0A 


A 


HODOA: 


.WORD 


ODOA 


1569 


0044 


13FF 


A 


H13FF: 


.WORD 


X'13FF 


1570 


0045 


1F00 


A 


H1F00: 


.WORD 


XUFOO 


1571 


0046 


2020 


A 


H2020: 


.WORD 


X«2020 


1572 


0047 


8000 


A 


H8000: 


.WORD 


X»8000 


1573 


0048 


AOOO 


A 


HAOOO: 


.WORD 


X'AOOO 


1574 


0049 


FOOO 


A 


HFOOO: 


.WORD 


X'FOOO 


1575 


004A 


FFOO 


A 


HFFOO: 


.WORD 


X'FFOO 


1576 


004B 


FFEE 


A 


HFFEE: 


.WORD 


X'FFEE 



1577 004C 

1578 004C 

1579 004C 

1580 004C 

1581 004C 

1582 004C 



.PAGE 
.***#***************************************** ************************** 

• * * 

;* EQUATES * 

;* * 

************************************************************************ 



1583 


004C 








.SPACE 5 


1584 


004C 


0000 


A 


RO = 




1585 


004C 


0001 


A 


Rl = 


1 


1586 


004C 


0002 


A 


R2 = 


2 


1587 


004C 


0003 


A 


R3 = 


3 


1588 


004C 


0000 


A 


MO = 





1589 


004C 


0001 


A 


Ml = 


1 


1590 


004C 


0002 


A 


M2 = 


2 


1591 


004C 


0003 


A 


M3 = 


3 


1592 


004C 


0004 


A 


M4 = 


4 


1593 


004C 


0005 


A 


M5 = 


5 


1594 


004C 


0006 


A 


M6 = 


6 


1595 


004C 


0007 


A 


M7 = 


7 


1596 


004C 


0008 


A 


M8 = 


8 


1597 


004C 


0009 


A 


M9 = 


9 


1598 


004C 


OOOA 


A 


M10 = 


= 10 


1599 


004C 


0007 


A 


ML = 


7 


1600 


04C 


0014 


A 


LDMS] 


. = 20 


iDUi 


004C 


0009 


A 


LDMS2 = 9 


1602 


004C 


OOOF 


A 


L0MS3 = 15 


1603 


04C 


0009 


A 


LDMS4 = 9 


1604 


004C 


0000 


A 


STHI 


= 


1605 


004C 


0001 


A 


STLO 


= 1 


1606 


004C 


0002 


A 


BSO -- 


= 2 


1607 


004C 


0003 


A 


TSO = 


= 3 


1608 


004C 


0004 


A 


ENTPT = 4 


1609 


004C 


0005 


A 


BSHI 


= 5 


1610 


004C 


0006 


A 


BSLO 


= 6 


1611 


004C 


0007 


A 


TSHI 


= 7 


1612 


004C 


0008 


A 


TSLO 


= 8 


1613 


004C 


0009 


A 


ASHI 


= 9 


1614 


04C 


OOOA 


A 


ASLO 


= 10 


1615 


004C 


OOOB 


A 


PTRN 


= 11 


1616 


004C 


OOOC 


A 


PTPP 


= 12 


1617 


004C 


OOOD 


A 


LVCT 


= 13 


1618 


004C 


0028 


A 


LBST 


= 40 
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1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 



04C 
004C 
004C 
004C 
004C 
004C 
004C 
004C 
004C 
004C 
00 4C 
004C 
004C 
004C 
004C 
004C 
00 4C 
004C 
004C 
004C 
004C 
004C 
004C 
04C 
004C 
004C 



0001 
0005 
000C 
0001 
0002 
0003 
0004 
0005 
0007 
0008 
0C08 
0010 
0018 
0018 



0029 
0012 
0070 
0009 
0016 
0026 
0038 



ZRO = 1 

NZERO = 5 

POA = 12 

STATUS 

READ = 

READCK 

SETADR 

RESET 

WRITE 

TTYPE 

PT 

CAR OR 

DISC = 3*8 

GPCS 

.IF 



= 1 
2 

= 3 
= 4 

= 5 
= 7 

= 1*8 

= 2*8 



1*8 



018 
IMP16L 



IMP-16L TTY CONSTANTS 

TA = 41 

TB = 18 

TC = 112 

EA = 9 

EB = 22 

EC = 38 

TTYAD = 7*8 
.ENDIF 



1645 

1646 

1647 

1648 

1649 

1650 

16 51 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 



004C 
004C 
001F 
001F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
001F 
001F 

oniF 

0D1F 
0D20 
0D20 
0020 
0020 
0D20 
0020 
0020 
0D20 
0D20 
0020 
0020 
0D20 
0D20 
0020 
0020 
0D20 
0D20 
0D20 
0020 
0020 
0D20 
0D20 
0020 
0D20 
0020 
0020 
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t ********** LODRFC *********** 


.TSECT 




; LODREC 


IMP-16 OBJECT RECORD PROCESSOR 



0002 A PZRO 

0003 A ODD 

0004 A BIT1 
OOOB A NZRO 

0005 A NEZ 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 



.LOCAL 

RELOCATES AND LINK-EDITS A SINGLE OBJECT RECORD OF AN IMP-16 
RELOCATABLE LOAD MODULE(RLM). RECORD FORMATS ARE DESCRIBED IN 
APPENDIX A OF ASSEMBLER USERS MANUAL. MAY BE CALLED AS MANY 
TIMES AS NECESSARY TO PROCESS ONE OR MORE RLM'S. 



2112 A LODREC: JMP 



LDR1 



0012 A 
0048 A 



JUMP CONDITIONS 
2 
3 
4 
11 
5 

OUTPUT VECTOR CONTENTS 

SYMT0P=0 

SYMB0T=1 

BSL0C=2 

TSL0C=3 

ENTRY=4 

HIBAS=5 

L0BAS=6 

HIT0P=7 

L0T0P=8 

HIABS=9 

L0ABS=10 

INDC=11 

PB0T=12 

MRCDL=18 
0RCDL=72 



;T0P LIMIT OF SYMBOL TABLE 
;BOTTOM LIMIT OF SYMBOL TABLE 
:BASE SECTOR ORIGIN 
;TOP SECTOR ORIGIN 



;bottom pointer address 
;maximum input record length 
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1684 


0020 


OOOC 


A 


1685 


0D20 






1686 


0D20 






1687 


0D20 






1688 


0020 


0000 


A 


1689 


0020 


0001 


A 


1690 


0D20 


0002 


A 


1691 


0D20 


0003 


A 


1692 


0D20 






1693 


0020 






1694 


0020 






1695 


0020 


0001 


A 


1696 


0020 


0002 


A 


1697 


0D2O 


0003 


A 


1698 


0D20 


0004 


A 


1699 


0D20 


0005 


A 


1700 


0020 


0006 


A 


1701 


0020 


0007 


A 


1702 


0D20 






1703 


0020 


0008 


A 


1704 


0D20 


0009 


A 


1705 


0D20 


000A 


A 


1706 


0020 






1707 


0020 






1708 


0020 






1709 


0020 






1710 


0020 


0000 


A 


1711 


0D20 


0001 


A 


1712 


0020 






1713 


0D20 






1714 


0D20 






1715 


0020 


0002 


A 


1716 


0020 


0003 


A 


1717 


0020 


0004 


A 


1718 


0020 


0007 


A 


1719 


0020 






1720 


0020 






1721 


0020 






1722 


0D20 


0002 


A 


1723 


0D20 


0003 


A 


1724 


0020 


0006 


A 


1725 


0020 


0007 


A 


1726 


0020 


00 OA 


A 


1727 


0020 


OOOB 


A 


1728 


0020 


OOOE 


A 


1729 


0020 






1730 


0020 






1731 


00 20 






1732 


0D20 


0002 


A 


1733 


0020 


0003 


A 


1734 


0020 


0004 


A 


1735 


0D20 


0005 


A 


1736 


0020 


0006 


A 


1737 


0020 






1738 


0D20 






1739 


0020 






1740 


0020 


0002 


A 


1741 


0020 


0003 


A 


1742 


0020 






1743 


0D20 






1744 


0020 






1745 


0020 






1746 


0020 


0D2B 


T 


1747 


0020 


0E29 


T 



VECL=12 

PROGRAM EXITS 

ERR=0 
TITLE=l 
E0M=2 
NRML=3 

ERROR CODES 

RSEQ=1 

CKSUM=2 

BS0V=3 

TS0V=4 

SYM0V=5 

ADDR=6 

XREF=7 

AREA=8 
C0RE=9 
SYST=10 
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INPUT RECORD FORMAT 

RCDL=0 
CKSM=1 

FOR TITLE RECORD 



BSSIZ=2 
TSSIZ=3 
PNAM=4 
QCSTR=7 



FOR SYMBOL RECORD 



SREL0C=2 
SYM1=3 

\l*l_ 1 = £ 

SYM2=7 
VAL2=10 
SYM3=11 
VAL3=14 



FOR DATA RECORD 



ILATYP=2 

ILA=3 

DTYP1=4 

0TYP2=5 

DATA=6 



FOR END RECORD 



ENTYP=2 
ENTYAD=3 



; ERROR 

;TITLE RECORD PROCESSED 

;END OF RLM 

;NORMAL 



;record sequence 
; checksum 

;base sector overflow 

j top sector overflow 

; symbol table overflow 

;adoressing 

;ref NBR OF external not found 

UN SYMBOL TABLE 
;LOAOING IN ILLEGAL AREA 
'.EXCEEDED CORF SIZE 
;SYSTEM MALFUNCTION 



; RECORD TYPE AND LENGTH 
CHECKSUM 



;base sector size 

;top sector size 

; program name - 3 words 

;qual. char, string - 11 words 



relocation data 
;name of symbol 1 

wai lie nc c\/uoni 



» ¥ « l_WI_ »_)1 



O I I-1DUL 



;NAME OF SYMBOL 2 
;VALUE OF SYMBOL 2 
;NAME OF SYMBOL 3 
;VALUE OF SYMBOL 3 



;load adoress relocation type 

;load address 

;data reloc word i 

;data reloc word 2 

;DATA 



;ENTRY ADDRESS RELOCATION TYPE 
; ENTRY ADDRESS 



SYMBOL TYPES - RELOCATION INFO 

ABS=DO 
EXT=D3 
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1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 



0D20 

0D20 

0020 

0D20 

0020 

0020 

0020 

0020 

0020 

0020 

0D20 

0D20 

0020 

0020 

0D20 

0020 

0020 

0020 

0020 

0020 

0020 

0021 

0D21 

0022 

0022 

0D23 

0024 

0025 

0T>25 

0025 

0025 

0026 

0027 

0028 

0028 

0029 

0D29 

00 2 A 

002B 

0D2B 

00 2B 

002B 

002C 

0020 

0D2E 

0D2F 

0D30 

0D31 
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SYMBOL TABLE ENTRY FORMAT 



FFFC A 
FFFD A 
FFFE A 
FFFF A 
FFFF A 



0000 A 
0000 A 
0005 A 



0D21 T RTYP: 
0000 A LSTATE 



0D23 
0024 
0025 



0D25 
0027 
0D28 



TEMP: 

TEMP2: 

TEMP3: 



BASE: 

BSMAX: 

TSMAX: 



OOFP A BOTEXT 



0000 
0E2C 



0000 
0003 
0004 
0008 
001E 
0100 
2020 



EXTLIM 
$RLADD 



DO: 

$03: 

$D4: 

$D8: 

D30: 

0256: 

$BLANKS: 



NAMl=-4 

NAM2=-3 

NAM3=-2 

REFNR=-1 

FLAGS=-1 



RCHAIN=0 

VALU=0 

SYMNWE=5 



;CHARS 1 AND 2 OF SYMBOL TAG 
;CHARS 3 AND 4 OF SYMBOL TAG 
;CHARS 5 AND 6 OF SYMBOL TAG 
;EXT. REFERENCE NUMBER (BITS 8-15) 
;FLAGS (BITS 0-7) 

BIT DEFINED 

BIT 1 INDIRECT PNTR GENERATED 

BIT 2 SYMBOL MULTIPLY DEFINED 

;CHAIN OF UNRESOLVED REFERENCES ( BI T 0=0) 

; SYMBOL ADDRESS (BIT0=1) 

;NBR OF WORDS PER ENTRY IN SYMB TABLE 



LOCAL VARIABLES 

RECORD TYPE OF RECORD BEING PROCESSED 

. = . + 1 

CURRENT LOADER STATE 

.WORD 

TEMPORARY WORKING LOCATIONS 

.=.+1 

. = .+1 

. = .+1 



COMMON DATA AREA 



.WORD 
.= . + 1 
. = .+1 

NEXT AVAILABLE 
.WORD 255 
LAST AVAILABLE 
.WORD 
.WORD RLTH 



;BASE ADDRESS 

;BASE SECTOR EXTENT FOR CURRENT RLM 
;TOP SECTOR EXTENT FOR CURRENT RLM 
SLOT FOR INDIRECT POINTER 

SLOT FOR INDIRECT POINTER 



CONSTANTS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.ASCII 





3 

4 

8 

30 

256 



1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 



0D32 
0D32 
0032 
0032 
0D32 A147 

0033 A547 

0034 A947 

0035 AD47 

0036 89EE 
0D37 4200 
0D38 8967 
0D39 8200 
003A 5C02 
0D3B 5CFE 
0D3C B1ED 
0D30 8200 
0D3E 5802 
0D3F 61 EC 



LORl: 
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INITIAL RECORD PROCESSING 



ST 


RO,$SVRO 


ST 


R1,$SVR1 


ST 


R2,$SVR2 


ST 


R3 f $SVR3 


LD 


R2.BASE 


PUSH 


R2 


LD 


R2,INL0C 


LD 


R0,RCDL(R2) 


SHL 


R0,2 


SHR 


R0.2 


ST 


R0t3$RLADD 


LD 


R0,RCDL(R2) 


ROL 


R0t2 


AND 


R0,$D3 



;save 



;SAVE BASE ADDRESS OF COMMON AREA 

;LOC OF INPUT BUFFER 

;SPLIT RECORD LENGTH AND TYPE 
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1814 0D40 A10F A 




ST 


ROtRTYP 


1815 0041 895E A 




LD 


R2t INLOC 


1816 0D42 91E7 A 




LO 


R0t3$RLADD 


1817 0043 AIDE A 




ST 


ROtTEMP 


1818 0D44 8201 A 




LD 


R0»CKSM(R2) 


1819 0045 HOB A 




BOC 


ZR0,$25A 


1820 0046 C90B A 




ADD 


R2tTEMP 


1821 0D47 4A01 A 




A1SZ 


R2,l 


1822 0048 0200 A 


$25: 


SUB 


R0,(P2) 


1823 0049 4AFF A 




AISZ 


R2,-l 


1824 0D4A 7007 A 




DSZ 


TEMP 


1825 004B 21FC A 




JMP 


$25 


1826 004C 1501 A 




BOC 


NEZt.+2 


1827 0D40 2103 A 




JMP 


$25A 


1828 004E 4F02 A 




LI 


R3tCKSUM 


1829 0D4F 4400 A 




PULL 


RO 


1830 0D50 0200 A 




PTS 


ERR 


1831 0051 89CF A 


$2 5A: 


LO 


R2*LSTATF 


1832 0D52 81C0 A 




LO 


RO,RTYP 


1833 0D53 2922 A 




JSR 


SWITCH 


1834 0054 0D57 T 




.WORD 


$10 


1835 0055 0D5B T 




.WORD 


$12 


1836 0056 0D61 T 




.WORD 


$14 


1837 0057 1110 A 


$10: 


BOC 


ZRO t $21 


1838 0058 4F01 A 


$11: 


LI 


R3,RSEQ 


1839 0059 4400 A 




PULL 


RO 


1840 0D5A 0200 A 




RTS 


ERR 


1841 0D5B 3281 A 


$12: 


RCPY 


R0,R2 


1842 0D5C 2919 A 




JSR 


SWITCH 


1843 0D5D 0D58 T 




.WORD 


$11 


1844 0D5E 0D6C T 




• WORD 


$23 


1845 0D5F 0D6A T 




.WORD 


$22 


1846 0060 0066 T 




• WORD 


$20 


1847 0061 48FE A 


$14: 


AISZ 


R0.-2 


1848 0062 2101 A 




JMP 


. + 2 


1849 0063 2108 A 




JMP 


$23 


1850 0064 1201 A 




BOC 


PZP0,$20 


1851 0065 21F2 A 




JMP 


$11 


1852 0066 4C00 A 


$20: 


LI 


R0,0 


1853 0067 2105 A 




JMP 


$24 


1854 0068 4C01 A 


$21: 


LI 


ROtl 


1855 0069 2103 A 




JMP 


$24 


1856 006A 4C02 A 


$22: 


LI 


R0,2 


1857 0D6B 2101 A 




JMP 


$24 


1858 0D6C 81B4 A 


$23: 


LO 


RO,LSTATE 


1859 0D6D A1B3 A 


$24: 


ST 


RO,LSTATE 


1860 0D6E 89B1 A 




LD 


R2tRTYP 


1861 0D6F 3881 A 




RCPY 


R2tR0 


1862 0070 852F A 




LD 


Rl, INLOC 


1863 0071 2904 A 




JSR 


SWITCH 


1864 0D72 0D7E T 




.WORD 


$TITL 


1865 0073 0DA3 T 




.WORD 


$SYMB 


1866 0074 0E3F T 




.WORD 


$DAT 


1867 0075 0F70 T 




.WORD 


$END 


1868 0076 








1869 0076 




JUMP 


TO CALL+1+ 


1870 0076 








1871 0D76 5400 A 


SWITCH 


: XCHRS 


RO 


1872 0D77 3200 A 




RADO 


R0tR2 


1873 0078 4400 A 




PULL 


RO 


1874 0D79 2600 A 




JMP 


3(R2) 


1875 0D7A 


» 






1876 007A 0D7B T 


$SVRO: 


.=.+1 


♦.REGISTER 


1877 007B 0D7C T 


$SVRi: 


. = . + 1 




1878 0D 7 C 0070 T 


$SVR2: 


.=. + 1 




1879 0070 007E T 


$SVR3: 


. = . + 1 





;CHECK RECORD CHECKSUM 



; IGNORE CHECKSUM 

;TEMP CONTAINS RECORD LENGTH 



;CHECKSUM ERROR 
;CHECKSUM ERROR 

:TEST RECORD SEQUENCE 



STATE 

STATE 1 

STATE 2 
TITLE RECORD LEGAL 
RECORD SEQUENCE ERROR 



; TITLE RECORO - ERROR 

: CONTINUE SAME STATE 

; CHANGE TO STATE 2 

; CHANGE TO STATE 



; NO CHANGE OF STATE 

;END RECORD - CHANGE TO STATE 

;RECORO SEQUENCE ERROR 

;SET STATE 

;SET STATE 1 

;SET STATE 2 

;RETAIN CURRENT STATE 



:RECORD RELOC TYPE 

;PASS TO 'DATA REC PROCESSOR* 

; TITLE RECORD 

; SYMBOL RECORO 

; DATA RECORO 

: END RECORO 
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1880 0D7E 
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1881 0D7E 








1882 0D7E 




PROCESS TITLE RECORD 


1883 0D7E 








1884 0D7E 8302 A 


$TITI_: 


LD 


R0,BSLOC(R3) 


1885 0D7F E306 A 




SKG 


R0tL0BAS(R3) 


1886 0D80 A306 A 




ST 


R0,L0BAS(R3) 


1887 0081 830B A 




LD 


R0 f INDC(R3) 


1888 0082 A1A5 A 




ST 


ROtBOTEXT 


1889 0D83 8705 A 




LD 


R1,HIBAS(R3) 


1890 0D84 F041 B 




SKNE 


R0,H00FF 


1891 0D85 A5A3 A 




ST 


RltEXTLIM 


1892 0D86 8919 A 




LO 


R2, INLOC 


1893 0D87 8302 A 




LD 


R0,BSLOC(P3) 


1894 0088 C202 A 




ADD 


R0*BSSIZ(R2) 


1895 0D89 C15A A 




ADD 


R0,MIN1 


1896 0D8A 4600 A 




PULL 


R2 


1897 0D8B A201 A 




ST 


ROt BSMAX-BASE 


1898 0D8C E305 A 




SKG 


R0»HIBAS(R3) 


1899 0D8D 2105 A 




JMP 


$36 


1900 0D8E E203 A 




SKG 


ROtBOTEXT-BAS 


1901 0O8F 2102 A 




JMP 


$34 


1902 0090 4F03 A 




LI 


R3,BS0V 


1903 0D91 0200 A 




RTS 


ERR 


1904 0092 A305 A 


$34: 


ST 


R0,HIBAS(R3) 


1905 0093 8303 A 


$36: 


LD 


R0,TSLOC(R3) 


1906 0094 E308 A 




SKG 


R0,LOTOP(R3) 


1907 0D95 A308 A 




ST 


R0,L0T0P(R3) 


1908 0D96 4200 A 




PUSH 


R2 


1909 0097 8908 A 




LD 


R2 f INLOC 


1910 0098 C203 A 




ADD 


R0,TSSIZ(R2) 


1911 0099 C14A A 




ADD 


R0.MIN1 


1912 0D9A 4600 A 




PULL 


R2 


1913 0D9B A202 A 




ST 


R0,TSMAX-BASE 


1914 0D9C E307 A 




SKG 


P0,HIT0P(R3) 


1915 0090 2101 A 




JMP 


$40 


1916 0D9E A307 A 


$38: 


ST 


R0tHITOP(R3) 


1917 0D9F 0201 A 


$40: 


RTS 


TITLE 


1918 0DA0 
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1919 ODAO 








1920 OOAO 




PROCESS 


SYMBOL RECORD 


1921 OOAO 








1922 ODAO 0804 T 


INLOC: 


.WORD 


INBUF 


1923 0DA1 0000 A 


RELTYP: 


.WORD 





1924 0D42 2000 A 


BIT2: 


.WORD 


X«2000 


1925 00A3 89FC A 


$SYMB: 


LD 


P2, INLOC 


1926 00A4 A93C A 




ST 


R2 f SYMNO 


1927 0OA5 9184 A 




LD 


RO,a$RLAOD 


1928 00A6 3800 A 




RADO 


R2,R0 


1929 0DA7 48FE A 




AISZ 


R0.-2 


1930 00A8 A13A A 




ST 


ROtlNLIM 


1931 0DA9 8202 A 




LD 


R0,SREL0C(R2) 


1932 ODAA A1F6 A 




ST 


RO, RELTYP 


1933 ODAB 8203 A 


$45: 


LD 


R0,SYM1(R2) 


1934 ODAC 1126 A 




BOC 


ZR0,$63 


193 5 OOAO A137 A 




ST 


RO.SYMNl 


1936 ODAE 8204 A 




LD 


R0tSYMl+l(R2) 


1937 OOAF A136 A 




ST 


R0.SYMN2 


1938 OOBO 8205 A 




LD 


R0,SYM1+2<R2) 


1939 0DB1 A135 A 




ST 


R0,SYMN3 


1940 00B2 85EE A 




LD 


Rl, RELTYP 


1941 00B3 5902 A 




ROL 


Rl,2 


1942 0DB4 A5EC A 




ST 


RltRELTYP 


1943 0DB5 6573 A 




AND 


R1.D3 


1944 00B6 293F A 




JSR 


SEARCH 


1945 0D87 210E A 




JMP 


$48 



;R3 CONTAINS PARAM VECTOR ADDRESS 
JTEST B/S ORIGIN AGAINST LIMIT 

UNITIALIZE IND POINTER START ADDR 



;HAS PNTR ADDR BEEN RESET? 
:YFS, RESET LIMIT VALUE 



;CHECK BSECT SPACE REQUIRED 

:BASE ADDRESS OF COMMON AREA 
(R2) 

;ENOUGH SPACE AVAILABLE 
E(R2) ;CHECK INDIR. POINTER AREA 
;SPACE AVAILABLE - RESET HIBAS 
;BSECT OVERFLOW 



;CHECK TSECT SPACE REQUIRED 
;TEST T/S ORIGIN AGAINST LIMIT 



(R2) UNITIALIZE FOR THIS RLM 
JENOUGH SPACE AVAILABLE 



; SYMBOL INDEX 



; RECORD DONE 



RELOCATION TYPE 



;SEARCH SYMBOL TABLE 
:SYMBOL TABLE OVERFLOW 
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1946 


0DB8 


2110 


A 




JMP 


$55 


1947 


0DB9 


E53A 


A 




SKG 


R1,$TSREL 


1948 


QDBA 


2105 


A 




JMP 


$47 


1949 


OOBB 


8025 


A 


$46: 


LO 


R3, SYMNO 


1950 


ODBC 


8306 


A 




LD 


R0tVALKR3) 


1951 


OOBD 


6AFF 


A 




OR 


R0,REFNR(R2) 


1952 


OOBE 


A2FF 


A 




ST 


R0,REFNR(R2) 


1953 


OOBF 


2100 


A 




JMP 


$60 


1954 


ODCO 


82FP 


A 


$47: 


LD 


R0»FLAGS(R2) 


1955 


00C1 


1213 


A 




BOC 


PZR0,$65 


1956 


0DC2 


86FF 


A 




LD 


R1,FLAGS(R2) 


1957 


0DC3 


6DDE 


A 




OR 


R1.BIT2 


1958 


0DC4 


A6FF 


A 




ST 


R1,FLAGS(R2) 


1959 


00C5 


2107 


A 




JMP 


$60 


1960 


0DC6 


4F05 


A 


$48: 


LI 


R3,SYM0V 


1961 


0DC7 


4400 


A 




PULL 


RO 


1962 


00C8 


0200 


A 




RTS 


ERR 


l n jl ^ 


0DC9 






, 


SYMBOL 


NOT FOUND 


1 7DJ 






» 






1964 


0DC9 


F55F 


A 


$55: 


SKNE 


R1,EXT 


1965 


OOCA 


21F0 


A 




JMP 


$46 


1966 


OOCB 


2910 


A 




JSR 


SYMBOL 


1967 


ODCC 












1968 


ODCC 


A200 


A 




ST 


R0,VALU(R2) 


1969 


ODCD 


8DAF 


A 


$60: 


LD 


R3,$SVR3 


1970 


ODCE 






» 


CHECK 


FOR END OF RECORD 


1971 


ODCE 


8912 


A 




LD 


R2, SYMNO 


1972 


ODCF 


4A04 


A 




AISZ 


R2t4 


1973 


0000 


A910 


A 




ST 


R2, SYMNO 


1974 


0OD1 


E911 


A 




SKG 


R2t INLIM 


1975 


0DD2 


2108 


A 




JMP 


$45 


1976 


0DD3 


4400 


A 


$63: 


PULL 


RO 


1977 


0D04 


0203 


A 




RTS 


NRML 


1978 


0005 


2913 


A 


$65 : 


JSR 


SYMBOL 


1979 


0DD6 












1980 


0OD6 


8600 


A 




LO 


R1,RCHAIN(R2) 


1981 


0007 


A200 


A 




ST 


R0,RCHAIN(R2) 


1982 


00D8 


F50B 


A 


$66: 


SKNE 


R1,MIN1 


1983 


0009 


21F3 


A 




JMP 


$60 


1984 


ODDA 


4000 


A 




PUSH 


RO 


1985 


ODDB 


3681 


A 




RCPY 


R1.R2 


1986 


OOOC 


2C66 


T 




JSR 


LOAO 


1987 


ODDO 


3181 


A 




RCPY 


ROtRl 


1988 


OOOE 


4400 


A 




PULL 


RO 


1989 


ODDF 


2C55 


I 




JSR 


STORE 


19°0 


ODEO 


21F7 


A 




JMP 


$66 


1991 


0OE1 


0000 


A 


SYMNO: 


.WORD 





1992 


0DE2 


0000 


A 


$R3: 


.WORD 





1993 


0DE3 


OBDF 


T 


INLIM: 


.WORD 


INBUF+11 


1994 


0DE4 


FFFF 


A 


MINI: 


.WORD 


-1 


1995 


0DE5 


0000 


A 


SYMNl: 


.WORD 




1996 


0DE6 


0000 


A 


SYMN2: 


.WORD 





1997 


0DE7 


0000 


A 


SYMN3: 


.WORD 






;SYMB0L NOT FOUND 

; SYMBOL FOUND 

; SYMBOL NOT EXTERNAL 



;REDUCE TO 8 BITS ONLY 
;SET REFNR=NEW SYMB REF NR 



EXISTING SYMBOL EXTERNAL 
;MARK SYMBOL MULTIPLY DEFINED 



FINISHED THIS SYMBOL 
;SYMBOL TABLE OVERFLOW 



;NEW SYMBOL IS EXTERNAL 

;MARK SYMBOL DEFINED AND CALCULATE 

; VALUE 



;ALL SYM'BOLS PROCESSED ? 
;NOT DONE WITH RECORD 



;MARK SYMBOL DEFINED AND CALCULATE 
*, VALUE 



;TEST FOR END OF CHAIN 
;END 



; INDEX INTO SYMBOL RECORD 
;TEMP SAVE FOR R3 

;END OF REFERENCE CHAIN 



1998 0DE8 

1999 ODE 8 

2000 0DE8 

2001 0DE8 

2002 0DE8 8000 

2003 0DE9 82FF 

2004 ODEA 69F0 

2005 ODEB A2FF 

2006 ODEC 4C00 

2007 ODED F506 

2008 ODEE 8303 

2009 OOEF F505 

2010 ODFO 8302 
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SYMBOL 


- MARK SYMBOL 


A 


BITO: 


.WORD 


X'8000 


A 


SYMBOL: 


LD 


P0,FLAGS(R2) 


A 




OR 


RO.BITO 


A 




ST 


R0,FLAGS(R2) 


A 




LI 


RO, 


A 




SKNE 


RltSTSREL 


A 




LO 


R0»TSL0C(R3) 


A 




SKNE 


R1,$BSREL 


A 




LD 


R0tBSL0C(R3) 



;SYMB0L DEFINED BIT 
:MARK SYMBOL DEFINED 



CALCULATE VALUE FOR SYMBOL 



; SYMBOL IS TSECT RELOCATABLE 
;SYMBOL IS BSECT RELOCATABLE 
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2011 
2012 
2013 
2014 
2015 



00F1 
0DF2 
00F3 



80EF 
C306 
0200 



0DF4 0002 
00F5 0001 



$TSREL: 
$BSREl: 



LO 

ADD 

RTS 

.WORD 

.WORD 



R3.SYMN0 
R0,VAL1(R3) 

2 

1 



;CURRENT SYMBOL NUMBER 



2016 

2017 

2018 

2019 

2020 

2021 

2 022 

2023 

2024 

2025 

2026 

2027 

2C28 

2029 

2030 

2031 

2032 

2 033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2 044 

2045 

2046 

2047 

2048 

2 049 

2050 

2051 

2052 

2053 

2 054 

2055 

2056 

2057 

2058 

2059 

2 060 



0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DP6 

0DF6 

0DF6 

0DF6 

0DF7 

0DF8 

0DF9 

ODFA 

OOFB 

OOFC 

ODFD 

ODFE 

ODFF 

OEOO 

0E01 

0E02 

0E03 

0E04 

0E05 

0E06 

0E07 

0E08 

0E09 

OEOA 

OEOB 

OEOC 

OEOD 

OEOE 

OEOF 

0E10 

0E11 

0E12 

0E13 

0E14 

0E15 

0E16 

0E17 
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SEARCH - SEARCH SYMBOL TABLE FOR MATCH. IF NO MATCH FOUND, 
MAKE NEW ENTRY. 

INPUT SYMBOL NAME IN SYMN1 , SYMN2 , SYMN3 . RETURNS ARE: 

CALL+1 SYMBOL TABLE OVERFLOW 
CALL+2 SYMBOL NOT FOUND - NEW ENTRY 
CALL+3 SYMBOL FOUND 



8B00 A SEARCH: LD R2, SYMTOP (R3) 

p B01 A SKNE R2,SYMBOT(R3) 

210F A JMP $NOFND 

82FC A $TOP: LD R0»NAM1(R2) 

F1EA A SKNE R0.SYMN1 

2101 A JMP .+2 

2107 A JMP $OUT 

82FD A LD R0,NAM2(R2) 

F1E7 A SKNE ROt SYMN2 

2101 A JMP .+2 

2103 A JMP $OUT 

82FE A LD R0,NAM3(R2) 

F1E4 A SKNE R0,SYMN3 

0202 A RTS 2 

4AFB A $OUT: AISZ R2,-SYMNWE 

EB01 A SKG R2,SYMB0T(R3) 

2101 A JMP $NOFND 

21F1 A JMP $TOP 

4AFB A $NOFND: AISZ R2,-SYMNWE 

E92F A SKG R2»SYMLIM 

0200 A RTS 

AB01 A ST R2,SYMB0T(R3) 

4A05 A AISZ R2.SYMNWE 

81D7 A LD ROfSYMNl 

A2FC A ST P0,NAMUR2) 

8106 A LD R0,SYMN2 

A2F0 A ST R0,NAM2(R2) 

81D5 A LD R0,SYMN3 

A2FE A ST R0,NAM3(R2) 

4C00 A LI R0,0 

A2FF A ST R0,REFNR(R2) 

4CFF A LI R0,-1 

A200 A ST R0,RCHAIN(R2) 

0201 A RTS 1 



;ANY ENTRIES IN TABLE? 

?N0 

;COMPARE SYMBOL NAMES 



;N0 MATCH 



;N0 MATCH 



;TAKE 'SYMBOL MATCH' RETURN 

;CURRENT ENTRY DOES NOT MATCH 

;ARE WE DONE? 

;YES - SYMBOL NOT FOUND 

;NOT DONE 

;D0 WE HAVE SPACE FOP NEW ENTRY 



;SYMBOL TABLE OVERFLOW 
;YES - MAKE NEW ENTRY 



;END OF CHAIN 

;N0 MATCH - NEW ENTRY MADE 



2061 0E18 

2062 0E18 

2063 0E18 

2064 0E18 

2065 0E18 

2066 0E18 

2067 0E18 

2068 0E18 

2069 0F18 

2070 0E18 

2071 0E18 4600 

2072 0E19 4200 

2073 0F1A 8600 



UNPAK: 



.PAGE 

UNPACK RELOCATION FIELDS IN DATA RECORD INTO INDIVIDUAL 
WORDS. RO CONTAINS FIELDS TO BE UNPACKED. CALLING SEQUENCE 

JSR UNPAK 
(NUMBER OF FIELDS) 
(DESTINATION) 
(NORMAL RETURN) 



PULL 
PUSH 
LD 



R2 
R2 
Rlt (R2) 



;PICK UP INPUT PARAMETERS 
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2074 


0E1B 


A50B 


A 




ST 


R1,$CNT 


2075 


0E1C 


8A01 


A 




LD 


R2 V 1(R2) 


2076 


0E1D 


A10A 


A 




ST 


RO,$FLD 


2077 


0E1E 


8109 


A 


$l: . 


LD 


ROt$FLD 


2078 


0E1F 


5802 


A 




ROL 


R0,2 


2079 


0E20 


A107 


A 




ST 


ROt$FLD 


2080 


0E21 


6107 


A 




AND 


R0,D3 


2081 


0E22 


A200 


A 




ST 


R0,(R2) 


2082 


0E23 


4A01 


A 




AISZ 


R2,l 


2083 


0E24 


7D02 


A 




DSZ 


$CNT 


2084 


0E25 


21F8 


A 




JMP 


$1 


2085 


0E26 


0202 


A 




RTS 


2 


2086 


0E27 


0E28 


T 


$CNT: 


. = . + 1 




2087 


0E28 


0E29 


T 


$FLD: 


. = . + 1 




2088 


0E29 
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2089 


0E29 












2090 


0E29 








PROCESS 


DATA RECORD 


2091 


0E29 












2092 


0E29 


0003 


A 


D3: 


.WORD 


3 


2 093 


0E2A 


0400 


A 


BIT5: 


.WORD 


X»0400 


2094 


0F2B 


0E2D 


T 


RELPNT: 


.WORD 


RELOC 


2095 


0E2C 








RECORD 


LENGTH 


2096 


0E2C 


0E2D 


T 


RLTH: 


.=. + 1 




2097 


0E2D 








AMOUNT 


OF CORF AVAILA 


2098 


0E2D 


0E39 


T 


RELOC: 


.=.+12 




2099 


0E39 








LAST AVAILABLE LOCATI 


2100 


0E39 


0100 


A 


SYMLIM: 


.WORD 


X'100 


2101 


0E3A 


0000 


A 


$TYPE: 


.WORD 





2102 


0E3B 


0001 


A 


BSREL * 


• WORD 


1 


2103 


0E3C 


0002 


A 


TSREL: 


.WORD 


2 


2104 


0E30 


OECB 


T 


$LDPNT: 


.WORD 


LDADR 


2105 


0E3E 


0025 


T 


$DBASE: 


.WORD 


BASE 


2106 


0E3F 


3681 


A 


$OAT: 


RCPY 


RltR2 


2107 


0E40 


8202 


A 




LD 


R0,ILATYP(R2) 


2108 


0E41 


4D00 


A 




LI 


P1,0 


2109 


0E42 


F1F8 


A 




SKNE 


ROtBSREL 


2110 


0E43 


8702 


A 




LD 


RltBSL0C(R3) 


2111 


0E44 


F1F7 


A 




SKNE 


RO, TSREL 


2112 


0E45 


8703 


A 




LD 


Ri*TSLQC«R3"J 


2113 


0E46 


C603 


A 




ADD 


R1,ILA(R2) 


2114 


0E47 


B5F5 


A 




ST 


Rl,a$LDPNT 


2115 


0E48 


A1F1 


A 




ST 


RO»$TYPE 


2116 


0E49 


8204 


A 




LD 


R0,DTYPUR2) 


2117 


0E4A 


29C0 


A 




JSR 


UNPAK 


2118 


0E4B 


0008 


A 


$80: 


.WORD 


8 


2119 


0E4C 


0E20 


T 




.WORD 


RELOC 


2120 


0E4D 


81DE 


A 




LD 


ROtRLTH 


2121 


0E4E 


E1FC 


A 




SKG 


R0*$8D 


2122 


0E4F 


2105 


A 




JMP 


$70 


2123 


0E5C 


8976 


A 




LD 


R2,$INPNT 


2124 


0E51 


8205 


A 




LD 


P0,DTYP2(R2) 


2125 


0E52 


29C5 


A 




JSR 


UNPAK 


2126 


0E53 


0004 


A 


$4D: 


.WORD 


4 


2127 


0E54 


0E35 


T 




.WORD 


RELOC+8 


2128 


0E55 


8971 


A 


$70: 


LD 


R2t$INPNT 


2129 


0E56 


81D5 


A 




LD 


ROtRLTH 


2130 


0E57 


01FB 


A 




SUB 


RQ,$4D 


2131 


0E58 


A1D3 


A 




ST 


RO.RLTH 


2132 


0E59 


C171 


A 




ADD 


ROt LDADR 


2133 


0E5A 


A16B 


A 




ST 


RO,$DATEND 


2134 


0E5B 


81CF 


A 




LD 


ROtRELPNT 


2135 


0E5C 


A16B 


A 




ST 


ROtRELX 


2136 


0E5D 


810C 


A 


$72: 


LD 


RO,$TYPE 


2137 


0E5E 


856C 


A 




LD 


Rl, LDADR 


2138 


0E5F 


5600 


A 




XCHRS 


R2 


2139 


0E60 


9900 


A 




LD 


R2t3$DBASE 



;LOOK AT NEXT FIELD 
;STRIP OUT FIELD 



FINISHED? 
;N0 



; CONTAINS UNPACKED RELOC I f=0 
FOR SYMBOL TABLE ENTRY 

;SAVE RECORD RELOC TYPE 



;R1=L0C OF INPUT BUFFER 
RELOCATE INITIAL LOAD ADDRESS 



;BASE SECTOR RELOCATABLE 
;TOP SECTOR RELOCATABLE 



;SAVE REC RELOC TYPE 
;GET FIRST RELOC WD 



; REQUIRES 2 RELOC WORDS 
;GET SECOND RELOC WD 



; ADJUST RECORD LENGTH TO REFLECT 
; NUMBER OF DATA WORDS 

CALCULATE LAST ADDR IN RECORD 

CALCULATE RELOC INFO ADDRESS 

;CHECK LOAD ADDRESS AGAINST RANGES 

;GET BASE ADDRESS 
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2140 


0E61 


F1D9 


A 




SKNE 


RO.BSREL 




2141 


0E62 


2110 


A 




JMP 


$75 


;BASE SECTOR RELATIVE 


2142 


0E63 


1109 


A 




BOC 


ZR0,$74 


ABSOLUTE 


214 3 


0E64 


E602 


A 




SKG 


R1,TSMAX-BASE(R2) ;TOP SECTOR RELATIVE 


2144 


0E65 


2104 


A 




JMP 


$73 


;LIMIT SET OK 


2145 


0E66 


A602 


A 




ST 


R1,TSMAX-BASE(R2) 


2146 


0E67 


E707 


A 




SKG 


R1,HIT0P(R3) 




2147 


0E68 


2101 


A 




JMP 


$73 




2148 


0E69 


A707 


A 




ST 


R1»HIT0P(R3) 




2149 


0F6A 


E708 


A 


$73: 


SKG 


R1,L0T0P(R3) 




2150 


0E6B 


A708 


A 




ST 


R1,L0T0P{R3) 




2151 


0E6C 


210E 


A 




JMP 


$78 




2152 


0E6D 


E709 


A 


$74: 


SKG 


Rl,HIABS(R3) 




2153 


0E6E 


2101 


A 




JMP 


$74A 




2154 


0E6F 


A709 


A 




ST 


R1,HIABS(R3) 




2155 


0E70 


E70A 


A 


$74A: 


SKG 


R1,L0ABS(R3) 




2156 


0E71 


A70A 


A 




ST 


R1,L0ABS(R3) 




2157 


0E72 


2108 


A 




JMP 


$78 




2158 


0F73 


E601 


A 


$75: 


SKG 


R1,BSMAX-BASE(R2J 


2159 


0E74 


2104 


A 




JMP 


$76 




2160 


0E75 


A601 


A 




ST 


R1,BSMAX-BASE(R2) 


2161 


0E76 


E705 


A 




SKG 


R1,HIBAS(R3) 




2162 


0F77 


2101 


A 




JMP 


$76 




2163 


0E78 


A705 


A 




ST 


R1,HIBAS(R3) 




2164 


0E79 


E706 


A 


$76: 


SKG 


R1,L0BAS(R3) 




2165 


0E7A 


A706 


A 




ST 


R1,L0BAS(R3) 




2166 


0E7B 






$78: 








2167 


0E7B 


814F 


A 


$78A: 


LO 


ROtLDADR 




21681 


0E7C 


7148 


A 


$79: 


SKAZ 


ROt$FFOO 


;CHECK OVERLAP OF INDIRECT POINTERS 


2169 


0E7D 


2108 


A 




JMP 


$80 


;0K 


2170 


0E7E 


E203 


A 




SKG 


R0tB0TEXT-BASE(R2) 


2171 


0E7F 


2103 


A 




JMP 


.+4 




2172 


0E80 


4600 


A 




PULL 


R2 




2173 


0E81 


4F08 


A 


$79A: 


LI 


R3,AREA 


;LOADING IN ILLEGAL AREA 


2174 


0E82 


0200 


A 




RTS 


ERR 




2175 


0E83 


E204 


A 




SKG 


P0,EXTLIM-BASE(R2) 


2176 


0E84 


2101 


A 




JMP 


$80 




217"> 


0F85 


A2 04 


A 




ST 


R0,EXTLIM-BASE(R2) 


2178 


0E86 


4600 


A 


$80: 


PULL 


R2 




2179 


0E87 


9140 


A 




LD 


RO, 3RELX 




2180 


0F88 


1135 


A 




BOC 


ZR0,$84 


ABSOLUTE 


2181 


0E89 


F1B1 


A 




SKNE 


POtBSREL 




2182 


0E8A 


2108 


A 




JMP 


$83 


;BASE SECTOR RELOCATABLE 


2183 


0E8B 


F19D 


A 




SKNE 


RO,EXT 




2184 


0E8C 


2112 


A 




JMP 


$86 


EXTERNAL REFERENCE 


2185 


0E8D 


8206 


A 




LD 


R0,DATA(R2) 


;TOP SECTOR RELOCATABLE 


2186 


0F8E 


C303 


A 




ADD 


R0,TSL0C(R3) 


;TSECT ORIGIN 


2187 


0E8F 


E01D 


B 




SKG 


RO,HICORE 




2188 


0E90 


212E 


A 




JMP 


$85 




2189 


0E91 


4F09 


A 




LI 


R3tC0PE 


;EXCEEDED MEMORY SIZE 


2190 


0E92 


0200 


A 




RTS 


ERR 




2191 


0F93 


8606 


A 


$83: 


LD 


R1»DATAJR2) 


;BASE SECTOR RELOCATABLE 


Ci.^i C 


Ut^f 


U5QZ 


A 




LD 


R0.BSL0CCR3) 




2193 


0E95 


3400 


A 




RADD 


R1,R0 




2194 


0E96 


3182 


A 




RXOR 


R0,R1 


;TEST FOR ADDRESS OVERFLOW 


2195 


0E97 


7520 


A 




SKAZ 


R1,$FF00 




2196 


0E98 


21E8 


A 




JMP 


$79A 




2197 


0E99 


757D 


A 


$83B: 


SKAZ 


R1.BIT8 




2198 


0E9A 


2101 


A 




JMP 


.+2 




2199 


0E9B 


2123 


A 




JMP 


$85 


;LEGAL RANGE — 0-127 


2200 


0E9C 


757D 


A 




SKAZ 


RltXRMASK 


;XR SPECIFIED? 


2201 


0E9D 


21E3 


A 




JMP 


$79A 




2202 


0E9E 


2120 


A 




JMP 


$85 




2203 


0E9F 


8606 


A 


$86: 


LD 


R1,DATA(R2) 




2204 


0EA0 


6578 


A 




AND 


R1.D255 


;STRIP OUT REFERENCE NUMBER 


2205 


0EA1 






» 


SEARCH 


SYMBOL TABLE FOR 


MATCHING REFERENCE NUMBER 


2206 


0EA1 


4200 


A 




PUSH 


R2 


;SAVE VALUE OF R2 


2207 


0EA2 


8B00 


A 




LO 


R2,SYMT0P(R3) 
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2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

•^225 

2226 

2227 

2228 

222^ 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

22 54 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 



0EA3 

0EA4 

0EA5 

0EA6 

0EA7 

0EA8 

0EA9 

OFAA 

OEAB 

OEAC 

OEAC 

OEAD 

OEAE 

OEAF 

OEBO 

0EB1 

0EB2 

0EB3 

0EB4 

0EB5 

0EB6 

0EB7 

0EB8 

0EB9 

OEBA 

OEBB 

OEBC 

OEBD 

OEBE 

OEBF 

OECO 

0EC1 

0EC2 

0EC3 

0EC4 

0EC5 

0EC6 

0EC7 

0EC7 

0EC8 

0EC9 

0EC9 

OECA 

OECB 

OECC 

OECD 

OECE 

OECF 

OEDO 

0ED1 

0ED2 

0ED3 

0ED4 

0ED5 

0EO6 

0E07 

0E08 

0E09 

OEOA 

OEDB 

OEDC 

OEDD 

OEOE 

OEOF 

OEEO 

0EE1 

0EE2 

0EE3 



$88A: 



$89: 



$84: 
$85: 



82FF A $87: LD R0,REFNR(R2> 

6174 A AND R0,D255 

3482 A RXOR RltRO 

1104 A BOC ZRO f $88 

4AFB A AISZ R2t-5 

EB01 A SKG R2,SYMB0T(R3) 

2111 A JMP $89 

21F8 A JMP $87 

5700 A $88: XCHRS P3 

LO ROtOATA(R3) 

SKAZ ROt$FFOO 

JMP $90 

LO R0,RCHAIN(R2) 

PUSH R2 

LD R2,LDADR 

JSR STORE 

PULL R2 

LD R0tREFNR(R2) 

BOC PZR0,.+3 

JMP 3.+1 

.WORD $101 

LD Rl.LDADR 

ST R1,VALU(R2) 

JMP 3$88A 

LI R3,XREF 

PULL RO 

RTS ERR 

LD R0»DATA(R2) 

PUSH R2 

LD R2»LDADR 

JSR STORE 

PULL R2 

JMP 3.-H 

.WORD $102 

$FFOO: .WORD X'FFOO 

$DATEN: .WORD 

; CURRENT LOADING ADDRESS 

0BD4 T $INPNT: .WORD INBUF 

0000 A RELX: .WORD 

» 

D2: .WORD 2 

Dl: .WORD 1 

LDAOR: .WORD 

$90: LD R0,REFNR(R2) 

BOC NZP0»$98 

$91: LD R0»DATA(R3) 

SHR R0»8 

BOC 0DDt$92A 

BOC BIT1t$92A 

SKG R0tD127 

JMP $92 

AND ROtRMASK 

SKNE ROtLDINST 

JMP $93 

SKNE RO,STINST 

JMP $93 

$92: SKNE ROtJMPIN 

JMP $94 

SKNE ROtJSRIN 

JMP $94 

$92A: LI R3,ADDR 

PULL RO 

RTS ERR 

$93: LD R0t$BIT3 

JMP .+2 

$94: LD RO»$INDB 

OR R0tDATA(R3) 



8306 

7117 

211D 

8200 

4200 

8919 

2C55 I 

4600 A 

82FF A 

1202 

2500 

OF 59 

8512 

A600 

25FC 

4F07 

4400 

02C0 

8206 

4200 

890A 

2C55 I 

4600 A 

2500 

0F5B 

FFOO 

0000 



{STRIP OUT REFNR 
; MATCH FOUND 



; SEARCH COMPLETE - NO MATCH 
;SEARCH NOT COMPLETE 
;DATA POINTER TO R3, VECTOR 
;POINTER TO STACK 



{INSTRUCTION 
;DATA ITEM 



0002 A 

O001 A 

0000 

82FF 

1B6B 

8306 

5CF8 

130C 

140B 

E141 

2105 

613B 

F141 

2109 

F140 

2107 

F13B 

2107 

F13A 

2105 

4F06 

4400 A 

0200 A 

8131 A 

2101 A 

812E A 

6B06 A 



; SYMBOL DEFINED 



;REF NMBP OF EXT SYMB NOT IN SYMB TBL 



{ABSOLUTE 



;END OF RECORD 

;WILL CONTAIN ABS ADDR OF RELOC INFO FOR 
FOR DATA RECORD 



{INSTRUCTION 

{SYMBOL DEFINED 

{CHECK INSTRUCTION TYPE 

{RIGHT-JUSTIFY UPPER HALF ONLY 

{ADDRESSING ERROR 

{ADDRESSING ERROR 

{NOT LOAD/STORE 

{LOAD/STORE - CLEAR R FIELD 

{OK 

{OK 

;0K 

{OK 

{ADDRESSING ERROR 

{RESTORE STACK 

{LOAD/STORE 

{JUMP CLASS 

{SET INDIRECT BIT 
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2276 


0EE4 


4200 


A 




PUSH 


R2 




2277 


0EE5 


89E5 


A 




LD 


R2.LDA0R 




2278 


0EE6 


2C55 


I 




JSR 


STORE 




2279 


0EE7 


4600 


A 




PULL 


R2 




2280 


0EE8 


82FF 


A 




LO 


R0,REFNR(R2) 




2281 


0EE9 


7129 


A 




SKAZ 


RO,$INREF 


;HAS IND PNTR BEEN GENER 


2282 


OEEA 


2131 


A 




JMP 


$95 




2283 


OEEB 


4300 


A 




PUSH 


R3 


'.NO-SAVE R3 


2284 


OEEC 


90 2E 


A 




LD 


R3,3IBASE 




2285 


OEED 


8703 


A 




LD 


R1,B0TEXT-BASE(R3) 


2286 


OEEE 


E704 


A 




SKG 


R1,EXTLIM-BASE(R3) ;SPACE AVAILABLE 


2287 


OEEF 


211C 


A 




JMP 


$94A 


;N0 - BSECT OVFLO 


2288 


OEFO 


4200 


A 




PUSH 


R2 




2289 


0EF1 


89D9 


A 




LD 


R2,LDADR 




2290 


0EF2 


2C66 


1 




JSR 


LOAD 




2291 


0EF3 


4600 


A 




PULL 


R2 




2292 


0EF4 


6177 


A 




AND 


RO,XFFOO 


;STRIP OFF OISPL FIELD 


2293 


0EF5 


3100 


A 




RADD 


R0,R1 


;ADD ADDR OF IND POINTER 


2294 


0EF6 


3481 


A 




RCPY 


RltRO 




2295 


0EF7 


4200 


A 




PUSH 


R2 




2296 


0EF8 


89D2 


A 




LD 


R2.LDADR 




2297 


0EF9 


2C55 


I 




JSR 


STORE 




2298 


OEFA 


4600 


A 




PULL 


R2 




2299 


OEFB 


8117 


A 




LD 


RO t $INREF 


;SET 'POINTER GENERATED' 


2300 


OEFC 


6AFF 


A 




OR 


R0tREFNR(R2) 




2301 


OEFO 


A2FF 


A 




ST 


R0,REFNR(R2) 




2302 


OEFE 


8600 


A 




LD 


R1,RCHAIN(R2) 




2303 


OEFF 


4000 


A 




PUSH 


RO 




2304 


OFOO 


3481 


A 




RCPY 


RltRO 




2305 


0F01 


42 00 


A 




PUSH 


R2 




2306 


0F02 


8B03 


A 




LD 


R2f B0TEXT-BASE1R3) 


2307 


0F03 


2C55 


I 




JSR 


STORE 




2308 


0F04 


4600 


A 




PULL 


R2 




2309 


OF 05 


4400 


A 




PULL 


RO 




2310 


0F06 


8703 


A 




LD 


R1,B0TEXT-BASE(R3) 


2311 


0F07 


7F03 


A 




DSZ 


B0TEXT-BASE(R3) 




2312 


0F08 


4700 


A 




PULL 


R3 


;RESTORE R3 


2313 


0F09 


1B4F 


A 




BOC 


NZR0t$101 


; SYMBOL DEFINED 


2314 


OFOA 


A600 


A 




ST 


R1,RCHAIN(R2) 




2315 


OFOB 


214D 


A 




JMP 


$101 




2316 


OFOC 


4700 


A 


$94A: 


PULL 


R3 


;BSECT OVERFLOW 


2317 


OF 00 


4400 


A 




PULL 


RO 


;RESTORE STACK 


2318 


OFOE 


4F03 


A 




LI 


R3»BS0V 




2319 


OFOF 


02 00 


A 




RTS 


ERR 




2320 


0F10 


00F3 


A 


RMASK: 


.WORD 


X f F3 




2321 


0F11 


0400 


A 


$INOB: 


.WORD 


X'400 




2322 


OF 12 


1000 


A 


$BIT3: 


.WORD 


X'1000 




2323 


0F13 


4000 


A 


$INREF: 


.WORD 


X«4000 




2324 


0F14 


007F 


A 


D127: 


.WORD 


127 




2325 


0F15 


0020 


A 


JMPIN: 


.WORD 


X«20 




2326 


0F16 


0028 


A 


JSRTN: 


.WORD 


X f 28 




2327 


0F17 


0080 


A 


LDINST: 


• WORD 


X'80 




2328 


0F18 


0F17 


T 


BIT8 


= 


LDINST 




2329 


0F18 


OOAO 


A 


STINST: 


.WORD 


X'AO 




2330 


0F19 








.PAGE 






2331 


0F19 






» 


IND POINTER ALREADY GENERATED 


2332 


0F19 


OOFF 


A 


0255: 


.WORD 


255 




2333 


0F1A 


0300 


A 


XRMASK: 


.WORD 


X'300 




2334 


0F1B 


0D25 


T 


IBASE: 


.WORD 


BASE 




2335 


0F1C 


1202 


A 


$95: 


BOC 


PZR0,$95A 


;EXT SYMBOL UNDEFINED 


2336 


0F10 


2500 


A 




JMP 


a.+i 




2337 


0F1E 


0FA6 


T 




.WORD 


$110 




2338 


0F1F 


8A00 


A 


$95A: 


LD 


R2tRCHAIN(R2) 




2339 


0F20 


5700 


A 




XCHRS 


R3 


;VECTOR ADDR TO R3 


2340 


0F21 


E9F7 


A 


$96: 


SKG 


R2,0255 


;IF SKIP, THIS IS NOT IT 



FLAG 
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2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

23 59 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 



0F22 

0F23 

0F24 

0F25 

0F26 

0F27 

0F28 

0F29 

0F2A 

0F2B 

0F2C 

OF 2D 

0F2E 

0F2F 

OF30 

0F31 

0F32 

0F33 

0F34 

0F35 

0F36 

0F37 

0F38 

0F39 

0F39 

0F3A 

0F3B 

0F3C 

OF 3D 

0F3E 

0F3F 

0F40 

0F41 

0F42 

0F43 

OF 44 

0F45 

0F46 

0F47 

0F48 

0F49 

0F4A 

0F4B 

0F4C 

0F4D 

0F4E 

0F4F 

0F50 

0F51 

0F52 

0F53 

0F54 

OF 55 

0F56 

0F57 

0F58 

0F59 

0F5A 

0F5B 

0F5C 

OF 50 

0F5E 

0F5F 

0F60 

0F61 

0F62 

0F63 



2101 

210E 

EB05 

21X 

5700 

4200 

89A2 

2C66 I 

3181 A 

4600 A 

653F A 

3982 A 
3481 A 
899B A 
2C55 I 
2127 A 
2C66 I 
3281 A 
1B01 A 
21EB A 
4400 A 
4F0A A 
0200 A 



8200 

El 09 

211A 

E1DC 

2115 

8306 

61DA 

158D 

8200 

D188 

D186 

E126 

2188 

E1C0 

2102 

2500 

OECE 

61CE 

CUE 

8706 A 

651E A 

3100 A 

3481 A 

991C A 

2C55 I 

2106 A 

8306 

61C5 

154A 

8A00 

8706 

21D3 

5700 

4600 

9111 

4801 

B10F 

4A01 

950F 

5101 

3400 

1501 

0203 



$96A: 
$96B: 



$96C 



$97: 



$98: 



$99: 

$100: 

$101: 
$102: 



JMP 

JMP 

SKG 

JMP 

XCHRS 

PUSH 

LD 

JSP 

RCPY 

PULL 

AND 

RXOR 

RCPY 

LD 

JSR 

JMP 

JSR 

orpv 

BOC 

JMP 

PULL 

LI 

RTS 

INSTRUC 

LD 

SKG 

JMP 

SKG 

JMP 

LD 

AND 

BOC 

LD 

SUB 

SUB 

SKG 

JMP 

SKG 

JMP 

JMP 

.WORD 

AND 

ADD 

LD 

AND 

RADD 

RCPY 

LD 

JSR 

JMP 

LD 

AND 

BOC 

LD 

LD 

JMP 

XCHRS 

PULL 

LD 

AISZ 

ST 

AISZ 

LD 

CAI 

RADD 

BOC 

RTS 



.+2 

$97 

R2,HIBAS(R3) 

$97 

R3 

R2 

R2,LDADR 

LOAD 

R0,R1 

R2 

R1,XFF00 

R2,R1 

P1,R0 

R2,LDADR 

STORE 

$101 

LOAD 

R - R 2 

NZROt .+2 
$96 
RO 

R3,SYST 

ERR 
TION REFERENCE 

R0,VALU(R2) 

R0,D127 

$100 

R0,D255 

$99 

R0»DATA(R3) 

ROtXRMASK 

NEZt$91 

RO,VALU (R2i 

ROtLDADR 

ROiDl 

R0»M129 

$91 

R0,D127 

.+3 

a.+i 

$91 

R0,D255 

R0,$D256 

RltDATA(R3) 

P1,XFF00 

R0,R1 

R1,R0 

R2t3$A0DR 

STORE 

$101 

R0,DATA(R3) 

ROt XRMASK 

NEZ*$103A 

R2tVALU(P2) 

R1,DATA(R3) 

$96C 

R3 

R2 

R0,3$ADDR 

R0,1 

R0,3$ADDR 

R2,l 

R1,3$PDAT 

Rlil 

RltRO 

NEZt.+2 

NRML 



;LOOK AT NEXT ELEMENT 
;IF SKIP, POINTER FOUND 
;LOOK AT NEXT ELEMENT 
;DATA IX TO R3 



;THROW AWAY BITS 8~15 



;ALL DONE 



symbol defined 

;look at symbol value 



;CHECK XR FIELD 



;XR NOT EQUAL TO ZERO 
; CALCULATE REQD DISPLACEMENT FOR PC 
;ADDRESSING 



; SET XR = 1 

;THROW AWAY OLD DISPLACEMENT 



;CHECK XR FIELD 

;ADDRESSING ERROR 

;SET DISPL=SYMBOL VALUE 

;PICK UP DATA WORD 

; VECTOR PNTR TO R3 
;DATA PNTR TO R2 



;IF BRANCH, NOT DONE 
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2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 



0F64 
0F65 
0F66 
0F67 
0F68 
0F69 
0F6A 
0F6B 
0F6C 
OF 60 
0F6E 
0F6F 



9109 
4801 
B107 
4200 
2500 
0E5D 
0100 
FF7F 
FFOO 
OECB 
0EC8 
0EC6 



$0256 

M129: 

XFFOO: 

$ADOR: 

$PREU 

$PDAT: 



LD 

AISZ 

ST 

PUSH 

JMP 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



R0,3$PREL 
ROtl 

RO»a$PREL 
R2 

a.+ i 

$72 

256 

-129 

X'FFOO 

LDADR 

RELX 

$DATEN 



;ADD AN ELEMENT TO THE STACK 
; CONTINUE 



2420 0F70 .PAGE 

2421 0F70 ; 

2422 0F70 ; PROCESS END RECORD 

2423 0F70 ; 

2424 0F70 3681 A $FND: RCPY R1,R2 

2425 0F71 1B01 A BOC NZR0..+2 

2426 0P72 8203 A LD RO, ENTYAD( R2 ) 

2427 0F73 8602 A LD R1,ENTYP(R2) 

2428 0F74 F530 A SKNE R1,$EXT 

2429 0F75 2117 A JMP $104 

2430 0F76 F52C A SKNE Rl.XBSREL 

2431 0F77 C302 A ADD R0,BSLOC(R3) 

2432 0F78 F52B A SKNE R1,XTSREL 

2433 0F79 C303 A ADD R0.TSL0CCR3) 

2434 0F7A A304 A ST R0,ENTRY(R3) 

2435 0F7B 4600 A $102A: PULL R2 

2436 0F7C 8203 A LD RO , BOTEXT-BAS E ( R 

2437 0P7D 4801 A AISZ RO, 1 

2438 0F7E A30C A ST P0,PBOT(R3) 

2439 OF^F ; RESET B/S AND T/S ORIGIN 

2440 0F7F 8201 A LD RO, BSMAX-BASE ( R2 

2441 0<=80 4801 A AISZ RO, 1 

2442 0F81 A302 A ST R0,BSLOC(R3) 

2443 0F82 8202 A LD RO, TSMAX-BASE (R2 

2444 0F83 4801 A AISZ R0,1 

2445 0P84 A303 A ST R0,TSL0C<R3) 

2446 0F85 8B00 A LD R2, SYMTOP <R3) 

2447 0F86 82FF A $103: LD R0,REFNR(R2) 

2448 0F87 61E4 A AND R0,XFF00 

2449 0F88 A2FF A ST R0,REFNR(R2) 

2450 0F89 4AFB A AISZ R2,-SYMNWE 

2451 0F8A EB01 A SKG R2, SYMBOT( R3) 

2452 0F8B 0202 A RTS EOM 

2453 0F8C 21F9 A JMP $103 

2454 0F8D : SEARCH SYMBOL TABLE FOR 

2455 0F8D 8B00 A $104: LD R2 , SYMT0PCR3 } 

2456 0F8E 86FF A $105: LD R1,REFNR(R2) 

2457 0F8F 6589 A AND R1,D255 

2458 0F90 3182 A RXOR R0,R1 

2459 0F91 F510 A SKNE Ri,$ZERO 

2460 0F92 2104 A JMP $106 

2461 0F93 4AFB A AISZ R2,-5 

2462 0F94 EB01 A SKG R2, SYMB0T(R3) 

2463 0F95 2108 A JMP $107 

2464 0F96 21F7 A JMP $105 

2465 0F97 82FF A $106: LD R0,REFNR(R2) 

2466 0F98 1B02 A BOC NZR0,.+3 

2467 0F99 4C00 A LI R0,0 

2468 0F9A 2101 A JMP .+2 

2469 0F9B 8200 A LD R0,VALU(R2) 

2470 0F9C A304 A ST R0,ENTRY(R3) 

2471 0F9D 21DD A JMP $102A 



RELOCATE ENTRY POINT 
; EXTERNAL SYMBOL 



2) 



;CLEAR REFNR'S TO ZERO 



MATCHING REFNR 

; REFNR FROM SYMBOL TABLE 



;N0 MATCH 
;MATCH FOUND 



; DONE - NO MATCH 



; SYMBOL DEFINED 

; UNDEFINED ENTRY POINT 

;VALUE IS ENTRY POINT 
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GENLDR 



2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
248 7 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 



0F9E 
0F9F 
0FA0 
0FA1 
0FA2 
0FA3 
0FA4 
0FA5 
0FA6 
0FA6 
0FA7 
0FA8 
0FA9 
OFAA 
OFAB 
OFAC 
OFAD 
OFAE 
OFAF 
OFBO 
0FB1 
0FB2 
0FB3 
0FB4 
0FB5 
0FB6 
0FB7 
0FB8 
0FB9 
OFBA 
OFBB 
OFBC 
OFBO 
OFBE 
OFBF 
OFCO 
OFCl 



4F07 
0200 
4F06 
0200 
0000 
0001 
0002 
0003 



8200 A 

AD16 A 

9D17 A 

8B03 

4A01 

4000 

4300 

3B81 

2C66 

A10F 

4700 

4400 

F10C 

2107 

4A01 

F9B4 

2101 

21F3 

4400 

4F0A 

0200 

8D02 

2500 

0F27 

OFBF 

OFCO 

0D25 



$107: 

$103A: 

$ZERO: 
XBSREL: 
XTSREL 
$EXT: 

$110: 



$111: 



$112: 



$R3A: 
$TMP: 
$BAS2: 



LI 

RTS 

LI 

RTS 

.WORD 

.WORD 

. WORD 

.WORD 

PROCESS 

LD 

ST 

LD 

LD 

AISZ 

PUSH 

PUSH 

RCPY 

JSR 

ST 

PULL 

PULL 

SKNE 

JMP 

AISZ 

SKNE 

JMP 

JMP 

PULL 

LI 

RTS 

LD 

JMP 

.WORD 



.WORD 
.IF 



R3.XREF 

ERR 

R3tADDR '.ADDRESSING ERROR 

ERR 



1 

2 

3 

A DEFINED EXTERNAL SYMBOL 

R0,VALU(R2) ;SEARCH IND POINTER LIST 

R3,$R3A 

R3,3$BAS2 ;GET BASE ADDRESS 

R2,B0TEXT-BASE(R3) 
R2,l 

RO 

R3 

R2,R3 

LOAD 

RO,$TMP 

R3 

RO 

RO»$TMP 

$112 
R2.tl 

R2t$D256 

.+2 
$111 

RO 
R3,SYST 
ERR 

R3»$R3A 

a.+ i 

$968 

1 

1 

BASE 

GENL 



;FOUND POINTER 



; POINTER NOT FOUND 



2509 OFCl 



.PAGE 



•CLEAR MEMORY SUBROUTINE' 



2510 OFCl 

2511 OFCl 

2512 OFCl 

2513 OFCl 

2514 OFCl 



2515 OFCl 

2516 OFCl 4A01 

2517 0FC2 A200 

2518 0FC3 49FF 

2519 0FC4 21FC 

2520 0FC5 2300 



CLEAR 



2521 0FC6 

2522 0FC6 

2523 0FC6 0880 T GLDRE 
POINTERS GENERATED 

004C 0A08 T 

004D OAFA T 

004E ODOA T 

004F OADD T 

0050 09C4 T 

0051 0969 T 

0052 0B8E T 



.SPACE 2 

ON ENTRY: RO 
Rl 
R2 
R3 


• SPACE 

AISZ 

ST 

AISZ 

JMP 

JMP 


2 

R2,l 

R0,(R2) 

Rlt-1 

.-3 

(R3) 


.SPACE 
.ENDIF 
.END 


2 

DSCLDR 



= 



NUMBER OF WORDS TO CLEAR 
LOWEST ADDRESS TO CLEAR - 1 
ENTRY POINT 



;NOT ZEROED 
;NOT ZEROED 
;NOT ZEROED 
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GENLDR 



0053 0B0L T 

0054 0B10 T 

0055 0B73 T 

0056 09CO T 

0057 0997 T 

0058 0D1F T 

0059 OAEB T 
005A 0B39 T 
005B 088B T 
005C 0A1E T 
0050 0A99 T 
005E 0AA4 T 
005F 0A9E T 

0060 0AA3 T 

0061 0A88 T 

0062 0AA7 T 

0063 0AC8 T 

0064 09F1 T 

0065 089F T 

0066 0B6B T 



****** ERRORS IN ASSEMBLY ****** 



*1* *!' *1< *1> *1 + $lt $1- $1. $100A $101A 

08C5 T 0806 T 08DB T 08E0 T 09Q6 T 094B T 0971 T 09A6 T 0F56 T 0F59 T 

$102A $102AA $103A $103AA $104A $105A $106A $107A $10A $11 

0F5B T 0F7B T 0F86 T OFAO T 0F8D T 0F8E T 0F97 T 0F9E T 0057 T 09D4 T 

$110A $111A $112A $11A $12A $147 $14A $15 $18 $19 

0FA6 T OFAB T OFBB T 0058 T 0D5B T 0AB5 T 0D61 T 0A2E T 0AE4 T OAED T 

*l! $1= $1? $1A $1A5 $1B5 $2& $2+ $2, $2- 

0B05 T 0B40 T 0B78 T 0E1E T 0A27 T 0A26 T 08CD T 0915 T 094E T 0985 T 

$2. $20A $21 $21A $22 $22A $23A $24A $25 $25A 

09AE T 0D66 T 09D0 T 0D68 T 09F5 T 006A T 0D6C T 006D T 0A30 T 0048 T 

$25AA $27 $2= $2? $2A+ $2A, $2B, $3" $ 3£ $3+ 

0D51 T OACF T 0B4E T 0B7F T 090A T 0956 T 0951 T 0890 T 08CE T 0919 T 

$3. $3- $31 $32 $34A $35 $36A $37 $38A $3; 

0960 T 0988 T 09E3 T 09FA T 0092 T 0A36 T 0093 T 0AD1 T 0D9E T OBOB T 

*3? $4" $4& $4+ $4- $40A $41 $42 $45 $45A 

0B88 T 08A4 T 08D0 T 0920 T 098B T 009F T 09E6 T 09F0 T 0A3E T ODAB T 

$46A $47A $48A $4= $4A+ $4A= $4DA $5+ $5- $51 

OOBB T OOCO T 0DC6 T 0B53 T 0931 T 0B5C T 0E53 T 093F T 098F T 09E8 T 

$55 $55A $57 $5= $6" $6- $60A $63A $65 $65A 

0A82 T 0DC9 T 0A04 T 0B5F T 0896 T 0992 T OOCO T 0003 T 0A93 T 0DD5 T 

$66A $67 $6; $6= $70A $72A $73A $74A $74AA $75 

0DD8 T 0AO6 T 0B10 T 0B65 T 0E55 T 0E5D T 0E6A T 0E6D T 0E70 T 0A86 T 

$75A $76A $77 $78A $78AA $79A $79AA $7; $80A $83A 

0E73 T 0E79 T 0A08 T 0E7B T 0E7B T 0E7C T 0E81 T 0B15 T 0E86 T 0E93 T 

$83BA $84A $85A $86A $87 $87A $88A $88AA $89A $8; 

0E99 T OEBE T OEBF T 0E9F T OADA T 0EA3 T OEAB T 0EB7 T OEBB T 0B17 T 

$80A $90A $91A $92A $92AA $93A $94A $94AA $95A $95AA 

0E4B T OECC T OECE T 0ED9 T OEDO T OEEO T 0EE2 T OFOC T 0F1C T 0F1F T 
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GENLDR 



$96A $96AA $96BA $96CA $97A $98A $99A $A. $ADDRA $B0» 
0F21 T 0F26 T 0F27 T 0F2C T 0F32 T 0F39 T 0F53 T 0999 T 0F6D T 0966 T 

$B1, $BAS2A $BIT3A $BLANA $BSPEA $CKSE5 $CL , $CNTA $CNTR= $D256A 
0967 T 0FC0 T 0F12 T 0031 T 00F5 T 0A46 T 0968 T 0E27 T 0B38 T 0F6A T 

$03A $04A $D8A $DATA $0ATEA $0BASA $ENOA $EXTA $FF00A $FIN5 
0D2C T 002D T 0D2E T 0E3F T 0EC6 T 0E3E T 0F70 T 0FA5 T 0EC5 T 0A6F T 

$FLDA SINDBA $INPNA $INREA $L13 $L0PNA $M7 $NOFNA $OUTA $PDATA 
0E28 T 0F11 T 0EC7 T 0F13 T 0A15 T OE 3D T 0AC7 T 0E08 T 0E04 T 0F6F T 

$PRELA $R29 $R 2 ; $R 3A $R3AA $R6 $RLAOA $SEQE5 SSEQG5 $SEQM5 
0F6E T 0AF9 T OBOO T 0DE2 T OFBE T 0AA3 T 0D2A T 0A5E T 0A52 T 0A72 T 

$SEQ05 $SQG15 $SQP5 SSVROA $SVR1A $SVR2A $SVR3A $SYMBA $T1 . $T11 
0A61 T 0A5C T 0A6A T 007A T 0D7B T 007C T 0070 T 0DA3 T 09B7 T 09F0 T 

$T1< $T2. $TITLA $TMPA $TOPA $TSREA $TYPEA $VLOC= $ZEROA ABS 
0B36 T 09B8 T 0D7E T OFBF T 0DF9 T 0DF4 T 0E3A T 0B37 T 0FA2 T 0D2B T 

ACMD2 ACRDBU ADDR AINBUF ANSHEX AREA ASEQ ASHI ASLO ATBL2 
0006 B 0010 B 0006 A 0007 B 09F1 T 0008 A 0022 B 0009 A OOOA A OOOC B 

4TBL3 ATBL4 AVECT BASE BITO BIT1 BIT2 BIT5 BIT8 BOTEXT 
0000 B OOOF B 0011 B 0D25 T 0DE8 T 0004 A 00A2 T 0E2A T 0F17 T 0028 T 

BSEQ BSHI BSLO BSLOC BSMAX BSO BSOV BSPT BSREL BSSIZ 
0020 B 0005 A 0006 A 0002 A 0026 T 0002 A 0003 A 0B71 T 0E3B T 0002 A 

BSZ CARDIN CARDR CKSM CKSUM CLEAR CLR CLPFLG CMD2 CORE 
0004 B 0A88 T 0010 A 0001 A 0002 A 0FC1 T 08E2 T 08F8 T 0CE1 T 0009 A 

CPAO CR CROBUF CRDFLG DO 01 0127 02 D255 D256 
08AF T 08DD T 0BE6 T OOOB B 002B T OECA T 0F14 T 0EC9 T 0F19 T 0030 T 

03 D30 DATA DELAY DELAY1 DISC DSCLDR DSKL DTYP1 DTYP2 
0E29 T 002F T 0006 A FFF5 A FFF6 A 0018 A 0380 T 0000 A 0004 A 0005 A 

EA EB EC ENOBUF ENTEQ ENTPT ENTRY ENTY ENTYAD ENTYP 
0009 A 0016 A 0026 A 0008 B 0023 B 0004 A 0004 A 0001 B 0003 A 0002 A 

EOM ER ERR ETBL3 EXT EXTLIM FLAGS GENL GLDRE GO 
0002 A 08BC T 0000 A OOOE B 0E29 T 0D29 T FFFF A 0001 A 0FC6 T 0940 T 

GPCS HOOOO H0002 H0004 H0008 H0009 HOOOA HOOOD H0011 H0013 
0018 A 0025 B 0026 B 0027 B 0028 B 0029 B 002A B 002B B 002C B 002D B 

H001F H0020 H0021 H002F H0030 H0037 H0039 H003A H0040 H0046 
002E B 002F B 0030 B 0031 B 0032 B 0033 B 0034 3 0035 B 0036 B 0037 B 

H004D H0055 H0059 H005F H007D H007E H007F H0080 HOOCO HOOFF 
0038 B 0039 B 003A B 003B B 003C B 003D B 003E B 003F B 0040 B 0041 B 

H0100 HODOA H13FF HIFOO H2020 H8000 HAOOO HFOOO HFFOO HFFEE 
0042 B 0043 B 0044 B 0045 B 0046 B 0047 B 0048 B 0049 B 004A B 004B B 

HIABS HIBAS HICORE HIGH1 HIGH2 HITOP IBASE I LA I LATYP IMP16L 
0009 A 0005 A 001D B 0002 B 0005 B 0007 A 0F1B T 0003 A 0002 A 0001 A 

INBUF INDC INDEVF INLIM INLOC INVCMD INVCT JMPIN JSRIN LBST 
0BD4 T OOOB A 0012 B 0DE3 T ODAO T 089F T 001E B 0F15 T 0F16 T 0028 A 

LCRD LCRDP LDADR LDEND LDINST LDMS1 LDNIS2 LDMS3 LDMS4 LDR1 
0A05 T 0A01 T OECB T 0B72 T 0F17 T 0014 A 0009 A OOOF A 0009 A 0D32 T 

LEC01 LIMFLG LINIT LM LOABS LOAO LOBAS LOOREC LOLCHK LOTOP 
09BD T 0013 B 0A08 T 08D5 T OOOA A 0B6B T 0006 A 0D1F T 0A03 T 0008 A 
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GENLDR 



L0W1 L0W2 LSTATE LTECHO LTECO LTGET LTTYT LTTYTI LVCT MO 

0000 B 0003 B 0021 T 0AA7 T OAOO T 09FF T 0AC8 T 0A1D T OOOD A 0000 A 

Ml M10 M129 M2 M3 M4 M5 M6 M7 M8 

0001 A OOOA A 0F6B T 0002 A 0003 A 0004 A 0005 A 0006 A 0007 A 0008 A 

M9 MINI ML MRCOL MSI MS2 MS3 MS4 MS5 MSGO 

0009 A 0DE4 T 0007 A 0012 A OBCA T OBCC T OBCE T 0BD2 T OBOO T 0B97 T 

MSG1 MSG11 MSG12 MSG13 MSG14 MSG15 MSG16 MSG17 MSG18 MSG19 

0BA6 T OBBO T 0BB2 T 0BB4 T 0BB6 T 0BB8 T OBBA T OBBC T OBBE T OBCO T 

MSG20 MSG21 MSG22 MSG23 MSG3 MSG5 MSG6 MSG7 NAM1 NAM2 

0BC2 T 0BC4 T 0BC6 T 0BC8 T 0BA8 T OBAA T OBAC T OBAE T FFFC A FFFO A 

NAM3 NEZ NLM NMBR NRML NSEQ NUMB NZERO NZRO OBS 

FFFE A 0005 A 08D3 T 0A7A T 0003 A 0808 T OOOA B 0005 A OOOB A 08B0 T 

ODD OLCHK ORCDL OTS OUTANS (DUTCH OUTHEX OUTMSG OUTWD PBOT 

0003 A 0A8A T 0048 A 08B7 T OADD T OA IE T OAEB T 0B8E T OAFA T OOOC A 

PBSEC PNAM POA PRLIMS PRSYMB PT PTECHO PTGET PTREQ PTRHI 

0C43 T 0004 A OOOC A 0B39 T 0B1D T 0008 A 09BA T 09B9 T 0024 B 0015 B 

PTPLO PTRN PTRP PTTYT PZRO QCSTR RO Ri R2 R3 

0014 B OOOB A OOOC A 0A1C T 0002 A 0007 A 0000 A 0001 A 0002 A 0003 A 

RCDL RCHATN RCRD1 RCRD1P RDCARD RDCMDC RDCMDT RDCRD RDRLMC RDPLMT 

0000 A 0000 A 0A8E T 0A02 T 0A24 T 09C4 T 0969 T 0A92 T 09CD T 0997 T 

READ READCH READCK READCM REFNR RELOC RELPNT RELTYP RELX RESET 

0002 A 09BB T 0003 A 088B T FFFF A 0E2D T 0E2B T 0DA1 T 0EC8 T 0005 A 

REST RLM RLMVCT RLTH RMASK RSEQ RTYP SAVE SEARCH SEQ 

0A9E T 08F9 T 001F B 0E2C T 0F10 T 0001 A 0D20 T 0A99 T 0DF6 T 080A T 

SEOCK SETADR SETPL SRELOC SRREG START STATCK STATE STATP STATUS 

0009 B 0004 A 0881 T 0002 A 0AA3 T 0016 B 0A27 T 0017 B 0A04 T 0001 A 

STHI STINST STLO STLOW STORE SWITCH SY SY1 SYM1 SYM2 

0000 A 0F18 T 0001 A 0018 B 0B73 T 0D76 T 08BF T 08C1 T 0003 A 0007 A 

SYM3 SYMBOL SYMBOT SYMLIM SYMN1 SYMN2 SYMN3 SYMNO SYMNWE SYMOV 

OOOB A 0DE9 T 0001 A 0E39 T 00E5 T 0DE6 T 0DE7 T 0DE1 T 0005 A 0005 A 

SYMTOP SYST TA TB TBL2 TBL3 TBL4 TC TEMP TEMPI 

0000 A OOOA A 0029 A 0012 A OGB A T 0CE4 T ODOA T 0070 A 0D22 T 001C B 

TEMP2 TEMP3 TGET1 TGET2 TGET3 TITLE TSEQ TSHI TSLO TSLOC 

0D23 T 0D24 T 09AF T 09B2 T 09BF T 0001 ^ 0021 B 0007 A 0008 A 0003 A 

TSMAX TSO TSOV TSREL TSSIZ TTY TTYAD TTYPE TTYT1 UNPAK 

0D27 T 0003 A 0004 A 0E3C T 0003 A 08DF T 0038 A 0008 A 0A21 T 0E18 T 

VAL1 VAL2 VAL3 VALCNT VALFLG VALU VALUE VCTO VCT1 VECL 

0006 A OOOA A OOOE A 3019 B 001A B 0000 A 0B01 T 0C36 T OCAD T OOOC A 

WDCNT WRITE XBSREL XFFOO XREF XRMASK XTSREL ZRO 

001B B 0007 A 0PA3 T 0F6C T 0007 A OF 1A T 0FA4 T 0001 A 



2E3E 8585 
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STTYIO 



REVISION-G 05/16/ 7k 
STTYIO 00158C 07/01/7U 



1 0000 




2 0000 




3 0000 




k 0000 




5 0000 




6 0000 




7 0000 




8 0000 




9 0000 




10 0000 




11 0000 




12 0000 




i t nnnn 

A. J \jllV\J 




Ik 0000 




15 0000 




16 0000 




17 0000 




18 0000 




19 0000 




20 0000 




21 0000 




22 0000 




23 0000 




2k 0000 




25 0000 




26 0000 




27 0000 




28 0000 




29 0000 




30 onoo 




31 0000 




32 0000 




33 0000 




3k 0000 




35 0000 




36 0000 




37 0000 




38 0000 




39 0000 




kO 0000 




kl 0000 ; 




k2 0000 




kl 0000 ; 




kk 0000 




kS 0000 ; 




<*6 0000 ; 




1*7 0000 ; 




k8 0000 ; 




1*9 0000 ; 




50 0000 ; 




51 0000 ; 




52 0000 


53 0000 ; 


51* 0000 0000 A RO 


55 0000 0001 A Rl 


56 0000 0002 A R2 


57 0000 0003 A P 


3 



.TITLE STTYIO, '00158C 07/01/71*' 

STTYIO CONTAINS THE IMP-16L/16P TELETYPE I/O DRIVERS. 
THERE ARE FIVE FUNCTIONS: 

SETPL - INITIALIZES STTYIO FOR 16L OR 16P AND 

RESETS THE TELETYPE 
INTEST - TESTS FOR TELETYPE INPUT 
PUTC - TRANSMITS A CHARACTER FROM BITS 0-7 OF 

ACCUMULATOR (ACO) TO THE TELETYPE 
GETC - RECEIVES A CHARACTER FROM THE TELETYPE FOR 

TRANSFER TO BITS 0-7 OF ACO 



5EC0 



PROGRAM USE: 



SAME AS GETC PLUS AN ECHO OF THE CHARACTER 
ON THE TELETYPE PRINTER 



THE IMP-16L/16P USER MAY CALL THESE ROUTINES BY USING 
THE JSR@ INSTRUCTION. THE FOLLOWING ADDRESSES IN 
BASE PAGE ARE RESERVED FOR THIS PURPOSE. 



ADDRESS 


ROUTINE 


OOOB 


SETPL 


000C 


INTEST 


OOOD 


PUTC 


OOOE 


GETC 


OOOF 


GECO 


****** 


IMPORTANT NOTE 



********** 

* * 

* THE USER MUST MAKE A CALL TO THE * 

* ROUTINE 'SETPL' PRIOR TO ANY * 

* CALL ON THE OTHER FOUR ROUTINES * 

* * 
************************************** 



PROGRAM LIMITATIONS AND CONVENTIONS 



1. 
2. 



SETPL 
INTEST 



- NONE 



- RETURN FROM SUBROUTINE IS AS FOLLOWS: 
RTS 1 - NO INPUT FROM TELETYPE KEYBOARD 
RTS - ATTEMPT TO INPUT FROM TELETYPE 
KEYBOARD 
3. PUTC - BITS 0-7 OF ACO ARE TRANSMITTED TO TTY 
l*. GETC - BITS 0-7 OF ACO RECEIVE CHARACTER FROM TTY 
5. GECO - SAME AS GETC PLUS AN ECHO OF THE CHARACTER 

ON THE TTY PRINTER 
REGISTERS AND FUGS ARE SAVED IN ALL ROUTINES EXCEPT 
GETC AND GECO WHERE ACO IS ALTERED. THE STACK IS PUSHED 
THREE LEVELS DEEP DURING EXECUTION OF THESE ROUTINES. 



.PAGE 



STTYIO 



58 0000 

59 0000 

60 0000 

61 0000 

62 0000 

63 0000 
61* 0000 

65 0000 

66 0000 

67 0000 

68 0000 

69 0000 

70 0000 

71 0000 

72 0000 

73 0000 
71* 0000 

75 0000 

76 0000 

77 0000 

78 0000 

79 0000 

80 0000 

81 0000 

82 0000 

83 OOOB 
8k OOOC 

85 OOOD 

86 OOOE 

87 OOOF 
S8 0010 
89 0010 



FFF5 A DELAY 
FFF6 A DELAY1 
FFFB A mrsR 
OOOB A NEG 



0029 
0012 
0070 
0009 
0016 
0026 
0038 



OOOB 
006A 
001*3 
00l«* 
0018 
003F 



0FFF5 
0FFF6 
OFFFB 
11 

TELETYPE DELAY CONSTANTS 



THE FOLLOWING DELAY CONSTANTS ARE GOOD ONLY AT NORMAL 
SYSTEM SPEED, WHICH IS 175NS PERIOD IN THE SYSTEM 
OSCILLATOR. 



TA = 1*1 

TB » 18 

TC = 112 

EA = 9 

EB * 22 

EC = 38 

TTYAD = 7*8 



TRANSFER VECTOR 



.ASECT 




.=0B 




.WORD 


SETPL 


.WORD 


INTEST 


.WORD 


PPUTC 


.WORD 


GETC 


.WORD 


PGECO 



.TSECT 



9n 0000 

91 OOOO 

92 0000 

93 onoo 
9k 0000 

95 0001 

96 0002 

97 0003 

98 OOOU 

99 0005 

100 0006 

101 0007 

102 0008 

103 0009 

loti oonA 

105 OOOB 

106 OOOC 

107 OOOD 

108 OOOE 

109 OOOF 

110 0010 

111 0011 

112 0012 

113 0013 
111* 0011* 

115 0011* 

116 0011* 

117 0015 

118 0016 



29i*A 
3181 
0A80 
I*C30 
03F6 
t*E09 
i*F38 
0603 
03F5 
5829 
t*AFF 
2101 
2101* 
59FF 
31*81 
0603 
21F7 
l*CFF 
0603 
211*9 



.PAGE 

TELETYPE TRANSMIT CHARACTER ROUTINE 



LPITC: 



LP1: 



DONE: 



2936 A PPUTC: 
2D01 A 
21U6 A 



JSR 

RCPY 

PFLG 

LI 

JSR I 

LI 

LI 

ROUT 

JSR I 

ROL 

AISZ 

JMP 

JMP 

ROR 

RCPY 

ROUT 

JMP 

LI 

ROUT 

JMP 



JSR 
JSR 
JMP 



SAVE 

R0,R1 

2 

R0,X'30 

DELAY1 

R2,9 

R3, TTYAD 

3 

DELAY 

RO,TA 

R2,-l 

.+2 

DONE 

Rl,l 

R1,R0 

3 

LP1 

R0,-1 

3 

RESTOR 



SAVE 

@PPUTCA 

RESTOR 



STTYIO 



GET CHARACTER ROUTINE 



119 0017 ; 

120 0017 7E59 A PPUTCA: .WORD 07E59 

121 0018 

122 0018 

123 ooi* 
12«* 0018 

125 0018 2932 A GFTC: 

126 0019 2D02 A PGETC: 

127 001A A13C A 

128 001B 21M A 

129 001C ; 

130 001C 7E3B A PGETCA: .WORD 07E3B 



JSR 
JSR 
ST 
JMP 



SAVE 
@ PGETCA 
RO,REG 
RESTOR 



131 001D 

132 001D 

133 001D 
13k 001D 

135 001D 

136 001E 

137 001F 
13* 0020 
139 0021 
1U0 0022 
141 0023 
1«*2 002*1 
11*3 0025 
l«*i* 0026 
1U5 0027 
1**6 0028 
lit 7 0029 

148 002A 

149 002B 

150 002C 

151 002D 

152 002E 

153 002F 

154 0030 

155 0031 

156 0032 

157 0033 

158 0034 

159 0055 

160 0036 

161 0037 

162 0038 

163 0039 

164 003A 

165 003B 

166 003C 

167 003D 

168 003E 

169 003E 

170 003F 

171 003F 

172 003F 

173 OOUO 

174 001*1 

175 0042 

176 001*2 



.PAGE 

GET CHARACTER AND ECHO ROUTINE 



29 2D 

4F38 

0A80 

0605 

4E08 

0601* 

0t*02 

1201 

21FD 

4C09 

03F6 

58EA 

0402 

1201 A 

21F4 A 

0603 

03F5 

5826 

01*02 

610D 

5DFF 

3182 A 

4AFF A 

21F7 A 



UDIO 

03F5 
4CFF 
0603 
03F5 
0605 
5DF8 
31*81 
21DC 



LGECO: 



LP3: 



JSR 

LI 

PFLG 

ROUT 

LI 

ROUT 

RIN 

BOC 

JMP 

LI 

JSR I 

ROR 

RIN 

BOC 

JMP 

ROUT 

JSR I 

ROL 

RIN 

AND 

SHR 

RXOR 

AISZ 

JMP_ 

ROUi 

JSRI 

LI 

ROUT 

JSRI 

ROUT 

SHR 

RCPY 

JMP 



290B A PGECO: 
2D01 A 
21D8 A 



SAVE 

R3,TTYAD 

2 

5 

R2,8 

4 

2 

2, .+2 

.-2 

R0,EA 

DELAY1 

2 

2 .+2 

LGECO+3 

3 

DELAY 

R0,EC 

2 

R0,MASK 

Rl,l 

R0,R1 

R2,-l 

LP3 

3 

DELAY 

R0,-1 

3 

DELAY 

5 

R1,S 

R1,R0 

PGETC+1 



80O0 A MASK: .WORD X'8000 



JSR SAVE 

JSR gPGECOA 

JMP PGETC+1 



7E73 A PGECOA: .WORD 07E73 



177 001*3 



.PAGE 



STTYIO 



178 0ftt3 










179 001*3 






TELETYPE INPUT TEST 


180 00U3 










181 001*3 






RTS 1 ■ 


- NORMAL RETURN 


182 001*3 






RTS ■ 


- ATTEMPT TO INPUT 


183 001*3 










181* 001*3 


2907 A INTEST: 


JSR 


SAVE 


185 00«*i* 


t*FOO A 


LI 


R3 / 


186 001*5 


01*06 A 


RIN 


6 


187 0046 


5C08 A 


SHL 


R0,8 


188 001*7 


1201 A 


BOC 


2,. +2 


189 001*8 


2111* A 


JMP 


RESTOR 


190 00W 


2913 A 


JSR 


RESTOR 


191 00«*A 0201 A 


RTS 


1 


192 00l*B 










193 00»*B 










191* 00l*B 






SAVE/RESTORE REGISTERS AND FUGS ROUTINE 


195 00t*B 










196 001*B A10B A SAVE: 


ST 


R0,REG 


197 00l*C A50B A 


ST 


R1,REG+1 


198 00**D A90B A 


ST 


R2,REG+2 


199 00»* E ADOB A 


ST 


R3,REG+3 


200 00l*F 


0080 A 


PUSHF 




201 0050 


1*1*00 A 


PULL 


RO 


202 0051 


A10A A 


ST 


RO, FLAGS 


203 005? 


l*C01 A 


LI 


R0,1 


20«* 0053 


5RFF 4 


ROR 


R0,2 


205 0051* 


/ 


IF SEL 


FLAG SET, SELECT WILL BE NEGATIVE 


206 0051* 


A106 A 


ST 


RO,SELECT 


207 0055 


8101 A 


LD 


RO,REG 


20K 0056 


0200 A 


RTS 




209 0057 


* 






2in 0057 


005B T REG: 


.".+1* 




211 005B 


005C T SELECT: 


.=.+1 




212 005C 


005D T FLAGS: 


.».+l 




213 onsn 


/ 






21U 005D 


85FA A RFSTOR: 


LD 


R1,REG+1 


215 005E 


89FA A 


LD 


R2,REG+2 


216 005F 


8DFA A 


LD 


R3,REG+3 


217 0060 


81FB A 


LD 


RO, FLAGS 


218 0061 


1*000 A 


PUSH 


RO 


219 0062 


0280 A 


PULLF 




220 0063 


OAOO A 


SFLG 


2 


221 006U 


81F6 A 


LD 


RO, SELECT ;IF SELECT NEGAT 


222 0065 


1B01 A 


BOC 


NEG,.+2 


223 0066 


0A80 A 


PFLG 


2 


221* 0067 


81EF A 


LD 


RO,REG 


225 0f)6S 


0200 A 


RTS 




226 0069 




.PAGE 




227 0069 


/ 






228 0069 


/ 


TELETYPE SYSTEM INITIALIZATION/RESET 


229 0069 


/ 






230 0069 


0018 A GPCS 


m 


018 


231 0069 


0760 A CPAD: 


.WORD 


0760 


232 006A 


/ 






233 006A 


29E0 A SETPL: 


JSR 


SAVE 


231* 006B 


8DFD A 


LD 


R3,CPAD 


235 006C 


01*18 A 


RIN 


GPCS 


236 006D 


1*801 A 


AISZ 


R0,1 


237 006E 


2103 A 


JMP 


LINIT 


238 006F 


1*F38 A F 


1ST: 


LI 


R3,TTYAD 



STTYIO 



239 0070 0605 A 


ROUT 


5 


240 0071 21EB A 


JMP 


RESTOR 


241 0072 ; 






21*2 0072 






243 0072 8106 A UNIT: 


LD 


RO,LPUTCA 


244 0073 A00D A 


ST 


R0,0D 


21*5 0074 8105 A 


LD 


RO, LGETCA 


246 0075 A1A3 A 


ST 


RO, PGETC 


247 0076 810i» A 


LD 


RO, LGECOA 


2l*S 0077 AOOF A 


ST 


RO,OF 


249 0078 21F6 A 


JMP 


RST 


250 0079 ; 






251 0079 0000 T LRfTCA: 


.WORD 


LPUTC 


252 007A 03FB A LGETCA: 


JSRI 


TTYSR 


253 007B 001D T LGECOA: 


.WORD 


LGECO 


254 007C ; 






255 007C 


.END 





ERRORS IN ASSEMBLY 



CPAD DELAY DELAY1 DONE EA EB EC FLAGS GETC GPCS 
0069 T FFF5 A FFF6 A 0011 T 0009 A 0016 A 0026 A 005C T 0018 T 0018 A 

INTEST LGECO LGECOA LGETCA LINIT LP1 LP3 LPUTC LFUTCA MASK 
0043 T 001D T 007B T 007A T 0072 T 0008 T 002C T 0000 T 0079 T 003E T 

NEG PGECO PGECOA PGETC PGETCA PPUTC PFUTCA RO Rl R2 
OOOB A 003 F T 0042 T 0019 T 001C T 0014 T 0017 T 0000 A 0001 A 0002 A 

R3 REG RESTOR RST SAVE SELECT SETPL TA TB TC 
0003 A 0057 T 005D T 006F T 004B T 005B T 006A T 0029 A 0012 A 0070 A 

TTYAD TTYSR 
0038 A FFFB A 



1A1A D091 



EDIT16 



969 


052E 


3481 


A 




RCPY 


1,0 


970 


052F 


7044 


B 




SKAZ 


f HFF 


971 


0530 


2102 


A 




JMP 


$12 


972 


0531 


4D64 


A 




LI 


1,100 


973 


0532 


0201 


A 




RTS 


1 


974 


0533 


6432 


B 


$12: 


AND 


1,H0F 


975 


0534 


5CFC 


A 




SHR 


0,4 


976 


0535 


1103 


A 




BOC 


ZRO,$12A 


977 


0536 


490A 


A 




AISZ 


1,10 


978 


0537 


48FF 


A 




AISZ 


0,-1 


979 


0538 


21FD 


A 




JMP 


.-2 


980 


0539 


4900 


A 


$12A: 


AISZ 


1,0 


981 


053A 


0201 


A 




RTS 


1 


982 


053B 


2450 


B 




JMP 


@TYPERR 


983 


053C 


12F0 


A 


$13: 


BOC 


POS,$ll 


984 


053D 


0200 


A 




RTS 




985 


053E 








.PAGE 


'INPUT Ri 


986 


053E 








.LOCAL 




987 


053E 






t 






988 


053E 


885B 


B 


KBREAD: 


LD 


2,ADKGET 


989 


053F 


2103 


A 




JMP 


PTR1 


990 


0540 


885A 


B 


CRREAD: 


LD 


2,ADCGET 


991 


0541 


2101 


A 




JMP 


PTR1 


992 


0542 


885C 


B 


PTREAD : 


LD 


2,ADTGET 


993 


0543 


A81F 


B 


PTR1: 


ST 


2, MODE 


994 


0544 


29E1 


A 




JSR 


CNVRT 


995 


0545 


4D00 


A 




LI 


1,0 


996 


0546 


A427 


B 




ST 


l,COUNTl 


997 


0547 


8C01 


B 




LD 


3, LAST 


998 


0548 


AC16 


B 




ST 


3, SHI 


999 


0549 


EC0C 


B 


$1: 


SKG 


3,SHT39 


1000 


054A 


2101 


A 




JMP 


. + 2 


1001 


054B 


210D 


A 




JMP 


$3 


1002 


054C 


2C1F 


B 




JSR 


@MODE 


1003 


054D 


210D 


A 




JMP 


$3A 


1004 


054E 


7816 


B 




ISZ 


SHI 


1005 


054F 


8C09 


B 




LD 


3,ADBUF 


1006 


0550 


2910 


A 




JSR 


STBUF 


1007 


0551 


8C16 


B 




LD 


3, SHI 


1008 


0552 


7C27 


B 




DSZ 


COUNT 1 


±00y 


kJbbJ 


illFb 


A 




JMP 


$1 


1010 


0554 


885C 


B 


$7: 


LD 


2,ADTGET 


1011 


0555 


F81F 


B 




SKNE 


2, MODE 


1012 


0556 


2958 


A 




JSR 


$9 


1013 


0557 


7822 


B 


$7A: 


ISZ 


FNDTST 


1014 


0558 


247A 


I 




JMP 


MLINE 


1015 


0559 






t 






1016 


0559 


2904 


A 


$3: 


JSR 


BUFULL 


1017 


055A 


8C16 


B 




LD 


3, SHI 


1018 


055B 


FC01 


B 


$3A: 


SKNE 


3, LAST 


1019 


055C 


2458 


B 




JMP 


@START1 


1020 


055D 


21F6 


A 




JMP 


$7 


1021 


055E 






• 






1022 


055E 


2C57 


B 


BUFULL: 


JSR 


@STYPE 


1023 


055F 


0805 


T 




.WORD 


FULL 


1024 


0560 


0200 


A 




RTS 





1025 0561 .PAGE 

1026 0561 ; 

1027 0561 AC25 B STBUF: ST 

1028 0562 4F48 A LI 

1029 0563 4E00 A LI 



APPEND EDIT BUFFER ROUTINES 

3,PTBUF 

3,72 

2,0 
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EDIT16 



1030 


0564 


4C00 


A 




LI 


0,0 




1031 


0565 


9425 


B 


$2: 


LD 


1,§PTBUF 




1032 


0566 


7825 


B 




ISZ 


PTBUF 




1033 


0567 


F431 


B 




SKNE 


1,H0D 




1034 


0568 


2105 


A 




JMP 


$2A 




1035 


0569 


7443 


B 




SKAZ 


1,HDF 




1036 


056A 


2908 


A 




JSR 


STDATA 




1037 


056B 


C82C 


B 




ADD 


2,H01 




1038 


056C 


4BFF 


A 




AISZ 


3,-1 




1039 


056D 


21F7 


A 




JMP 


$2 




1040 


056E 


1102 


A 


$2A: 


BOC 


ZRO,$2B 




1041 


056F 


4D20 


A 




LI 


1,X'20 




1042 


0570 


290A 


A 




JSR 


STEBUF 




1043 


0571 


4C0D 


A 


$2B: 


LI 


0,X'0D 




1044 


0572 


210A 


A 




JMP 


STEB1 




1045 


0573 






t 








1046 


0573 


4A00 


A 


STDATA: 


AISZ 


2,0 




1047 


0574 


2101 


A 




JMP 


. + 2 




1048 


0575 


2104 


A 




JMP 


STD1 




1049 


0576 


3980 


A 




RXCH 


2,1 




1050 


0577 


C440 


B 




ADD 


1,H80 




1051 


0578 


2902 


A 




JSR 


STEBUF 




1052 


0579 


3981 


A 




RCPY 


2,1 




1053 


057A 


4EFF 


A 


STD1: 


LI 


2,-1 




1054 


057B 






t 








1055 


057B 


1105 


A 


STEBUF: 


BOC 


ZRO r STEB2 




1056 


057C 


3400 


A 




RADD 


1,0 




1057 


057D 


B016 


B 


STEB1: 


ST 


0,@SHI 




1058 


057E 


7816 


B 




ISZ 


SHI 




1059 


057F 


4C00 


A 




LI 


0,0 




1060 


0580 


0200 


A 




RTS 






1061 


0581 


3400 


A 


STEB2: 


RADD 


1,0 




1062 


0582 


5C08 


A 




SHL 


0,8 




1063 


0583 


0200 


A 




RTS 






1064 


0584 








.PAGE 


'KEY BOARD 


INPUT ROUTINE' 


1065 


0584 






i 








1066 


0584 


2C59 


B 


KBG1: 


JSR 


@TRISTR 




1067 


0585 






t 








1068 


0585 


4C2D 


A 


KBGETC: 


LI 


0,X'2D 


; OUTPUT '-' 


1069 


0586 


2C51 


B 




JSR 


@SPUTC 




1070 


0587 


4C3E 


A 




LI 


0,X'3E 


; OUTPUT '>' 


1071 


0588 


2C51 


B 




JSR 


@SPUTC 




1072 


0589 


4C20 


A 




LI 


0,X'20 


; OUTPUT 2 SPACES 


1073 


058A 


2C54 


B 




JSR 


@S02CH 




1074 


058B 


8C09 


B 




LD 


3,ADBUF 




1075 


058C 


AC25 


B 




ST 


3, PTBUF 




1076 


058D 


4E44 


A 




LI 


2,68 




1077 


058E 


2C53 


B 




JSR 


@SGECO 




1078 


058F 


F033 


B 




SKNE 


0,H11 


; TEST FOR CNTRL/i 


1079 


0590 


2459 


B 




JMP 


0TRISTR 




1080 


0591 


2101 


A 




JMP 


. + 2 




1081 


0592 


2C53 


B 


$6: 


JSR 


0SGECO 




1082 


0593 


2923 


A 




JSR 


TTYINP 




1083 


0594 


21EF 


A 




JMP 


KBG1 




1084 


0595 


21FC 


A 




JMP 


$6 




1085 


0596 


2101 


A 




JMP 


. + 2 




1086 


0597 


2C4F 


B 




JSR 


@SCRLF 




1087 


0598 


4A04 


A 




AISZ 


2,4 




1088 


0599 


4C20 


A 


$10: 


LI 


0,X'20 




1089 


059A 


A300 


A 


$10A: 


ST 


0,(3) 




1090 


059B 


4B01 


A 




AISZ 


3,1 




1091 


059C 


4AFF 


A 




AISZ 


2,-1 




1092 


059D 


21FC 


A 




JMP 


$10A 




1093 


059E 


0201 


A 




RTS 


1 





18 



EDIT16 



1094 


059F 








.PAGE 


PAPER TAPE INPt 


JT ROUTINE 




1095 


059F 






• 










1096 


059F 


8C09 


B 


PTGETC: 


LD 


3,ADBUF 






1097 


05A0 


AC 25 


B 




ST 


3 f PTBUF 






1098 


05A1 


4E48 


A 




LI 


2,72 






1099 


05A2 


2C52 


B 




JSR 


@SGETC 






1100 


5 A3 


F033 


B 




SKNE 


f Hll 


; TEST FOR 


CNTRL/Q 


1101 


05A4 


210A 


A 




JMP 


$9 






1102 


05A5 


2101 


A 




JMP 


. + 2 






1103 


05A6 


2C52 


B 


$8: 


JSR 


@SGETC 






1104 


05A7 


290F 


A 




JSR 


TTYINP 






1105 


05A8 


21AE 


A 




JMP 


$7A 






1106 


05A9 


21FC 


A 




JMP 


$8 






1107 


05AA 


21EE 


A 




JMP 


$10 






1108 


05AB 


2C52 


B 


S8A: 


JSR 


0SGETC 






1109 


05 AC 


F031 


B 




SKNE 


0,H0D 






1110 


05 AD 


0201 


A 




RTS 


1 






1111 


05AE 


21FC 


A 




JMP 


$8A 






1112 


05AF 






i 










1113 


05AF 


2C57 


B 


$9: 


JSR 


9STYPE 






1114 


05B0 


07CC 


T 




.WORD 


TPAK2 






1115 


05B1 


4C07 


A 




LI 


0,7 






1116 


05B2 


4D0F 


A 




LI 


1,15 






1117 


05B3 


2C51 


B 


$9A: 


JSR 


@SPUTC 






1118 


05B4 


49FF 


A 




AISZ 


1,-1 






1119 


05B5 


21FD 


A 




JMP 


$9A 






1120 


05B6 


244F 


B 




JMP 


@SCRLF 






1121 


0537 








.PAGE 


'TELETYPE INPUT 


TEST' 




1122 


05B7 






t 










1123 


05B7 


F02F 


B 


TTYINP: 


SKNE 


0,H09 


; TEST FOR 


HORIZONTAL TAB 


1124 


05B8 


210F 


A 




JMP 


$4 






1125 


05B9 


F031 


B 




SKNE 


0,H0D 


; TEST FOR 


CARRIAGE RETURN 


1126 


05BA 


0202 


A 




RTS 


2 






1127 


05BB 


F033 


B 




SKNE 


0,H11 


; CTRL/Q 




1128 


05BC 


0200 


A 




RTS 








1129 


05BD 


F03E 


B 




SKNE 


0,H5F 


; TEST FOR 




1130 


05BE 


2125 


A 




JMP 


$5 






1131 


05BF 


E03E 


B 




SKG 


0,H5F 


; TEST FOR 


VALID CHARACTER 


1132 


05C0 


E035 


B 




SKG 


0,H1F 


; ASCII 20 


THRU ASCII 5F 


1133 


05C1 


0201 


A 




RTS 


1 






1134 


05C2 


A300 


A 




ST 


0,(3) 






1135 


05C3 


4B01 


A 




AISZ 


3,1 






1136 


05C4 


7825 


B 




ISZ 


PTBUF 






1137 


05C5 


4AFF 


A 




AISZ 


2,-1 






1138 


05C6 


0201 






RTS 


1 






1139 


05C7 


0203 


A 




RTS 


3 






1140 


05C8 
















1141 


05C8 








HORIZONTAL TAB ANALYSIS 






1142 


05C8 
















1143 


05C8 


3C81 


A 


$4: 


RCPY 


3,0 






1144 


05C9 


D009 


B 




SUB 


0,ADBUF 






1145 


05CA 


4801 


A 




AISZ 


0,1 






1146 


05CB 


E00F 


B 




SKG 


0,TAB1 






1147 


05CC 


2105 


A 




JMP 


$4A 






1148 


05CD 


E010 


B 




SKG 


0,TAB2 






1149 


05CE 


2105 


A 




JMP 


$4B 






1150 


05CF 


E011 


B 




SKG 


0,TAB3 






1151 


05D0 


2105 


A 




JMP 


$4C 






1152 


05D1 


0201 


A 




RTS 


1 






1153 


05D2 


D00F 


B 


$4A: 


SUB 


0,TAB1 






1154 


05D3 


2103 


A 




JMP 


$4D 






1155 


05D4 


D010 


B 


$4B: 


SUB 


0,TAB2 







19 



EDIT16 



1156 


05D5 


2101 


A 




JMP 


$4D 


1157 


05D6 


D011 


B 


$4C: 


SUB 


0,TAB3 


1158 


05D7 


48FF 


A 


$4D: 


AISZ 


0,-1 


1159 


05D8 


A028 


B 




ST 


0,COUNT2 


1160 


05D9 


4C20 


A 




LI 


0,X'20 


1161 


05DA 


845B 


B 




LD 


1,ADKGET 


1162 


05DB 


F41F 


B 


$4E: 


SKNE 


l,MODE 


1163 


05DC 


2C51 


B 




JSR 


@SPUTC 


1164 


05DD 


A300 


A 




ST 


0,(3) 


1165 


05DE 


4B01 


A 




AISZ 


3,1 


1166 


05DF 


7825 


B 




ISZ 


PTBUF 


1167 


05E0 


4AFF 


A 




AISZ 


2,-1 


1168 


05 El 


7828 


B 




ISZ 


COUNT 2 


1169 


05E2 


21F8 


A 




JMP 


$4E 


1170 


05E3 


0201 


A 




RTS 


1 


1171 


05E4 












1172 


05E4 








BACK ARROW INPUT ANi 


1173 


05E4 












1174 


05E4 


FC09 


B 


$5: 


SKNE 


3,ADBUF 


1175 


05E5 


0201 


A 




RTS 


1 


1176 


05E6 


4BFF 


A 




AISZ 


3,-1 


1177 


05E7 


7C25 


B 




DSZ 


PTBUF 


1178 


05E8 


4AFF 


A 




AISZ 


2,-1 


1179 


05E9 


0201 


A 




RTS 


1 


1180 


05EA 


0203 


A 




RTS 


3 


1181 


05EB 








.PAGE 


'CARD READER 


1182 


05EB 






• 






1183 


05EB 


2C57 


B 


INERR: 


JSR 


@STYPE 


1184 


05EC 


07F3 


T 




.WORD 


CRPK1 


1185 


05ED 


0200 


A 




RTS 




1186 


05EE 


0605 


A 


CRESET: 


ROUT 


RES 


1187 


05EF 


0200 


A 




RTS 




1188 


05F0 






i 






1189 


05F0 


4F10 


A 


CRGETC: 


LI 


3,CRADDR 


1190 


05F1 


8009 


B 




LD 


0,ADBUF 


1191 


05F2 


0602 


A 


RDCR: 


ROUT 


STNDRD 


1192 


05F3 


1C03 


A 




BOC 


POA, WTLOOP 


1193 


05F4 


2C4D 


B 




JSR 


§SINTST 


1194 


05F5 


21F8 


A 




JMP 


CRESET 


1195 


05F6 


21 FB 


A 




JMP 


RDCR 


1196 


05F7 


0401 


A 


WTLOOP : 


RIN 


STATUS 


1197 


05F8 


2C4E 


B 




JSR 


@SRESET 


1198 


05F9 


2C4D 


B 




JSR 


@SINTST 


1199 


05FA 


21F3 


A 




JMP 


CRESET 


1200 


05FB 


7041 


B 




SKAZ 


f HC0 


1201 


05FC 


21EE 


A 




JMP 


INERR 


1202 


05FD 


5CFE 


A 




SHR 


0,2 


1203 


05FE 


14F8 


A 




BOC 


BIT1, WTLOOP 


1204 


05FF 


8C09 


B 


CONV: 


LD 


3,ADBUF 


1205 


0600 












1206 


0600 








HOLLERITH TO ASCII 


1207 


0600 












1208 


0600 


4D48 


A 


CHTOA: 


LI 


1,72 


1209 


0601 


8300 


A 


CHT01: 


LD 


0,(3) 


1210 


0602 


890E 


A 




LD 


2,TADDR 


1211 


0603 


F200 


A 


CHT02: 


SKNE 


0,(2) 


1212 


0604 


2105 


A 




JMP 


$12A 


1213 


0605 


F90C 


A 




SKNE 


2,BADDR 


1214 


0606 


2102 


A 




JMP 


$12 


1215 


0607 


4A01 


A 




AISZ 


2,1 


1216 


0608 


21FA 


A 




JMP 


CHT02 



; READ NEXT CARD 



; BRANCH IF BUSY 



;LOAD HOLLERITH CHARACTER 
•COMPARE WITH HOLLERITH TABLE 



20 



EDIT16 



1217 


0609 






t 






1218 


0609 


8907 


A 


$12: 


LD 


2, TADDR 


1219 


060A 


D906 


A 


$12A: 


SUB 


2 , TADDR 


1220 


060B 


4A20 


A 




AISZ 


2,X'20 


1221 


060C 


AB00 


A 




ST 


2,(3) 


1222 


060D 


4B01 


A 




AISZ 


3,1 


1223 


060E 


49FF 


A 




AISZ 


1,-1 


1224 


060F 


21F1 


A 




JMP 


CHT01 


1225 


0610 


0201 


A 




RTS 


1 


1226 


0611 






t 






1227 


0611 


0778 


T 


TADDR: 


.WORD 


BEGHOL 


1228 


0612 


07B8 


T 


BADDR: 


.WORD 


BEGHOL+64 


1229 


0613 






; 






1230 


0613 


8809 


B 


PCRGET: 


LD 


2,ADBUF 


1231 


0614 


2D07 


A 


PCRG1 : 


JSR 


@CRP 


1232 


0615 


2103 


A 




JMP 


TERR 


1233 


0616 


2C4D 


B 




•JSR 


flSINTST 


1234 


0617 


0200 


A 




RTS 





1235 


0618 


21E6 


A 




JMP 


CONV 


1236 


0619 






i 






1237 


0619 


2C4D 


B 


TERR: 


JSR 


@SINTST 


1238 


061A 


0200 


A 




RTS 





1239 


061B 


21F8 


A 




JMP 


PCRG1 


1240 


061C 






t 






1241 


061C 


7FD3 


A 


CRP: 


.WORD 


07FD3 


1242 


061D 








.PAGE 


'OUTPUT B 


1243 


061D 








. LOCAL 




1244 


061D 






> 






1245 


061D 


8C04 


B 


PUNCHL: 


LD 


3,ADPLN2 


1246 


061E 


2104 


A 




JMP 


PRI2 


1247 


061 F 


2102 


A 


TYPEL: 


JMP 


PRI1 


1248 


0620 


885D 


B 


PRINTL: 


LD 


2,ADHSP 


1249 


0621 


A80A 


B 




ST 


2, DEVICE 


1250 


0622 


8C03 


B 


PRI1: 


LD 


3,ADPLN 


1251 


0623 


AC1F 


B 


PRI2: 


ST 


3, MODE 


1252 


0624 


8804 


B 




LD 


2 r ADPLN2 


1253 


0625 


F81F 


B 




SKNE 


2, MODE 


1254 


0626 


2101 


A 




JMP 


. + 2 


1255 


0627 


2103 


A 




JMP 


$8B 


1256 


0628 


2C57 


B 




JSR 


@STYPE 


1257 


0629 


07E0 


T 




.WORD 


TPAK4 


1258 


062A 


2C52 


B 


$8A: 


JSR 


@SGETC 


1259 


062B 


2976 


A 


$8B: 


JSR 


SETLHR 


1260 


062C 


2C1F 


B 


$8C: 


JSR 


@MODE 


1261 


062D 


FC18 


B 




SKNE 


3,RHI 


1262 


062E 


2101 


A 




JMP 


. + 2 


1263 


062F 


21FC 


A 




JMP 


$8C 


1264 


0630 


8804 


B 




LD 


2,ADPLN2 


1265 


0631 


F81F 


B 




SKNE 


2, MODE 


1266 


0632 


2101 


A 




JMP 


. + 2 


1267 


0633 


21F7 


A 




JMP 


$8B 


1268 


0634 


9002 


B 




LD 


0,@PTRBUF 


1269 


0635 


F031 


B 




SKNE 


0,H0D 


1270 


0636 


21F3 


A 




JMP 


$8A 


1271 


0637 


21F3 


A 




JMP 


$8B 


1272 


0638 












1273 


0638 








LIST FIRST/LAST R 


1274 


0638 












1275 


0638 


2C67 


I 


LISTF: 


JSR 


RNGZRO 


1276 


0639 


8C00 


B 




LD 


3, FIRST 


1277 


063A 


FC01 


B 




SKNE 


3 , LAST 



;SAVE CONVERTED VALUE 



; ADDRESS OF HOLLERITH TABLE 



21 



EDIT16 



1278 


063B 


210D 


A 




JMP 


NOFILE 


1279 


063C 


2913 


A 


$8: 


JSR 


PUTLN 


1280 


063D 


2458 


B 




JMP 


9 START 1 


1281 


063E 






> 






1282 


063E 


2C67 


I 


LISTL: 


JSR 


RNGZRO 


1283 


063F 


8C01 


B 




LD 


3, LAST 


1284 


0640 


FC00 


B 




SKNE 


3, FIRST 


1285 


0641 


2107 


A 




JMP 


NOFILE 


1286 


0642 


4C0D 


A 




LI 


0,X'0D 


1287 


0643 


4BFF 


A 


$9: 


AISZ 


3,-1 


1288 


0644 


F3FF 


A 




SKNE 


0,-1(3) 


1289 


0645 


21F6 


A 




JMP 


$8 


1290 


0646 


FC00 


B 




SKNE 


3, FIRST 


1291 


0647 


21F4 


A 




JMP 


$8 


1292 


0648 


21FA 


A 




JMP 


$9 


1293 


0649 






i 






1294 


0649 


8C01 


B 


NOFILE: 


LD 


3, LAST 


1295 


064A 


FC00 


B 




SKNE 


3, FIRST 


1296 


064B 


2101 


A 




JMP 


. + 2 


1297 


064C 


247B 


I 




JMP 


NUM3 


1298 


064D 


2C57 


B 




JSR 


0STYPE 


1299 


064E 


07D7 


T 




.WORD 


TPAK3 


1300 


064F 


245E 


B 




JMP 


@RINIT1 


1301 


0650 








.PAGE 


'OUTPUT 


1302 


0650 






r 






1303 


0650 


4E04 


A 


PUTLN : 


LI 


2,4 


1304 


0651 


8700 


A 




LD 


1,(3) 


1305 


0652 


5904 


A 


SI: 


ROL 


1,4 


1306 


0653 


7432 


B 




SKAZ 


1,H0F 


1307 


0654 


2102 


A 




JMP 


. + 3 


1308 


0655 


4AFF 


A 




AISZ 


2,-1 


1309 


0656 


21FB 


A 




JMP 


$1 


1310 


0657 


A827 


B 




ST 


2,COUNTl 


1311 


0658 


4AFC 


A 




AISZ 


2,-4 


1312 


0659 


2101 


A 




JMP 


. + 2 


1313 


065A 


2104 


A 




JMP 


$2 


1314 


065B 


4C20 


A 




LI 


0,X'20 


1315 


065C 


2C0A 


B 




JSR 


^DEVICE 


1316 


065D 


4A01 


A 




AISZ 


2,1 


1317 


065E 


21FD 


A 




JMP 


.-2 


1318 


065F 


3481 


A 


$2: 


RCPY 


1,0 


1319 


0660 


5904 


A 




ROL 


1,4 


1320 


0661 


6032 


B 




AND 


0,H0F 


1321 


0662 


4830 


A 




AISZ 


0,X'30 


1322 


0663 


2C0A 


B 




JSR 


^DEVICE 


1323 


0664 


7C27 


B 




DSZ 


COUNT 1 


1324 


0665 


21F9 


A 




JMP 


$2 


1325 


0666 


4C20 


A 




LI 


0,X'20 


1326 


0667 


2C55 


B 




JSR 


@S03CH 


1327 


0668 


4E41 


A 




LI 


2,65 


1328 


0669 


2101 


A 




JMP 


. + 2 


1329 


066A 


4E00 


A 


PUTLN2: 


LI 


2,0 


1330 


066B 


4B01 


A 




AISZ 


3,1 


1331 


066C 


8300 


A 


$4: 


LD 


0,(3) 


1332 


066D 


4B01 


A 




AISZ 


3,1 


1333 


066E 


F031 


B 




SKNE 


0,H0D 


1334 


066F 


244F 


B 




JMP 


@SCRLF 


1335 


0670 


1201 


A 




BOC 


POS,.+2 


1336 


0671 


291B 


A 




JSR 


REPEAT 


1337 


0672 


5808 


A 




ROL 


0,8 


1338 


0673 


A020 


B 




ST 


0,RGFLG 
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EDIT16 



1339 


0674 


6044 


B 


AND 


0,HFF 


1340 


0675 


2C0A 


B 


JSR 


8DEVICE 


1341 


0676 


2C4E 


B 


JSR 


@SRESET 


1342 


0677 


2C4D 


B 


JSR 


@SINTST 


1343 


0678 


2123 


A 


JMP 


RETURN 


1344 


0679 


4AFF 


A 


AISZ 


2,-1 


1345 


067A 


2105 


A 


JMP 


$7 


1346 


067B 


8300 


A $5: 


LD 


0,(3) 


1347 


067C 


4B01 


A 


AISZ 


3,1 


1348 


067D 


F031 


B 


SKNE 


0,H0D 


1349 


067E 


244F 


B 


JMP 


0SCRLF 


1350 


067F 


21 FB 


A 


JMP 


$5 


1351 


0680 




i 






1352 


0680 


8020 


B $7: 


LD 


0,RGFLG 


1353 


0681 


1201 


A 


BOC 


POS,.+2 


1354 


0682 


290A 


A 


JSR 


REPEAT 


1355 


0683 


5808 


A 


ROL 


0.8 


1356 


0684 


2100 


A 


JMP 


. + 1 


1357 


0685 


6044 


B 


AND 


0,HFF 


1358 


0686 


2C0A 


B 


JSR 


^DEVICE 


1359 


0687 


2C4E 


B 


JSR 


@SRESET 


1360 


0688 


2C4D 


B 


JSR 


@SINTST 


1361 


0689 


2112 


A 


JMP 


RETURN 


1362 


068A 


4AFF 


A 


AISZ 


2,-1 


1363 


068B 


21E0 


A 


JMP 


$4 


1364 


068C 


21EE 


A 


JMP 


$5 


1365 


068D 




, 






1366 


068D 


5808 


A REPEAT: 


ROL 


0,8 


1367 


068E 


A020 


B 


ST 


0,RGFLG 


1368 


068F 


603F 


B 


AND 


0,H7F 


1369 


0690 


3181 


A 


RCPY 


0,1 


1370 


0691 


4C20 


A 


LI 


0,X'20 


1371 


0692 


2C0A 


B REP1: 


JSR 


9DEVICE 


1372 


0693 


2C4E 


B 


JSR 


@SRESET 


1373 


0694 


2C4D 


B 


JSR 


@SINTST 


1374 


0695 


2106 


A 


JMP 


RETURN 


1375 


0696 


4AFF 


A 


AISZ 


2,-1 


1376 


0697 


2101 


A 


JMP 


. + 2 


1377 


0698 


0209 


A 


RTS 


9 


1378 


0699 


49FF 


A 


AISZ 


1,-1 


1379 


069A 


21F7 


A 


JMP 


REP1 


1380 


069B 


0208 


A 


RTS 


8 


1381 


069C 




i 






1382 


069C 


8004 


B RETURN: 


LD 


0,ADPLN2 


1383 


069D 


F01F 


B 


SKNE 


0,MODE 


1384 


069E 


2C52 


B 


JSR 


@SGETC 


1385 


069F 


8051 


B 


LD 


, SPUTC 


1386 


06A0 


A00A 


B 


ST 


0, DEVICE 


1387 


06A1 


2141 


A 


JMP 


REINIT 



1388 06A2 

1389 06A2 

1390 06A2 2956 

1391 06A3 290F A SETl 

1392 06A4 2479 I 

1393 06A5 8017 B 

1394 06A6 1507 A 

1395 06A7 8C01 B 

1396 06A8 AC18 B 

1397 06A9 8C00 B 

1398 06AA FC01 B 

1399 06AB 219D A 



.PAGE 



SET LO AND HI RANGE 



SETLHR: 


JSR 


EXPZRO 


SETl: 


JSR 


STLOHI 




JMP 


NUMBER 




LD 


0,RLO 




BOC 


NZRO,SET2 




LD 


3, LAST 




ST 


3,RHI 




LD 


3, FIRST 




SKNE 


3, LAST 




JMP 


NOFILE 



23 



EDIT16 



1400 


06 AC 


7822 


B 




ISZ 


FNDTST 


1401 


06AD 


0200 


A 




RTS 




1402 


06AE 


2916 


A 


SET2: 


JSR 


SRCHRG 


1403 


06AF 


21F3 


A 




JMP 


SET1 


1404 


06B0 


7822 


B 




ISZ 


FNDTST 


1405 


06B1 


8C17 


B 




LD 


3,RLO 


1406 


06B2 


0200 


A 




RTS 




1407 


06B3 






t 






1408 


06B3 


4C00 


A 


STLOHI: 


LI 


0,0 


1409 


06B4 


4E02 


A 




LI 


2,2 


1410 


06B5 


A017 


B 


SETL01: 


ST 


0,RLO 


1411 


06B6 


9002 


B 




LD 


0,@ PTRBUF 


1412 


06B7 


F031 


B 




SKNE 


f H0D 


1413 


06B8 


0200 


A 




RTS 




1414 


06B9 


F049 


B 




SKNE 


r HFFFF 


1415 


06BA 


2104 


A 




JMP 


STL02 


1416 


06BB 


A018 


B 




ST 


0,RHI 


1417 


06BC 


7802 


B 




ISZ 


PTRBUF 


1418 


06BD 


4AFF 


A 




AISZ 


2,-1 


1419 


06BE 


21F6 


A 




JMP 


SETL01 


1420 


06BF 


7802 


B 


STL02: 


ISZ 


PTRBUF 


1421 


06C0 


0201 


A 




RTS 


1 


1422 


06C1 








.PAGE 


'SEARCH Ri 


1423 


06C1 






i 






1424 


06C1 


290B 


A 


SRCHLN: 


JSR 


SRCHLO 


1425 


06C2 


2916 


A 




JSR 


ANDH0D 


1426 


06C3 


AC18 


B 


SLN1: 


ST 


3,RHI 


1427 


06C4 


0201 


A 




RTS 


1 


1428 


06C5 






i 






1429 


06C5 


2907 


A 


SRCHRG: 


JSR 


SRCHLO 


1430 


06C6 


2912 


A 


SRG1: 


JSR 


ANDH0D 


1431 


06C7 


FC01 


B 




SKNE 


3, LAST 


1432 


06C8 


21 FA 


A 




JMP 


SLN1 


1433 


06C9 


8300 


A 




LD 


0,(3) 


1434 


06CA 


E018 


B 




SKG 


0,RHI 


1435 


06CB 


21 FA 


A 




JMP 


SRG1 


1436 


06CC 


21F6 


A 




JMP 


SLN1 


1437 


06CD 






9 






1438 


06CD 


8C00 


B 


SRCHLO: 


LD 


3, FIRST 


1439 


06CE 


FC01 


B 


SL01: 


SKNE 


3, LAST 


1440 


06CF 


246D 


I 




JMP 


NOFILE 


1441 


06D0 


8300 


A 




LD 


0,(3) 


1442 


06D1 


E017 


B 




SKG 


0,RLO 


1443 


06D2 


F017 


B 




SKNE 


0,RLO 


1444 


06D3 


2102 


A 




JMP 


SL02 


1445 


06D4 


2904 


A 




JSR 


ANDH0D 


1446 


06D5 


21F8 


A 




JMP 


SL01 


1447 


06D6 


AC17 


B 


SL02: 


ST 


3,RLO 


1448 


06D7 


7822 


B 




ISZ 


FNDTST 


1449 


06D8 


0200 


A 




RTS 





1450 06D9 .PAGE 

1451 06D9 ? 

1452 06D9 4B01 A ANDH0D: AISZ 3,1 

1453 06DA 8300 A ANDl : LD 0,(3) 

1454 06DB 4B01 A AISZ 3,1 

1455 06DC 48F3 A AISZ 0,-X'0D 

1456 06DD 21FC A JMP ANDl 

1457 06DE 0200 A RTS 

1458 06DF • 

1459 06DF 6032 B ANDH0A: AND 0,H0F 

1460 06E0 48F6 A AISZ 0,-X'0A 



24 



EDIT16 



1461 06E1 4400 A 

1462 06E2 0200 A 



PULL 
RTS 



1463 


06E3 








.PAGE 


'REINITIALIZATION ROUTINES 


1464 


06E3 






» 






1465 


06E3 


290B 


A 


REINIT: 


JSR 


SPATSK 


1466 


06E4 


4D10 


A 


RNIT1: 


LI 


1,16 


1467 


06E5 


4400 


A 




PULL 





1468 


06E6 


49FF 


A 




AISZ 


1,-1 


1469 


06E7 


21FD 


A 




JMP 


.-2 


1470 


06E8 


2458 


B 




JMP 


@START1 


1471 


06E9 






i 






1472 


06E9 


2912 


A 


WAITCR: 


JSR 


GETCO 


1473 


06EA 


48F3 


A 


WAIT1: 


AISZ 


0,-X'0D 


1474 


06EB 


21FD 


A 




JMP 


.-2 


1475 


06EC 


2913 


A 


WAIT2: 


JSR 


TYPE 


1476 


06ED 


080D 


T 




.WORD 


ERROR 


1477 


06EE 


21F5 


A 




JMP 


RNIT1 


1478 


06EF 






t 






1479 


06EF 


4C20 


A 


SPATSK: 


LI 


0,X'20 


1480 


06F0 


291B 


A 




JSR 


02CH 


1481 


06F1 


4C2A 


A 




LI 


f X'2A 


1482 


06F2 


2918 


A 




JSR 


03CH 


1483 


06F3 


4C0D 


A 


CRLF: 


LI 


f X'0D 


1484 


06F4 


2C0A 


B 




JSR 


@DEVICE 


1485 


06F5 


4C0A 


A 




LI 


r X'0A 


1486 


06F6 


240A 


B 




JMP 


^DEVICE 


1487 


06F7 






t 






1488 


06F7 


8024 


B 


RNGZRO: 


LD 


0,RNGTST 


1489 


06F8 


15F3 


A 




30C 


NZRO,WAIT2 


1490 


06F9 


8021 


B 


EXPZRQ: 


LD 


, EXPTST 


1491 


06 FA 


15F1 


A 




BOC 


NZRO,WAIT2 


1492 


06FB 


0200 


A 




RTS 




1493 


06FC 








.PAGE 


'SPECIAL I/O ROUTINES' 


1494 


06FC 






/ 






1495 


06FC 


2C53 


B 


GETCO: 


JSR 


@SGECO 


1496 


06FD 


F033 


B 




SKNE 


0,H11 ; CNTRL/Q 


1497 


06FE 


21E4 


A 




JMP 


REINIT 


1498 


06FF 


0200 


A 




RTS 




1499 


0700 






• 






1500 


0700 


4700 


A 


TYPE: 


PULL 


3 


1501 


0701 


4300 


A 




PUSH 


3 


1502 


0702 


8F00 


A 




LD 


3,(3) 


1503 


0703 


8300 


A 


TYP1: 


LD 


0,(3) 


1504 


0704 


4B01 


A 




AISZ 


3,1 


1505 


0705 


1121 


A 




BOC 


ZRO,RETl 


1506 


0706 


5808 


A 




ROL 


0,8 


1507 


0707 


2C51 


B 




JSR 


@SPUTC 


1508 


0708 


5808 


A 




ROL 


0,8 


1509 


0709 


2C51 


B 




JSR 


@SPUTC 


1510 


070A 


21F8 


A 




JMP 


TYP1 


1511 


070B 






i 






1512 


070B 


2C0A 


B 


03CH: 


JSR 


^DEVICE 


1513 


070C 


2C0A 


B 


02CH: 


JSR 


§DEVICE 


1514 


070D 


240A 


B 




JMP 


^DEVICE 


1515 


070E 








.PAGE 


'HIGH SPEED PRINTER ROUTINE 


1516 


070E 






r 






1517 


070E 


2907 


A 


HSPRT: 


JSR 


SAVE 
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1518 


070F 


4F48 


A 


LI 


3,HSPAD 


1519 


0710 


0607 


A 


ROUT 


7 


1520 


0711 


1C01 


A 


BOC 


POA, .+2 


1521 


0712 


21FD 


A 


JMP 


.-2 


1522 


0713 


0401 


A 


RIN 


STATUS 


1523 


0714 


1406 


A 


BOC 


BITl,RESTOR 


1524 


0715 


21FD 


A 


JMP 


.-2 



1525 0716 

1526 0716 ; 

1527 0716 A019 B SAVE: 

1528 0717 A41A B 

1529 0718 A81B B 

1530 0719 AC1C B 

1531 071A 0200 A 

1532 071B ; 

1533 071B 8019 B RESTOR: 

1534 071C 841A B 

1535 071D 881B B 

1536 071E 8C1C B 

1537 071F 0200 A 



.PAGE 



SAVE/RESTORE REGISTERS ROUTINE 



ST 


0,REG 


ST 


1,REG+1 


ST 


2,REG+2 


ST 


3,REG+3 


RTS 




LD 


0,REG 


LD 


1,REG+1 


LD 


2,REG+2 


LD 


3,REG+3 


RTS 





1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 



0720 
0720 
0720 
0720 
0720 
0720 
0720 

0720 29F5 

0721 4F00 

0722 0406 

0723 5C08 

0724 1201 

0725 21F5 

0726 29F4 

0727 0201 
0728 
0728 
0728 

0728 29ED 

0729 4F38 
072A 0605 
072B 21EF 



INTEST: 



RET1: 



RESET: 



RESET2 



.PAGE 'TELETYPE INTERRUPT/RESET ROUTINE 

TELETYPE INTERRUPT TEST 

RTS - INTERRUPT 
RTS 1 - NORMAL RETURN 



JSR 

LI 

RIN 

SHL 

BOC 

JMP 

JSR 

RTS 



SAVE 

3,0 

6 

0,8 

POS,.+2 

RESTOR 

RESTOR 

1 



TELETYPE RESET ROUTINE 



JSR 


SAVE 


LI 


3,TTYAD 


ROUT 


RES 


JMP 


RESTOR 



1560 072C 

1561 072C 

1562 072C 

1563 072C 

1564 072C 29E9 A GETC: 

1565 072D 03FB A 

1566 072E 603F B GTC1: 

1567 072F A019 B 

1568 0730 21F9 A 

1569 0731 ; 

1570 0731 29E4 A PGETC: 

1571 0732 2D01 A 

1572 0733 21FA A 

1573 0734 7E3B A 



.PAGE 'TELETYPE I/O ROUTINES' 
TELETYPE RECEIVE CHARACTER ROUTINE 



JSR 

JSRI 

AND 

ST 

JMP 



SAVE 

TTYSR 

0,H7F 

0,REG 

RESET2 



JSR SAVE 

JSR @.+2 

JMP GTC1 

.WORD 07E3B 
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1574 


0735 






.PAGE 




1575 


0735 










1576 


0735 






TELETYPE GET AN 


1577 


0735 










1578 


0735 


29E0 


A GECO: 


JSR 


SAVE 


1579 


0736 


4F38 


A 


LI 


3 , TTYAD 


1580 


0737 


0605 


A 


ROUT 


RES 


1581 


0738 


4E08 


A LP2: 


LI 


2,8 


1582 


0739 


0604 


A 


ROUT 


RDREN 


1583 


073A 


0402 


A 


RIN 


READ 


1584 


073B 


1201 


A 


BOC 


POS,.+2 


1585 


073C 


21FD 


A 


JMP 


.-2 


1586 


073D 


4C09 


A 


LI 


0,EA 


1587 


073E 


03F6 


A 


JSRI 


DELAYl 


1588 


073F 


58EA 


A 


ROR 


0,EB 


1589 


0740 


0402 


A 


RIN 


READ 


1590 


0741 


1201 


A 


BOC 


POS,.+2 


1591 


0742 


21F5 


A 


JMP 


LP2 


1592 


0743 


0603 


A LP3: 


ROUT 


SEND 


1593 


0744 


03F5 


A 


JSRI 


DELAY 


1594 


0745 


5826 


A 


ROL 


0,EC 


1595 


0746 


0402 


A 


RIN 


READ 


1596 


0747 


6048 


B 


AND 


0,H8000 


1597 


0748 


5DFF 


A 


SHR 


1,1 


1598 


0749 


3182 


A 


RXOR 


0,1 


1599 


074A 


4AFF 


A 


AISZ 


2,-1 


1600 


074B 


21F7 


A 


JMP 


LP3 


1601 


074C 


0603 


A 


ROUT 


SEND 


1602 


074D 


03F5 


A 


JSRI 


DELAY 


1603 


074E 


4CFF 


A 


LI 


0,-1 


1604 


074F 


0603 


A 


ROUT 


SEND 


1605 


0750 


03F5 


A 


JSRI 


DELAY 


1606 


0751 


0605 


A 


ROUT 


RES 


1607 


0752 


5DF8 


A 


SHR 


1,8 


1608 


0753 


3481 


A 


RCPY 


1,0 


1609 


0754 


29D9 


A LP4: 


JSR 


GTC1 


1610 


0755 


F031 


B 


SKNE 


0,H0D 


1611 


0756 


2903 


a 


JSR 


SENDLF 


1612 


0757 


F030 


B 


SKNE 


0,H0A 


1613 


0758 


2103 


A 


JMP 


SENDCR 


1£1 <l 
J. U J. 1 


an en 
v i j y 


n i na 


n 


r%mr* 

IVIO 




1615 


075A 




I 






1616 


075A 


4C0A 


A SENDLF: 


LI 


0,X'0A 


1617 


075B 


2C51 


B 


JSR 


@SPUTC 


1618 


075C 


4C0D 


A SENDCR: 


LI 


0,X'0D 


1619 


075D 


2451 


B 


JMP 


@SPUTC 


1620 


075E 




t 






1621 


075E 


29B7 


A PGECO: 


JSR 


SAVE 


1622 


075F 


2D01 


A 


JSR 


§. + 2 


1623 


0760 


21F3 


A 


JMP 


LP4 


1624 


0761 


7E73 


A 


.WORD 


07E73 



INITIALIZE BIT COUNT 
; ENABLE READER 

;TEST FOR START BIT 



;TEST IF START BIT STILL THERE 
; START IF GOOD START BIT 

;ECHO BIT 

;MASK UNWANTED BITS 
;ADD NEW BIT TO DATA 

;ECHO LAST BIT 

j SEND STOP BIT 



1625 0762 

1626 0762 

1627 0762 

1628 0762 

1629 0762 29B3 A 

1630 0763 3181 A 

1631 0764 4C30 A 

1632 0765 03F6 A 

1633 0766 4E09 A 

1634 0767 4F38 A 

1635 0768 0603 A 



PUTC: 



.PAGE 

TELETYPE TRANSMIT CHARACTER ROUTINE 



JSR 


SAVE 


RCPY 


0,1 


LI 


0,X'30 


JSRI 


DELAYl 


LI 


2,9 


LI 


3, TTYAD 


ROUT 


SEND 



;LOAD BIT COUNT 
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1636 


0769 03F5 A LPl: 


1637 


076A 5829 A 


1638 


076B 4AFF A 


1639 


076C 2101 A 


1640 


076D 2104 A 


1641 


076E 59FF A 


1642 


076F 3481 A 


1643 


0770 0603 A 


1644 


0771 21F7 A 


1645 


0772 ; 


1646 


0772 4CFF A DONE: 


1647 


0773 0603 A 


1648 


0774 21B5 A 


1649 


0775 ; 


1650 


0775 2D01 A PPUTC: 


1651 


0776 0200 A 


1652 


0777 7E59 A 


1653 


0778 


1654 


0778 


1655 


0778 0800 A C12 


1656 


0778 0400 A Cll 


1657 


0778 0200 A C0 


1658 


0778 0100 A CI 


1659 


0778 0080 A C2 


1660 


0778 0040 A C3 


1661 


0778 0020 A C4 


1662 


0778 0010 A C5 


1663 


0778 0008 A C6 


1664 


0778 0004 A C7 


1665 


0778 0002 A C8 


1666 


0778 0001 A C9 


1667 


0778 ? 


1668 


0778 0000 A BEGHOL: 


1669 


0779 ? 


1670 


0779 ; 


1671 


0779 0482 A 




077A 0006 A 




077B 0042 A 




077C 0442 A 


1672 


077D ; 


1673 


077D ; 


1674 


077D 0222 A 




077E 0800 A 




077F 0012 A 




0780 0812 A 


1675 


0781 ; 


1676 


0781 ; 


1677 


0781 0412 A 




0782 0422 A 




0783 080A A 


1678 


0784 ; 


1679 


0784 ; 


1680 


0784 0242 A 




0785 0400 A 




0786 0842 A 




0787 0300 A 




0788 0200 A 




0789 0100 A 




078A 0080 A 


1681 


078B ; 


1682 


078B ; 


168 3 


078B 0040 A 




078C 0020 A 




078D 0010 A 




078E 0008 A 



JSRI 


DELAY 


ROL 


0,TA 


AISZ 


2,-1 


JMP 


. + 2 


JMP 


DONE 


ROR 


1,1 


RCPY 


1,0 


ROUT 


SEND 


JMP 


LPl 


LI 


0,-1 


ROUT 


SEND 


JMP 


RESET2 


JSR 


§. + 2 


RTS 




.WORD 


07E59 



;SEND STOP BIT 



.PAGE 'HOLLERITH TABLE' 

2048 

1024 

512 

256 

128 

64 

32 

16 

8 

4 

2 

1 

.WORD ; BLANK/SPACE 

! # $ 

.WORD C11+C2+C8,C7+C8,C3+C8,C11+C3+C8 



% & ' ( 
.WORD C0+C4+C8,C12,C5+C8,C12+C5+C8 



) * + 

.WORD C11+C5+C8,C11+C4+C8,C12+C6+C8 



/ 12 
.WORD C0+C3+C8,Cll,C12+C3+C8,C0+Cl,C0 r Cl,C2 



3 4 5 6 7 8 9: ; 
.WORD C3,C4,C5,C6,C7,C8,C9,C2+C8,C11+C6+C8 
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078F 


0004 


A 




0790 


0002 


A 




0791 


0001 


A 




0792 


0082 


A 




0793 


040A 


A 


1684 


0794 






1685 


0794 






1686 


0794 


0822 


A 




0795 


000A 


A 




0796 


020A 


A 




0797 


0206 


A 


1687 


0798 






1688 


0798 






1689 


0798 


0022 


A 




0799 


0900 


A 




079A 


0880 


A 




079B 


0840 


A 




079C 


0820 


A 


1690 


079D 






1691 


079D 






1692 


079D 


0810 


A 




079E 


0808 


A 




079F 


0804 


A 




07A0 


0802 


A 




07A1 


0801 


A 


1693 


07A2 






1694 


07A2 






1695 


07A2 


0500 


A 




07A3 


0480 


A 




07A4 


0440 


A 




07A5 


0420 


A 




07A6 


0410 


A 


1696 


07A7 






1697 


07A7 






1698 


07A7 


0408 


A 




07A8 


0404 


A 




07A9 


0402 


A 




07AA 


0401 


A 




07AB 


0280 


A 


1699 


07AC 






1700 


07 AC 






1701 


07 AC 


0240 


A 




07 AD 


0220 


A 




07AE 


0210 


A 




07AF 


0208 


A 




07B0 


0204 


A 




07B1 


0202 


A 


1702 


07B2 






1703 


07B2 






1704 


07B2 


0201 


A 




07B3 


0882 


A 




07B4 


0282 


A 




07B5 


0806 


A 


1705 


07B6 






1706 


07B6 






1707 


07B6 


0406 


A 




07B7 


0212 


A 




07B8 


0102 


A 



< > ? 

.WORD C12+C4+C8 ,C6+C8 ,C0+C6+C8 ,C0+C7+C8 



@ A B C D 
.WORD C4+C8,C12+C1,C12+C2,C12+C3,C12+C4 



E F G H I 
.WORD C12+C5,C12+C6,C12+C7,C12+C8,C12+C9 



J K L M N 
.WORD Cll+Cl,Cll+C2 f Cll+C3,Cll+C4,Cll+C5 



P Q R S 
.WORD 011+06,011+07,011+08,011+09,00+02 



T U V W X Y 
.WORD C0+C3,C0+C4,C0+C5,C0+C6,C0+C7,C0+C8 



Z % % \ 

.WORD C0+C9,C12+C2+C8,C0+C8+C2,C12+C7+C8 



.WORD C11+C7+C8,C0+C5+C8,C8+C1 
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1708 07B9 

1709 07B9 ; 

1710 07B9 0D0A A TPAK1 

1711 07BA 0D0A A 

1712 07BB 0D0A A 

1713 07BC 4E53 A 
07BD 4320 A 
07BE 2045 A 
07BF 4449 A 
07C0 5431 A 
07C1 3620 A 
07C2 2052 A 
07C3 4556 A 
07C4 2043 A 

1714 07C5 0D0A A 

1715 07C6 4D45 A 
07C7 4D4F A 
07C8 5259 A 
07C9 3A20 A 

1716 07CA 2000 A 

1717 07CB 0000 A 

1718 07CC ; 

1719 07CC ; 

1720 07CC 5455 A TPAK2 
07CD 524E A 
07CE 2052 A 
07CF 4541 A 
07D0 4445 A 
07D1 5220 A 
07D2 4F46 A 
07D3 4620 A 
07D4 4E4F A 
07D5 5720 A 

1721 07D6 0000 A 

1722 07D7 ; 

1723 07D7 

1724 07D7 4E4F A 
07D8 2041 A 
07D9 4354 A 
07DA 4956 A 
07DB 4520 A 
07DC 4649 A 
07DD 4C45 A 

1725 07DE 0D0A A 

1726 07DF 0000 A 

1727 07E0 ; 

1728 07E0 ; 

1729 07E0 5455 A TPAK4: 
07E1 524E A 

07E2 2050 A 
07E3 554E A 
07E4 4348 A 
07E5 204F A 
07E6 4E20 A 

1730 07E7 0D0A A 

1731 07E8 0000 A 

1732 07E9 ; 

1733 07E9 ; 

1734 07E9 5645 A VERIFY: 
07EA 5249 A 

07EB 4659 A 

1735 07EC 3F00 A 

1736 07ED 0000 A 

1737 07EE ; 



.PAGE 'LIST OF MESSAGES' 

.WORD 0D0A 

.WORD 0D0A 

.WORD 0D0A 

.ASCII 'NSC EDIT16 REV C 



.WORD 0D0A 
.ASCII 'MEMORY: 



.WORD 02000 
.WORD 



.ASCII 'TURN READER OFF NOW' 



.WORD 



TPAK3: .ASCII 'NO ACTIVE FILE 



,WORD 0D0A 
.WORD 



.ASCII 'TURN PUNCH ON 



.WORD 0D0A 
.WORD 



.ASCII VERIFY 



.WORD 03F00 
.WORD 
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1738 


07EE 






i 






1739 


07EE 
07EF 
07F0 


2053 
5441 
5254 


A 
A 
A 


TYPE1: 


.ASCII 


' START' 


1740 


07F1 


3F00 


A 




.WORD 


03F00 


1741 


07F2 


0000 


A 




.WORD 





1742 


07F3 






» 






1743 


07F3 






/ 






1744 


07F3 
07F4 
07F5 
07F6 
07F7 
07F8 
07F9 
07FA 
07FB 


5452 
414E 
534D 
4953 
5349 
4F4E 
2045 
5252 

A DC O 

"T L- J I. 


A 
A 
A 
A 
A 
A 
A 
A 

A 


CRPK1: 


.ASCII 


'TRANSMISSION ERROR 


1745 


07FC 


0D0A 


A 




.WORD 


0D0A 


1746 


07FD 


0000 


A 




.WORD 





1747 


07FE 






» 






1748 


07FE 






t 






1749 


07FE 
07FF 
0800 
0801 
0802 


564F 
4944 
2052 
414E 
4745 


A 
A 
A 
A 
A 


VOID: 


.ASCII 


'VOID RANGE' 


1750 


0803 


0D0A 


A 




.WORD 


0D0A 


1751 


0804 


0000 


A 




.WORD 





1752 


0805 






t 






1753 


0805 






t 






1754 


0805 
0806 
0807 
0808 
0809 
080A 


4255 
4646 
4552 
2046 
554C 
4C20 


A 
A 
A 
A 
A 
A 


FULL: 


.ASCII 


'BUFFER FULL' 


1755 


080B 


0D0A 


A 




.WORD 


0D0A 


1756 


080C 


0000 


A 




.WORD 





1757 


080D 






9 






1758 


080D 






r 






1759 


080D 
080E 
080F 


4552 
524F 
5220 


A 
A 
A 


ERROR: 


.ASCII 


'ERROR' 


1760 


0810 


0D0A 


A 




.WORD 


0D0A 


1761 


0811 


0000 


A 




.WORD 





1762 


0812 






t 






1763 


0812 






i 






1764 


0812 
0813 
0814 


414C 
5445 
5253 


A 
A 
A 


ALTERS : 


.ASCII 


'ALTERS' 


1765 


0815 


3F00 


A 




.WORD 


03F00 


1766 


0816 


0000 


A 




.WORD 





1767 


0817 
0818 
0819 
081A 
081B 
081C 
081D 
081E 
081F 


4C49 
4E45 
2049 
5320 
4D41 
5820 
4C45 
4E47 
5448 


A 
A 
A 
A 
A 
A 
A 
A 
A 


LINLEN: 


.ASCII 


'LINE IS MAX LENGTH 


1768 


0820 


0D0A 


A 




.WORD 


0D0A 


1769 


0821 


0000 


A 




.WORD 
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1770 0822 

1771 0822 0250 T BUF: 
POINTERS GENERATED 

0063 0344 T 

0064 06E9 T 

0065 06EA T 

0066 02B9 T 

0067 06F7 T 

0068 06F9 T 

0069 06B3 T 
006A 06C5 T 
006B 06D9 T 
006C 06DF T 
006D 0649 T 
006E 06A2 T 
006F 0716 T 

0070 071B T 

0071 055E T 

0072 04BD T 

0073 0561 T 

0074 04CD T 

0075 05B7 T 

0076 06E3 T 

0077 040B T 

0078 06C1 T 

0079 0373 T 
007A 04A9 T 
007B 0375 T 



.PAGE 'INDIRECT POINTERS & SYMBOL TABLE 
. END START 



****** 

$1" $1# 
0346 T 0369 T 

$10A$ $10A& 
0463 T 059A T 

$12A% $12A& 
0539 T 060A T 

$2$ $2% 
03D3 T 04EF T 

$3% $3& 
04FC T 0559 T 

$4& $4' 
05C8 T 066C T 

$5" $5% 
0336 T 0511 T 

$7" $7$ 
02F5 T 043F T 

$8' $8A& 
063C T 05AB T 

ADBUF ADBUF2 
0009 B 0008 B 

ADTAB ADTGET 
000E B 005C B 



ERRORS IN ASSEMBLY ****** 
$1$ $1% $1& $1' $10" 
03CD T 04E2 T 0549 T 0652 T 030D T 

$11$ $11% $11A$ $12" $12$ 
046A T 052D T 046D T 031A T 0477 T 

$12B$ $12C$ $13! $13$ $13% 
048A T 0479 T 02C9 T 048E T 053C T 

$2& $2' $2A$ $2A& $2B& 
0565 T 065F T 03D4 T 056E T 0571 T 

$3A$ $3A& $3B$ $3C$ $4! 
03A3 T 055B T 03A4 T 03A6 T 0275 T 

$4A! $4A" $4A& $4B& $4C& 
0276 T 032D T 05D2 T 05D4 T 05D6 T 

$5& $5' $6! $6" $6$ 
05E4 T 067B T 026B T 033C T 041C T 

$7& $7' $71$ $7A$ $7A& 
0554 T 0680 T 044C T 0456 T 0557 T 

$8A' $8B' $8C' $9" $9$ 
062A T 062B T 062C T 0308 T 04A2 T 

ADCGET ADDBUF ADHSP ADKGET ADPLN 
005A B 0007 B 005D B 005B B 0003 B 

ALTERS AND1 ANDH0A ANDH0D ASCFS 
0812 T 06DA T 06DF T 06D9 T 004B B 



$10$ 

045E 


T 


$10& 
0599 


T 


$10A" 
0315 T 


$12% 
0533 


T 


$12& 
0609 


T 


$12A$ 
0486 T 


$1A% 
04E6 


T 


$2" 
0353 


T 


$2# 
0370 T 


$3! 
026D 


T 


$3" 
0359 


T 


$3$ 
039B T 


$4" 
032C 


T 


$4$ 
03E1 


T 


$4% 
0500 T 


$4D& 
05D7 


T 


$4E& 
05DB 


T 


$5! 
0266 T 


$6& 
0592 


T 


$6A$ 
0421 


T 


$6B$ 
0429 T 


$8" 
0304 


T 


$8$ 
0499 


T 


$8& 
05A6 T 


$9& 
05AF 


T 


$9' 

0643 


T 


$9A& 
05B3 T 


ADPLN 2 
0004 B 


ADRBUF 
0006 B 


ADSETB 
0005 B 


ASCMS 
004A B 


BADDR 
0612 T 


BEGHOL 
0778 T 
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BIT1 BUF BUF1 BUF2 BUFULL C0 CI Cll C12 C2 

0004 A 0822 T 01B5 T 013C T 055E T 0200 A 0100 A 0400 A 0800 A 0080 A 

C3 C4 C5 C6 C7 C8 C9 CHT01 CHT02 CHTOA 
0040 A 0020 A 0010 A 0008 A 0004 A 0002 A 0001 A 0601 T 0603 T 0600 T 

CLRBUF CMDTBL CMND CNVRT CONV COPl COP2 COPYLN COUNTl COUNT2 
035C T 02CE T 001D B 0526 T 05FF T 0495 T 0496 T 0490 T 0027 B 0028 B 

CPAD CRADDR CRESET CRGETC CRLF CRP CRPK1 CRREAD DBUF DELI 
004C B 0010 A 05EE T 05F0 T 06F3 T 061C T 07F3 T 0540 T 0135 T 0361 T 

DELAY DELAY1 DELELN DEVICE DONE DSH1 DSHIFT EA EB EC 
FFF5 A FFF6 A 0360 T 000A B 0772 T 04D3 T 04CD T 0009 A 0016 A 0026 A 

END ENDTBL ERROR EXPMND EXPTST EXPZRO FIRST FNDSTR FNDTST FULL 
000D B 02F1 T 080D T 001E B 0021 B 06F9 T 0000 B 038D T 0022 B 0805 T 

GECO GETC GETCO GETDEC GETMEM GETSl GETS2 GETSTR GLLEN GPCS 
0735 T 072C T 06FC T 0344 T 0278 T 0328 T 0329 T 0321 T 0451 T 0018 A 

GTC1 H01 H03 H04 H09 H0A H0D H0F H100 Hll 
072E T 002C B 002D B 002E B 002F B 0030 B 0031 B 0032 B 0045 B 0033 B 

H18 H1F H1F00 H20 H27 H2C H2F H39 H40 H54 
0034 B 0035 B 0047 B 0036 B 0037 B 0038 B 0039 B 003A B 003B B 003C B 

H5A H5F H600 H7F H80 H8000 HC0 HDF HF0 HFF 
003D B 003E B 0046 B 003F B 0040 B 0048 B 0041 B 0043 B 0042 B 0044 B 

HFFFF HSPAD HSPRT INCONE INERR INTEST JMPT1 JMPT3L KBGl KBGETC 
0049 B 0048 A 070E T 0380 T 05EB T 0720 T 02BB T 02B9 T 0584 T 0585 T 

KBMODE KBREAD LAST LCRGET LEADTR LGECO LGETC LINIT LINLEN LISTF 
02DA T 053E T 0001 B 0062 B 0519 T 0061 B 0060 B 0284 T 0817 T 0638 T 

LISTL LLEN LLENl LLIM LP1 LP2 LP3 LP4 LPUTC MAXSTR 
063E T 0029 B 002A B 0014 B 0769 T 0738 T 0743 T 0754 T 005F B 0012 B 

MAXTS MLIN1 MLINE MOD MODI MODE MODI MODI 2 MODIFY MODLN 
0013 B 04B2 T 04A9 T 040B T 03AD T 001F B 03ED T 040A T 03E8 T 03A9 T 

MODSTR MOV1 MOVELN NEG NOFILE NUM1 NUM2 NUM3 NUMBER NUMTST 
038F T 04A6 T 04A4 T 000B A 0649 T 0378 T 037A T 0375 T 0373 T 0023 B 

NZRO 02CH 03CH ODD OPER OUTl OUTBUF PCRGl PCRGET PGECO 

0005 A 070C T 070B T 0003 A 0026 B 03BE T 03BD T 0614 T 0613 T 075E T 

PGETC POA POS PPUTC PRIl PRI2 PRINTL PROMPT PTBUF PTGETC 
0731 T 000C A 0002 A 0775 T 0622 T 0623 T 0620 T 028F T 0025 B 059F T 

PTR1 PTRBUF PTREAD PUNCHL PUTC PUTLN PUTLN2 RBMAX RBUF RDCR 
0543 T 0002 B 0542 T 061D T 0762 T 0650 T 066A T 000B B 0120 T 05F2 T 

RDREN READ REG REINIT REPl REPEAT RES RESET RESET2 RESTOR 
0004 A 0002 A 0019 B 06E3 T 0692 T 068D T 0005 A 0728 T 072A T 071B T 

RET1 RETURN RGFLG RHI RINIT1 RLO RNGE RNGEl RNGTST RNGZRO 
0727 T 069C T 0020 B 0018 B 005E B 0017 B 02F2 T 02F3 T 0024 B 06F7 T 

RNIT1 SAVE SCRLF SEND SENDCR SENDLF SETl SET2 SETBUF SETL01 
06E4 T 0716 T 004F B 0003 A 075C T 075A T 06A3 T 06AE T 03B9 T 06B5 T 

SETLHR SETLN SETSR SETTl SETTAB SGECO SGETC SGETCO SHI SHT39 
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06A2 T 03B3 T 04B5 T 04DA T 04D9 T 0053 B 0052 B 0056 B 0016 B 000C B 

SINTST SL01 SL02 SLNl SLO S02CH S03CH SPATSK SPUTC SRCHl 
004D B 06CE T 06D6 T 06C3 T 0015 B 0054 B 0055 B 06EF T 0051 B 03C8 T 

SRCHLN SRCHLO SRCHRG SRCHST SRESET SRG1 START STARTl STATUS STBUF 
06C1 T 06CD T 06C5 T 03C6 T 004E B 06C6 T 0250 T 0058 B 0001 A 0561 T 

STD1 STDATA STEB1 STEB2 STEBUF STL02 STLOHI STNDRD STRB2 STRBUF 
057A T 0573 T 057D T 0581 T 057B T 06BF T 06B3 T 0002 A 031E T 031C T 

STYPE TA TAB1 TAB2 TAB3 TADDR TERR TERRNG TESTCZ TPAKl 
0057 B 0029 A 000F B 0010 B 0011 B 0611 T 0619 T 0316 T 0430 T 07B9 T 

TPAK2 TPAK3 TPAK4 TRISTR TSTINT TSTTl TSTT2 TSTTAB TTYAD TTYINP 
07CC T 07D7 T 07E0 T 0059 B 02C1 T 0509 T 050A T 0504 T 0038 A 05B7 T 

TTYSR TYP1 TYPE TYPE1 TYPEL TYPERR USHl USH2 USHIFT VERIFY 
FFFB A 0703 T 0700 T 07EE T 061F T 0050 B 04C5 T 04CB T 04BD T 07E9 T 

VOID WAIT1 WAIT2 WAITCR WTLOOP ZERO ZRO 
07FE T 06EA T 06EC T 06E9 T 05F7 T 002B B 0001 A 

0C0E C3CB 
1 
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REVISION-G 05/16/74 



EDIT16 



00332C 



10/18/74 ECO SIMP-2276 



00 
00 

00 

00 
00 
00 
00 
00 
00 



00 
00 

00 
00 
00 



10 00 

11 00 

12 00 

i -> an 

J. j w 

14 00 

15 00 

16 00 

17 00 

18 00 

19 00 

20 00 

21 01 

22 01 

23 01 

24 01 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



0003 
0004 
0005 
000B 
000C 



01 A ZRO 

02 A POS 
A ODD 
A 
A 
A 
A 



25 00 

26 00 



00 
00 
27 0000 



0009 
0016 
0026 
0029 
0038 
FFF5 
FFF6 
FFFB 
0018 
0002 
0003 
0004 
0005 



BIT1 
NZRO 
NEG 
POA 



EA 

EB 

EC 

TA 

TTYAD 

DELAY 

DELAY1 

TTYSR 

GPCS 

READ 

SEND 

RDREN 

RES 



.TITLE EDIT16, '00332C 10/18/74' 
CONDITIONAL CODES FOR THE BOC INSTRUCTION 



1 

2 

3 

4 

5 

11 

12 



ArriEiboiuwo run a no xCiLiCiTi ft 1/ u 

9 
22 

38 

41 

7*8 

0FFF5 

0FFF6 

0FFFB 

018 

2 

3 

4 

5 



28 0000 

29 0000 

30 0000 

31 0000 

32 0000 0001 A STATUS 

33 0000 0002 A STNDRD 

34 0000 0010 A CRADDR 

35 0000 

36 0000 

37 0000 

38 0000 0048 A HSPAD 

39 0000 ; 



.PAGE 'CARD READER AND HIGH SPEED PRINTER I/O CONSTANTS 

EXPRESSIONS FOR THE CARD READER I/O 

1 
2 
2*8 

EXPRESSIONS FOR THE HIGH SPEED PRINTER I/O 

9*8 



40 0000 

41 0000 

42 0000 

43 0000 

44 0001 

45 0002 

46 0003 

47 0004 

48 0005 

49 0006 

50 0007 

51 0008 

52 0009 

53 000A 

54 000B 

55 000C 

56 000D 

57 000E 



PAGE 'REFERENCED VARIABLES' 



0822 
0822 
0120 
0650 
066A 
03B9 
0120 
0135 
013C 
01B5 
0775 
0134 
000D 
000E 
000F 



FIRST: 
LAST: 
PTRBUF: 
ADPLN : 
ADPLN2: 
ADSETB: 
ADRBUF: 
ADDBUF: 
ADBUF2: 
ADBUF: 
DEVICE: 
RBMAX : 
B SHT39: 
B END: 
B ADTAB: 



.BSECT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

• WORD 

.WORD 

.WORD 

.WORD 

.WORD 

. = . + 1 

. = . + 1 

.WORD 



BUF 

BUF 

RBUF 

PUTLN 

PUTLN2 

SETBUF 

RBUF 

DBUF 

BUF2 

BUFl 

PPUTC 

RBUF+20 



TAB1 



;BUF LIMIT FOR TESTING BUFFER FULL 
;END OF EDIT BUFFER 



EDIT16 



58 


000F 


0008 


A TAB1 




WORD 


8 


59 


0010 


0010 


A TAB 2 




WORD 


16 


60 


0011 


0020 


A TAB3 




WORD 


32 


61 


0012 


0006 


A MAXSTR: . 


WORD 


6 


62 


0013 


0280 


A MAXTS: 


WORD 


640 


63 


0014 


0041 


A LLIM: 


WORD 


65 


64 


0015 






PAGE 


'TEMPORARY 


65 


0015 




i 






66 


0015 


0016 


B SLO: 


= . + 1 




67 


0016 


0017 


B SHI: 


= . + 1 




68 


0017 


0018 


B RLO: 


= . + 1 




69 


0018 


0019 


B RHI: 


= . + 1 




70 


0019 


001D 


B REG: 


= . + 4 




71 


001D 


001E 


B CHND: 


= . + 1 




72 


001E 


001F 


B EXPMND: 


= . + 1 




73 


001F 


0020 


B MODE: 


= . + 1 




74 


0020 


0021 


B RGFLG: . 


= . + 1 




75 


0021 


0022 


B EXPTST: 


= . + 1 




76 


0022 


0023 


B FNDTST: 


= . + 1 




77 


0023 


0024 


B NUMTST: 


= . + 1 




78 


0024 


0025 


B RNGTST: 


= . + 1 




79 


0025 


0026 


B PTBUF: 


. = . + 1 




80 


0026 


0027 


B OPER: 


= . + 1 




81 


0027 


0028 


B COUNT1: 


. = . + 1 




82 


0028 


0029 


B COUNT 2: 


. = . + 1 




83 


0029 


00 2A 


B LLEN: 


. = . + 1 




84 


002A 


002B 


B LLEN1: 


. = . + 1 




85 


002B 






.PAGE 


'CONSTANTS 


86 


002B 




i 






87 


002B 


0000 


A ZERO: 


.WORD 


X'0 


88 


002C 


0001 


A H01: 




.WORD 


X'01 


89 


002D 


0003 


A H03: 




.WORD 


X'03 


90 


002E 


0004 


A H04: 




.WORD 


X'04 


91 


002P 


0009 


A H09: 




.WORD 


X'09 


92 


0030 


000A 


A H0A: 




.WORD 


X'0A 


93 


0031 


000D 


A H0D: 




.WORD 


X'0D 


94 


0032 


000F 


A H0F: 




.WORD 


X'0F 


95 


0033 


0011 


A Hll: 




.WORD 


X'll 


96 


0034 


0018 


A H18: 




.WORD 


X'18 


97 


0035 


001F 


A H1F: 




.WORD 


X'lF 


98 


0036 


0020 


A H20: 




.WORD 


X'20 


99 


0037 


0027 


A H27- 




.WORD 


X'27 


100 


0038 


002C 


A H2C: 




.WORD 


X'2C 


101 


0039 


002F 


A H2F> 




.WORD 


X'2F 


102 


003A 


0039 


A H39 




.WORD 


X'39 


103 


003B 


0040 


A H40 




.WORD 


X'40 


104 


003C 


0054 


A H54 




.WORD 


X'54 


105 


003D 


005A 


A H5A 




.WORD 


X'5A 


106 


003E 


005F 


A H5F 




.WORD 


X'5F 


107 


003F 


007F 


A H7F 




.WORD 


X'7F 


108 


0040 


0080 


A H80 




.WORD 


X'80 


109 


0041 


00C0 


A HC0 




.WORD 


X'C0 


110 


0042 


00F0 


A HF0 




.WORD 


X'F0 


111 


0043 


00DF 


A HDF 




.WORD 


X'DF 


112 


0044 


00FF 


A HFF 




.WORD 


X'FF 


113 


0045 


0100 


A H100: 


.WORD 


X'0100 


114 


0046 


0600 


A H600: 


.WORD 


X'0600 


115 


0047 


1F00 


A H1F00: 


.WORD 


X'1F00 


116 


0048 


8000 


A H8000: 


.WORD 


X'8000 


117 


0049 


FFFF 


A HFFFF: 


.WORD 


X'FFFF 


118 


004A 


4D53 


A ASC! 


IS: 


.ASCII 


'MS' 



;MAX NUMBER OF CHARS IN ONE LINE 



;CURRENT LINE LENGTH 
;ORIGINAL LINE LENGTH 
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119 004B 4653 A ASCFS: .ASCII FS 

120 004C 0760 A CPAD: .WORD 0760 



121 


004D 








.PAGE 


'SUBROUT 


122 


004D 






9 






123 


004D 


0720 


T 


SINTST: .WORD 


INTEST 


124 


004E 


0728 


T 


SRESET: .WORD 


RESET 


125 


004F 


06F3 


T 


SCRLF: .WORD 


CRLF 


126 


0050 


06EC 


T 


TYPERR: .WORD 


WAITCR+3 


127 


0051 


0775 


T 


SPUT 


C: .WORD 


PPUTC 


128 


0052 


0731 


T 


SGET 


C: .WORD 


PGETC 


129 


0053 


075E 


T 


SGEC 


0: .WORD 


PGECO 


130 


0054 


070C 


T 


S02C 


H: .WORD 


02CH 


131 


0055 


070B 


T 


S03C 


Hi .WORD 


03CH 


132 


0056 


06FC 


T 


SGET 


CO: .WORD 


GETCO 


133 


0057 


0700 


T 


STYP 


E: .WORD 


TYPE 


134 


0058 


028F 


T 


STAR 


ri: .WORD 


PROMPT 


135 


0059 


06EF 


T 


TRIS' 


rR: .WORD 


SPATSK 


136 


005A 


0613 


T 


ADCG 


ST: .WORD 


PCRGET 


137 


005B 


0585 


T 


ADKG 


ST: .WORD 


KBGETC 


138 


005C 


059F 


T 


ADTG 


ET: .WORD 


PTGETC 


139 


005D 


070E 


T 


ADHS 


P: .WORD 


HSPRT 


140 


005E 


06E4 


T 


RINI r 


PI: .WORD 


REINIT+1 


141 


005F 


0762 


T 


LPUT( 


:: .WORD 


PUTC 


142 


0060 


072C 


T 


LGET( 


:: .WORD 


GETC 


143 


0061 


0735 


T 


LGEC( 


D: .WORD 


GECO 


144 


0062 


05F0 


T 


LCRGI 


ST: .WORD 


CRGETC 


145 


0063 








.PAGE 


'START 


146 


0063 






f 






147 


0063 








.TSECT 




148 


0000 


0120 


T 




.=.+0120 


149 


0120 


0135 


T 


RBUF 


.=.+21 




150 


0135 


013C 


T 


DBUF 


. = . + 7 




151 


013C 


01B5 


T 


BUF2 


.=.+121 




152 


01B5 


0235 


T 


BUF1 


.=.+128 




153 


0235 






• 






154 


0235 


0250 


T 




.= .+27 




155 


0250 






/ 






156 


0250 


8C4C 


B 


START 


7: LD 


3, CPAD 


157 


0251 


0418 


J\ 




OTkT 


pnpe 












IN A IN 


vjrv^o 


158 


0252 


4801 


A 




AISZ 


0,1 


159 


0253 


2930 


A 




JSR 


LINIT 


160 


0254 


2C57 


B 




JSR 


@STYPE 


161 


0255 


07B9 


T 




• WORD 


TPAK1 


162 


0256 


2921 


A 




JSR 


GETMEM 


163 


0257 


21F8 


A 




JMP 


START 


164 


0258 


2114 


A 




JMP 


$3 


165 


0259 


2C53 


B 




JSR 


§SGECO 


166 


025A 


48C6 


A 




AISZ 


0,-X'3A 


167 


025B 


21F4 


A 




JMP 


START 


168 


025C 


2C63 


I 




JSR 


GETDEC 


169 


025D 


21F2 


A 




JMP 


START 


170 


025E 


3481 


A 




RCPY 


1,0 


171 


025F 


6032 


B 




AND 


0,H0F 


172 


0260 


6442 


B 




AND 


1,HF0 


173 


0261 


5DFF 


A 




SHR 


1,1 


174 


0262 


3400 


A 




RADD 


1,0 


175 


0263 


5DFE 


A 




SHR 


1,2 


176 


0264 


3400 


A 




RADD 


1,0 


177 


0265 


4D00 


A 




LI 


1,0 


178 


0266 


D02E 


B 


$5: 


SUB 


0,H04 


179 


0267 


1103 


A 




BOC 


ZRO,$6 
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180 


0268 


1B02 


A 




BOC 


NEG,$6 


181 


0269 


4901 


A 




AISZ 


1,1 


182 


026A 


21FB 


A 




JMP 


$5 


183 


026B 


5D0C 


A 


$6: 


SHL 


1,12 


184 


026C 


2101 


A 




JMP 


. + 2 


185 


026D 






r 






186 


026D 


4D00 


A 


$3: 


LI 


1,0 


187 


026E 


4CFF 


A 




LI 


0,-1 


188 


026F 


5CFC 


A 




SHR 


0,4 


189 


0270 


3100 


A 




RADD 


0,1 


190 


0271 


49FF 


A 




AISZ 


1,-1 


191 


0272 


A40D 


B 




ST 


1,END 


192 


0273 


49D8 


A 




AISZ 


1,-40 


193 


0274 


A40C 


B 




ST 


1,SHT39 


194 


0275 


2C4F 


B 


$4: 


JSR 


@SCRLF 


195 


0276 


2C4F 


B 


$4A: 


JSR 


@SCRLF 


196 


0277 


2117 


A 




JMP 


PROMPT 


197 


0278 






/ 






198 


0278 


2C53 


B 


GETMEM: 


JSR 


@SGECO 


199 


0279 


F033 


B 




SKNE 


0,H11 


200 


027A 


0200 


A 




RTS 




201 


027B 


F031 


B 




SKNE 


0,H0D 


202 


027C 


0201 


A 




RTS 


1 


203 


027D 


E03A 


B 




SKG 


0,H39 


204 


027E 


E039 


B 




SKG 


0,H2F 


205 


027F 


0200 


A 




RTS 




206 


0280 


6032 


B 




AND 


0,H0F 


207 


0281 


4800 


A 




AISZ 


0,0 


208 


0282 


0200 


A 




RTS 




209 


0283 


0202 


A 




RTS 


2 



IS ONLY LEGAL VALUE FOR 1ST FIELD 



210 0284 

211 0284 ; 

212 0284 805F B LINIT: 

213 0285 A051 B 

214 0286 8060 B 

215 0287 A052 B 

216 0288 8061 B 

217 0289 A053 B 

218 028A 8062 B 

219 028B A05A B 

220 028C 805F B 

221 028D A00A B 

222 028E 0200 A 



.PAGE 'I/O INITIALIZATION FOR 16L 



LD 


, LPUTC 


ST 


0,SPUTC 


LD 


0,LGETC 


ST 


0,SGETC 


LD 


0,LGECO 


ST 


0,SGECO 


LD 


0,LCRGET 


ST 


0,ADCGET 


LD 


0, LPUTC 


ST 


0, DEVICE 


RTS 





223 028F 

224 028F ; 

225 028F 8051 B PROMPT: 

226 0290 A00A B 

227 0291 2C4F B 

228 0292 4C20 A 

229 0293 2C55 B 

230 0294 4C3F A 

231 0295 2C51 B 

232 0296 4C20 A 

233 0297 2C54 B 

234 0298 2C53 B 

235 0299 F033 B 

236 029A 212E A 



.PAGE 'PROMPT FOR COMMAND' 



LD 


0,SPUTC 




ST 


0, DEVICE 




JSR 


0SCRLF 




LI 


0,X'20 


; SPACE 


JSR 


§S03CH 




LI 


0,X'3F 


; QUESTION MARK 


JSR 


@SPUTC 




LI 


0,X'20 


; SPACE 


JSR 


GS02CH 




JSR 


0SGECO 




SKNE 


0,H11 


;DC1 


JMP 


$13 





EDIT16 



237 


029B 


F031 


B 


SKNE 


0,H0D 


238 


029C 


21D9 


A 


JMP 


$4A 


239 


029D 


F036 


B 


SKNE 


0,H20 


240 


029E 


21FD 


A 


JMP 


.-2 


241 


029F 


E03D 


B 


SKG 


0,H5A 


242 


02A0 


E03B 


B 


SKG 


0,H40 


243 


02A1 


2464 


I 


JMP 


WAITCR 


244 


02A2 


3181 


A 


RCPY 


0,1 


245 


02A3 


5D08 


A 


SHL 


1,8 


246 


02A4 


2C56 


B 


JSR 


@SGETCO 


247 


02A5 


E03D 


B 


SKG 


0,H5A 


248 


02A6 


E03B 


B 


SKG 


0,H40 


249 


02A7 


2465 


I 


JMP 


WAIT1 


250 


02A8 


3100 


A 


RADD 


0,1 


251 


02A9 


A41D 


B 


ST 


1,CMND 


252 


02AA 


2916 


A 


JSR 


TSTINT 


253 


02AB 


2946 


A 


JSR 


RNGE 


254 


02 AC 


210C 


A 


JMP 


JMPTBL 


255 


02AD 


2C56 


B 


JSR 


SSGETCO 


256 


02AE 


F031 


B 


SKNE 


0,H0D 


257 


02AF 


2450 


B 


JMP 


@TYPERR 


258 


02B0 


48B1 


A 


AISZ 


0,-X'4F 


259 


02B1 


2464 


I 


JMP 


WAITCR 


260 


02B2 


2C63 


I 


JSR 


GETDEC 


261 


02B3 


2465 


I 


JMP 


WAITl 


26 2 


02B4 


A41E 


B 


ST 


1,EXPMND 


26 3 


02B5 


4D01 


A 


LI 


1,1 


264 


02B6 


A421 


B 


ST 


1,EXPTST 


265 


02B7 


48F3 


A 


AISZ 


0,-X'0D 


266 


02B8 


2464 


I 


JMP 


WAITCR 


267 


02B9 


8914 


A JMPTBL: 


LD 


2,CMDTBL 


268 


02BA 


801D 


3 


LD 


t CMND 


269 


02BB 


F200 


A JMPTl: 


SKNE 


0,(2) 


270 


2BC 


2601 


A 


JMP 


01(2) 


271 


02BD 


F933 


A 


SKNE 


2,ENDTBL 


272 


02BE 


2450 


B 


JMP 


@TYPERR 


273 


02BF 


4A02 


A 


AISZ 


2,2 


274 


02C0 


21 FA 


A 


JMP 


JMPTl 


275 


02C1 


8006 


B TSTINT: 


LD 


0,ADRBUF 


276 


onro 


MHI11 


O 


C?rn 
o j. 


fj nmnnnn 

v r r 1 rvour 


277 


02C3 


4C00 


A 


LI 


0,0 


278 


02C4 


A021 


B 


ST 


0,EXPTST 


TJrt 

C 1 J 




* n 1 i 


B 


ST 


v , r «u±d j. 


280 


02C6 


A023 


B 


ST 


0,NUMTST 


281 


02C7 


A024 


B 


ST 


, RNGTST 


282 


02C8 


0200 


A 


RTS 




283 


02C9 




t 






284 


02C9 


29F7 


A $13: 


JSR 


TSTINT 


285 


02CA 


8C06 


B 


LD 


3,ADRBUF 


286 


2CB 


294A 


A 


JSR 


TERRNG 


287 


02CC 


2C4F 


B 


JSR 


gSCRLF 


288 


02CD 


250C 


A 


JMP 


@KBMODE 



; CARRIAGE RETURN 

; SPACE 

;TEST FOR ALPHA CHARACTER 

; ERROR 

;TEST FOR ALPHA INPUT 

;SKIP TO NEXT CARRAGE RETURN 



; CARRIAGE RETURN 



;SKIP TO NEXT CARRIAGE RETURN 



289 02CE 

290 02CE ; 

291 02CE 02CF T CMDTBL: 

292 02CF 4342 A 

293 02D0 035C T 

294 02D1 434C A 

295 02D2 0490 T 

296 02D3 444C A 

297 02D4 0360 T 



.PAGE 



COMMAND TABLE 



.WORD 


. + 1 


.ASCII 


'CB' 


.WORD 


CLRBUF 


.ASCII 


'CL' 


.WORD 


COPYLN 


.ASCII 


'dl' 


.WORD 


DELELN 



EDIT16 



298 02D5 


4653 


A 




.ASCII 


'FS' 


299 02D6 


038D 


T 




.WORD 


FNDSTR 


300 02D7 


4850 


A 




.ASCII 


'HP' 


301 02D8 


0620 


T 




.WORD 


PRINTL 


302 02D9 


4B42 


A 




.ASCII 


'KB' 


303 02DA 


053E 


T 


KBMODE: 


.WORD 


KBREAD 


304 02DB 


4C46 


A 




.ASCII 


'LF' 


305 02DC 


0638 


T 




.WORD 


LISTF 


306 02DD 


4C4C 


A 




.ASCII 


'll' 


307 02DE 


063E 


T 




.WORD 


LISTL 


308 02DF 


4C53 


A 




.ASCII 


'LS' 


309 02E0 


061F 


T 




.WORD 


TYPEL 


310 02E1 


4D44 


A 




.ASCII 


'MD' 


311 02E2 


03A9 


T 




.WORD 


MODLN 


312 02E3 


4D53 


A 




.ASCII 


'MS' 


313 02E4 


038F 


T 




.WORD 


MODSTR 


314 02E5 


4D56 


A 




.ASCII 


'MV' 


315 02E6 


04A4 


T 




.WORD 


MOVELN 


316 02E7 


5054 


A 




.ASCII 


'pt' 


317 02E8 


061D 


T 




.WORD 


PUNCHL 


318 02E9 


5243 


A 




.ASCII 


'RC' 


319 02EA 


0540 


T 




.WORD 


CRREAD 


320 02EB 


5254 


A 




.ASCII 


'RT' 


321 02EC 


0542 


T 




.WORD 


PTREAD 


322 02ED 


5354 


A 




.ASCII 


'ST' 


323 02EE 


04D9 


T 




.WORD 


SETTAB 


324 02EF 


544C 


A 




.ASCII 


'TL' 


325 02F0 


0519 


T 




.WORD 


LEADTR 


326 02F1 


02EF 


T 


ENDTBL: 


.WORD 


.-2 


327 02F2 








.PAGE 


'GET RANGE ROUTINE' 


328 02F2 








. LOCAL 




329 02F2 






i 






330 02F2 


8C06 


B 


RNGE: 


LD 


3,ADRBUF 


331 02F3 


4C00 


A 


RNGE1: 


LI 


0,0 


332 02F4 


A020 


B 




ST 


, RGFLG 


333 02F5 


294E 


A 


$7: 


JSR 


GETDEC 


334 02F6 


2116 


A 




JMP 


$10 


335 02F7 


F42B 


B 




SKNE 


l,ZERO 


336 02F8 


2465 


I 




JMP 


WAIT1 ;SKIP TO NEXT CAR 


337 02F9 


2922 


A 




JSR 


STRBUF 


338 02FA 


7824 


B 




ISZ 


RNGTST 


339 02FB 


F039 


B 




SKNE 


r H2F ; SLASH 


340 02FC 


210B 


A 




JMP 


$9 


341 02FD 


F031 


B 




SKNE 


0,H0D ; CARRIAGE-RETURN 


342 02FE 


2117 


A 




JMP 


TERRNG 


343 02FF 


F038 


B 




SKNE 


0,H2C ; COMMA 


344 0300 


2103 


A 




JMP 


$8 


345 0301 


F03C 


B 




SKNE 


0,H54 ; ASCII T 


346 0302 


2117 


A 




JMP 


$12 


347 0303 


2464 


I 




JMP 


WAITCR 


348 0304 






J 






349 0304 


4DFF 


A 


$8: 


LI 


1,-1 


350 0305 


2916 


A 




JSR 


STRBUF 


351 0306 


7823 


B 




ISZ 


NUMTST 


352 0307 


21EB 


A 




JMP 


RNGE1 


353 0308 






i 






354 0308 


8020 


B 


$9: 


LD 


0, RGFLG 


355 0309 


150B 


A 




BOC 


NZRO,$10A 


356 030A 


7820 


B 




ISZ 


RGFLG 


357 030B 


7823 


B 




ISZ 


NUMTST 


358 030C 


21E8 


A 




JMP 


$7 


359 030D 






/ 






360 030D 


8423 


B 


$10: 


LD 


1, NUMTST 


361 030E 


4900 


A 




AISZ 


1,0 


362 030F 


2465 


I 




JMP 


WAIT1 



EDIT16 



363 0310 F037 B 


SKNE 


0,H27 


; PRIME 


364 0311 210F A 


JMP 


GETSTR 




365 0312 F03C B 


SKNE 


0,H54 




366 0313 2106 A 


JMP 


$12 




367 0314 48F3 A 


AISZ 


0,-X'0D 




368 0315 2464 I $10A: 


JMP 


WAITCR 




369 0316 4DFF A TERRNG: 


: LI 


1,-1 




370 0317 2904 A 


JSR 


STRBUF 




371 0318 4D0D A 


LI 


1,X*0D 




372 0319 2104 A 


JMP 


STRB2 




373 031A ; 








374 031A 29FB A $12: 


JSR 


TERRNG 




375 031B 0201 A 


RTS 


1 




376 031C 








377 031C FC0B B STRBUF: 


SKNE 


3 , RBMAX 




378 031D 2464 I 


JMP 


WAITCR 




379 031E A700 A STRB2: 


ST 


1. (3) 




380 031F 4B01 A 


AISZ 


3,1 




381 0320 0200 A 


RTS 






382 0321 


.PAGE 


'GET STRING 


ROUTINE ' 


383 0321 ; 








384 0321 8024 B GETSTR: 


LD 


f RNGTST 




385 0322 1505 A 


BOC 


NZRO,GETSl 




386 0323 841D B 


LD 


1,CMND 




387 0324 F44B B 


SKNE 


1,ASCFS 




388 0325 2103 A 


JMP 


GETS2 




389 0326 F44A B 


SKNE 


1,ASCMS 




390 0327 2101 A 


JMP 


GETS2 




391 0328 2464 I GETS1: 


JMP 


WAITCR 




392 0329 8806 B GETS2: 


LD 


2,ADRBUF 




393 032A 4A01 A 


AISZ 


2,1 




394 032B 8412 B 


LD 


1,MAXSTR 




395 032C 2C56 B $4: 


JSR 


@SGETCO 




396 032D A200 A $4A: 


ST 


0,(2) 




397 032E 4A01 A 


AISZ 


2,1 




398 032F F037 B 


SKNE 


0,H27 




399 0330 2105 A 


JMP 


$5 




ktiV BOJi rfiJl £3 


SKNE 


0,H0D 




401 0332 2450 B 


JMP 


GTYPERR 




402 0333 49FF A 


AISZ 


1,-1 




403 0334 21F7 A 


JMP 


$4 




404 0335 2464 I 


JMP 


WAITCR 




405 0336 ; 








406 0336 2C56 B $5: 


JSR 


@SGETCO 




407 0337 F031 B 


SKNE 


0,H0D 




408 0338 2103 A 


JMP 


$6 




409 0339 49FF A 


AISZ 


1,-1 




410 033A 21F2 A 


JMP 


$4A 




411 033B 2464 I 


JMP 


WAITCR 




412 033C ; 








413 033C D412 B $6: 


SUB 


1,MAXSTR 




414 033D 5101 A 


CAI 


1,1 




415 033E B406 B 


ST 


1,@ADRBUF 




416 033F 4CFF A 


LI 


0,-1 




417 0340 A024 B 


ST 


, RNGTST 




418 0341 4900 A 


AISZ 


1,0 




419 0342 2466 I 


JMP 


JMPTBL 




420 0343 2450 B 


JMP 


§TYPERR 





EDIT16 



421 


0344 








.PAGE 


GET DEC 


422 


0344 






i 






423 


0344 


4D00 


A 


GETDEC: 


LI 


1,0 


424 


0345 


4E00 


A 




LI 


2,0 


425 


0346 


2C56 


B 


$1: 


JSR 


gSGETCO 


426 


0347 


F036 


B 




SKNE 


0,H20 


427 


0348 


210A 


A 




JMP 


$2 


428 


0349 


E03A 


B 




SKG 


0,H39 


429 


034A 


E039 


B 




SKG 


0,H2F 


430 


034B 


210D 


A 




JMP 


$3 


431 


034C 


6032 


B 




AND 


0,H0F 


432 


034D 


5D04 


A 




SHL 


1,4 


433 


034E 


3100 


A 




RADD 


0,1 


434 


034F 


4A01 


A 




AISZ 


2,1 


435 


0350 


E82E 


B 




SKG 


2,H04 


436 


0351 


21F4 


A 




JMP 


$1 


437 


0352 


2464 


I 




JMP 


WAITCR 


438 


0353 






i 






439 


0353 


3881 


A 


$2: 


RCPY 


2,0 


440 


0354 


11F1 


A 




BOC 


ZRO,$l 


441 


0355 


2C56 


B 




JSR 


@SGETCO 


442 


0356 


F036 


B 




SKNE 


0,H20 


443 


0357 


21FD 


A 




JMP 


.-2 


444 


0358 


0201 


A 




RTS 


1 


445 


0359 






t 






446 


0359 


4A00 


A 


$3: 


AISZ 


2,0 


447 


035A 


0201 


A 




RTS 


1 


448 


035B 


0200 


A 




RTS 





'GET DECIMAL ROUTINE 



449 035C 

450 035C 

451 035C 2C67 I 

452 035D 8C00 B 

453 035E AC01 B 

454 035F 2458 B 



.PAGE 'CLEAR BUFFER ROUTINE 



CLRBUF: JSR 
LD 
ST 
JMP 



RNGZRO 
3, FIRST 
3, LAST 
@ START 1 



455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 



0360 
0360 
0360 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
036A 
036B 
036C 
036D 
036E 
036F 
0370 
0370 
0371 
0372 
0373 
0373 
0374 



2C68 I 
2C69 I 
2110 A 
8017 B 
1501 A 
2C50 B 
2C6A I 
21F9 A 



DELELN 
DELI: 



8C18 B 
FC01 B $1: 



2105 A 
8300 A 
B017 B 
7817 B 
4B01 A 
21F9 A 



8C17 B $2: 
AC01 B 
21EE A 

8022 B NUMBER; 
1503 A 



.PAGE 'DELETE LINE ROUTINE' 
.LOCAL 

JSR EXPZRO 

JSR STLOHI 

JMP NUMBER 

LD , RLO 

BOC NZRO,.+2 

JSR 9TYPERR 

JSR SRCHRG 

JMP DELI 

LD 3,RHI 

SKNE 3, LAST 

JMP $2 

LD 0,(3) 

ST 0,@RLO 

ISZ RLO 

AISZ 3,1 

JMP $1 

LD 3 , RLO 

ST 3, LAST 

JMP DELI 

LD 0,FNDTST 

BOC NZRO,NUMl 



EDIT16 



481 


0375 


2C57 


B 


NUM3: 


JSR 


@STYPE 


482 


0376 


07FE 


T 




.WORD 


VOID 


483 


0377 


245E 


B 




JMP 


@RINIT1 


484 


0378 


8C00 


B 


NUM1: 


LD 


3, FIRST 


485 


0379 


4D00 


A 




LI 


1,0 


486 


037A 


FC01 


B 


NUM2: 


SKNE 


3, LAST 


487 


037B 


245E 


B 




JMP 


0RINIT1 


488 


037C 


2903 


A 




JSR 


INCONE 


489 


037D 


A700 


A 




ST 


1, (3) 


490 


037E 


2C6B 


I 




JSR 


ANDH0D 


491 


037F 


21FA 


A 




JMP 


NUM2 


492 


0380 






> 






493 


0380 


4901 


A 


INCONE: 


AISZ 


1,1 


494 


0381 


3481 


A 




RCPY 


1,0 


495 


0382 


2C6C 


I 




JSR 


ANDH0A 


496 


0383 


4906 


A 




AISZ 


1,6 


497 


0384 


3481 


A 




RCPY 


1.0 


498 


0385 


5CFC 


A 




SHR 


0,4 


499 


0386 


2C6C 


I 




JSR 


ANDH0A 


500 


0387 


4960 


A 




AISZ 


1,X'60 


501 


0388 


3481 


A 




RCPY 


1,0 


502 


0389 


5CF8 


A 




SHR 


0,8 


503 


038A 


2C6C 


I 




JSR 


ANDH0A 


504 


038B 


C446 


B 




ADD 


1,H600 


505 


038C 


0200 


A 




RTS 




506 


038D 








.PAGE 


' FIND/MOl 


507 


038D 








. LOCAL 




508 


038D 






f 






509 


038D 


4C00 


A 


FNDSTR: 


LI 


0,0 


510 


038E 


2101 


A 




JMP 


. + 2 


511 


038F 


4C01 


A 


MODSTR: 


LI 


0,1 


512 


0390 


A01D 


B 




ST 


0,CMND 


513 


0391 


8024 


B 




LD 


0,RNGTST 


514 


0392 


4801 


A 




AISZ 


0,1 


515 


0393 


2450 


B 




JMP 


@TYPERR 


516 


0394 


2C68 


I 




JSR 


EXPZRO 


517 


0395 


8C01 


B 




LD 


3, LAST 


518 


0396 


AC 24 


B 




ST 


3 , RNGTST 


519 


0397 


8C00 


B 




LD 


3, FIRST 


520 


0398 


FC01 


B 




SKNE 


3, LAST 


521 


0399 


246D 


I 




JMP 


NOFILE 


522 


039A 


AC1E 


B 




ST 


3,EXPMND 


523 


039B 


2917 


A 


$3: 


JSR 


SETLN 


524 


039C 


2929 


A 




JSR 


SRCHST 


525 


039D 


2106 


A 




JMP 


$3B 


526 


039E 


7822 


B 




ISZ 


FNDTST 


527 


039F 


801D 


3 




LD 


0,CMND 


528 


03A0 


1102 


A 




BOC 


ZRO,$3A 


529 


03A1 


2946 


A 




JSR 


MODIFY 


530 


03A2 


2103 


A 




JMP 


$3C 


531 


03A3 


2919 


A 


$3A: 


JSR 


OUTBUF 


532 


03A4 


8C23 


B 


$3B: 


LD 


3,NUMTST 


533 


03A5 


AC1E 


B 




ST 


3,EXPMND 


534 


03A6 


FC24 


B 


$3C: 


SKNE 


3, RNGTST 


535 


03A7 


21CB 


A 




JMP 


NUMBER 


536 


03A8 


21F2 


A 




JMP 


$3 



537 03A9 .PAGE 'MODIFY LINE ROUTINE' 

538 03A9 ; 

539 03A9 2C6E I MODLN: JSR SETLHR 

540 03AA AC1E B ST 3,EXPMND 

541 03AB 8C18 B LD 3,RHI 



EDIT16 



542 03AC AC24 B 

543 03AD 2905 A MODI: 

544 03AE 2939 A 

545 03AF 8C1E B 

546 03B0 FC24 B 

547 03B1 21F7 A 

548 03B2 21FA A 



ST 


3 , RNGTST 


JSR 


SETLN 


JSR 


MODIFY 


LD 


3,EXPMND 


SKNE 


3 , RNGTST 


J MP 


MODLN 


JMP 


MODI 



549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 



03B3 
03B3 
03B3 
03B4 
03B5 
03B6 
03B7 
03B8 
03B9 
03B9 
03 BA 
03BB 
03BC 
03BD 
03BD 
3BE 
03BF 
03C0 
03C1 
03C2 
03C3 
03C4 
03C5 



.PAGE 'SET/OUTPUT LINE IN BUFFER 



8C1E B SETLN: 
8007 B 
A025 B 
8005 B 
A00A B 
2403 B 

B025 B SETBUF: 
7825 B 
AC23 B 
0200 A 

8C07 B OUTBUF: 

8300 A OUT1: 

2C51 B 

4B01 A 

48F3 A 

21 FB A 

4C0A A 

2C51 B 

0200 A 



LD 
LD 
ST 
LD 
ST 
JMP 

ST 
If.Z 
ST 
RTS 

LD 

LD 

JSR 

AISZ 

AISZ 

JMP 

LI 

JSR 

RTS 



3,EXPMND 
0,ADDBUF 
0, PTBUF 
0,ADSETB 
0, DEVICE 
§ADPLN 

0,GPTBUF 

PTBUF 

3 r NUMTST 



3,ADDBUF 

0,(3) 

@SPUTC 

3,1 

r -X'0D 

OUT1 

0,0A 

@SPUTC 



rTRANSMIT LINE-FEED 



572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 



03C6 
03C6 
03C6 
03C7 
03C8 
03C9 
03CA 
03CB 
03CC 
03CD 
03CE 
03CF 
03D0 
03D1 
03D2 
03D3 
03D3 
03D4 
03D5 
03D6 
03D7 
03D8 
03D9 
03DA 
03DB 
03DC 
03DD 
03DE 
03DF 
03E0 
03E1 



.PAGE 'SEARCH STRING ROUTINE 



8C08 
4D0D 
8806 
8200 
A025 
4A01 
8200 
F300 
2104 
F700 
2110 
4B01 
21 FA 

2C6F 
7C25 
2101 
0201 
4A01 
4B01 
8200 
F300 
21 F8 
F700 
2103 
2C70 
4B01 
21E7 



B SRCHST; 

A 

B SRCH1: 

A 

B 

A 

A 

A $1: 

A 

A 

A 

A 

A 

I $2: 

B $2A: 

A 

A 

A 

A 

A 

A 

A 

A 

A 

I 

A 

A 



LD 

LI 

LD 

LD 

ST 

AISZ 

LD 

SKNE 

JMP 

SKNE 

JMP 

AISZ 

JMP 

JSR 

DSZ 

JMP 

RTS 

AISZ 

AISZ 

LD 

SKNE 

JMP 

SKNE 

JMP 

JSR 

AISZ 

JMP 



3,ADBUF2 

1,X'0D 

2,ADRBUF 

0,(2) 

0, PTBUF 

2,1 

0,(2) 

0,(3) 

$2 

1,(3) 

$4 

3,1 

$1 

SAVE 

PTBUF 

. + 2 

1 

2,1 

3,1 

0,(2) 

0,(3) 

$2A 

1,(3) 

$4 

RESTOR 

3,1 

SRCH1 
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603 03E1 8200 A 

604 03E2 48E0 A 

605 03E3 0200 A 

606 03E4 4A01 A 

607 03E5 7C25 B 

608 03E6 21FA A 

609 03E7 0201 A 



$4: 



LD 


0,(2) 


AISZ 


f -X'20 


RTS 




AISZ 


2,1 


DSZ 


PTBUF 


JMP 


$4 


RTS 


1 



610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 



03E8 
03E8 
03E8 
03E9 
03EA 
03EB 
03EC 
03ED 
03EE 
03EF 
03F0 
03F1 
03F2 
03F3 
03F4 
03F5 
03F6 
03F7 
03F8 
03F9 
3FA 
03FB 
03FC 
03FD 
03FE 
03FF 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
040A 
040A 
040B 
040B 
040C 
040D 
040E 
040F 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 



8C01 B MODIFY: 

EC0C B 

2102 A 

2C71 I 

245E B 

8C5B B MODI: 

AC1F B 

8C01 B 

AC 16 B 

2919 A 

8C1E B 

4B01 A 

AC 17 B 

8C23 B 

AC18 B 

8C24 B 

AC15 B 

2C72 I 

8C01 B 

AC16 B 

8C08 B 

2C73 I 

8801 B 

8C16 B 

AC01 B 

8C15 B 

A815 B 

AC16 B 

2C74 I 

8C16 B 

AC 24 B 

8C18 B 

AC1E B 

0200 A 

2C59 B MODI2: 



29B1 A 
8051 B 
A00A B 
2C57 B 
0812 T 
2940 A 
8C29 B 
AC 2 A B 
8C08 B 
AC 25 B 
8C09 B 
4E41 A 
2C53 B 
2C75 I 
2476 I 



MOD: 



.PAGE 

LD 

SKG 

JMP 

JSR 

JMP 

LD 

ST 

LD 

ST 

JSR 

LD 

AISZ 

ST 

LD 

ST 

LD 

ST 

JSR 

LD 

ST 

LD 

JSR 

LD 

LD 

ST 

LD 

ST 

ST 

JSR 

LD 

ST 

LD 

ST 

RTS 

JSR 

JSR 

LD 

ST 

JSR 

.WORD 

JSR 

LD 

ST 

LD 

ST 

LD 

LI 

JSR 

JSR 

JMP 



MODIFICATION ROUTINE 



3, LAST 

3,SHT39 

MODI 

BUFULL 

@RINIT1 

3,ADKGET 

3, MODE 

3, LAST 

3, SHI 

MOD 

3,EXPMND 

3,1 

3,RLO 

3 ,NUMTST 

3,RHI 

3,RNGTST 

3,SLO 

USHIFT 

3 , LAST 

3, SHI 

3,ADBUF2 

STBUF 

2, LAST 

3, SHI 

3, LAST 

3,SLO 

2,SLO 

3, SHI 

DSHIFT 

3, SHI 

3 , RNGTST 

3 RHI 

3,EXPMND 



@TRISTR 

OUTBUF 

, SPUTC 

0, DEVICE 

@STYPE 

ALTERS 

GLLEN 

3,LLEN 

3,LLEN1 

3,ADBUF2 

3, PTBUF 

3,ADBUF 

2,65 

@SGECO 

TTYINP 

REINIT 



; CHECK FOR BUFFER OVERFLOW 



;SAVE CURRENT LINE LENGTH 



;ALLOW 65 CHARS PER LINE 
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664 


041A 


2115 


A 


JMP 


TESTCZ 


665 


041B 


0200 


A 


RTS 




666 


041C 


2C53 


B $6: 


JSR 


@SGECO 


667 


041D 


2C75 


I 


JSR 


TTYINP 


668 


041E 


21EB 


A 


JMP 


MODI 2 


669 


041F 


2110 


A 


JMP 


TESTCZ 


670 


0420 


213D 


A 


JMP 


$10 


671 


0421 


4C0D 


A $6A: 


LI 


0,X'0D 


672 


0422 


A300 


A 


ST 


0,(3) 


673 


0423 


4B01 


A 


AISZ 


3,1 


674 


0424 


4C0A 


A 


LI 


0,X'0A 


675 


0425 


A300 


A 


ST 


0,(3) 


676 


0426 


2C4F 


B 


JSR 


@SCRLF 


677 


0427 


8808 


B 


LD 


2,ADBUF2 


678 


0428 


8C09 


B 


LD 


3,ADBUF 


679 


0429 


8300 


A $6B: 


LD 


0,(3) 


680 


042A 


A200 


A 


ST 


0,(2) 


681 


04 2B 


4B01 


A 


AISZ 


3,1 


682 


04 2C 


4A01 


A 


AISZ 


2,1 


683 


042D 


48F6 


A 


AISZ 


0,-X'0A 


684 


042E 


21 FA 


A 


JMP 


$6B 


685 


042F 


21DB 


A 


JMP 


MOD 


686 


0430 




r 






687 


0430 


C849 


B TESTCZ: 


ADD 


2,HFFFF 


688 


0431 


F034 


B 


SKNE 


0,H18 


689 


0432 


2137 


A 


JMP 


$11 


690 


0433 


F02C 


B 


SKNE 


0,H01 


691 


0434 


2142 


A 


JMP 


$12 


692 


0435 


F02E 


B 


SKNE 


0,H04 


693 


0436 


2157 


A 


JMP 


$13 


694 


0437 


C82C 


B 


ADD 


2,H01 


695 


0438 


48E6 


A 


AISZ 


0,-X'lA 


696 


0439 


21E2 


A 


JMP 


$6 


697 


043A 


2C52 


B 


JSR 


@SGETC 


698 


043B 


E03E 


B 


SKG 


0,H5F 


699 


043C 


E035 


B 


SKG 


0,H1F 


700 


043D 


210E 


A 


JMP 


$71 


701 


043E 


3181 


A 


RCPY 


0,1 


702 


043F 


9025 


B $7: 


LD 


0,@PTBUF 


703 


0440 


A300 


A 


ST 


0,(3) 


704 


0441 


F700 


A 


SKNE 


1,(3) 


705 


0442 


21D9 


A 


JMP 


$6 


706 


0443 


2C51 


B 


JSR 


@sputc 


707 


0444 


7825 


B 


ISZ 


PTBOF 


708 


0445 


4B01 


A 


AISZ 


3,1 


709 


0446 


F030 


B 


SKNE 


0,H0A 


710 


0447 


21C3 


A 


JMP 


MOD 


711 


0448 


4AFF 


A 


AISZ 


2,-1 


712 


0449 


21F5 


A 


JMP 


$7 


713 


044A 


2C4F 


B 


JSR 


@SCRLF 


714 


044B 


21BF 


A 


JMP 


MOD 


715 


044C 




; 






716 


044C 


4C0D 


A $71: 


LI 


0,0D 


717 


044D 


2C51 


B 


JSR 


0SPUTC 


718 


044E 


4C0A 


A 


LI 


0,0 A 


719 


044F 


2C51 


B 


JSR 


@SPUTC 


720 


0450 


21BA 


A 


JMP 


MOD 


721 


0451 




t 






722 


0451 


8C08 


B GLLEN: 


LD 


3,ADBUF2 


723 


0452 


AC25 


B 


ST 


3,PTBUF 


724 


0453 


4C00 


A 


LI 


0,0 


725 


0454 


A029 


B 


ST 


0,LLEN 


726 


0455 


8809 


B 


LD 


2,ADBUF 


727 


0456 


9025 


B $7A: 


LD 


0,@PTBUF 


728 


0457 


A200 


A 


ST 


0,(2) 



; SPREAD BUFFER TO INSERT LONGER LINE 



CTRL/X 
CTRL/A 
CTRL/D 

; CTRL/Z 



; ERROR 

;COPY TO LINE BUFFER 

;UP TO CHARACTER SPECIFIED 



;ECHO CHARACTER COPIED 



; TRANSMIT LF-CR 



; COUNT NUMBER OF CHARACTERS IN LINE 
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729 


0458 


4A01 


A 




AISZ 


2,1 


730 


0459 


F031 


B 




SKNE 


f H0D 


731 


045A 


0200 


A 




RTS 




732 


045B 


7825 


B 




ISZ 


PTBUF 


733 


045C 


7829 


B 




ISZ 


LLEN 


734 


045D 


21F8 


A 




JMP 


$7A 


735 


045E 






i 






736 


045E 


8425 


B 


$10: 


LD 


l f PTBUF 


737 


045F 


D408 


B 




SUB 


l r ADBUF2 


738 


0460 


E42A 


B 




SKG 


1,LLEN1 


739 


0461 


2101 


A 




JMP 


$10A 


740 


0462 


21BE 


A 




JMP 


$6A 


741 


0463 


9025 


B 


$10A: 


LD 


0,@PTBUF 


742 


0464 


F030 


B 




SKNE 


r H0A 


743 


0465 


21BB 


A 




JMP 


$6A 


744 


0466 


A300 


A 




ST 


0,(3) 


745 


0467 


7825 


B 




ISZ 


PTBUF 


746 


0468 


4B01 


A 




AISZ 


3,1 


747 


0469 


21F9 


A 




JMP 


$10A 


748 


046A 






• 






749 


046A 


4C5E 


A 


$11: 


LI 


0,X'5E 


750 


046B 


2C51 


B 




JSR 


@SPUTC 


751 


046C 


3D81 


A 




RCPY 


3,1 


752 


046D 


8301 


A 


$11A: 


LD 


0,1(3) 


753 


046E 


A300 


A 




ST 


0,(3) 


754 


046F 


7C29 


B 




DSZ 


LLEN 


755 


0470 


F031 


B 




SKNE 


0,H0D 


756 


0471 


2102 


A 




JMP 


. + 3 


757 


0472 


4B01 


A 




AISZ 


3,1 


758 


0473 


21F9 


A 




JMP 


$11A 


759 


0474 


7825 


3 




ISZ 


PTBUF 


760 


0475 


3781 


A 




RCPY 


1,3 


761 


0476 


21A5 


A 




JMP 


$6 


762 


0477 






> 






763 


0477 


4C3C 


A 


$12: 


LI 


0,X'3C 


764 


0478 


2C51 


B 




JSR 


@SPUTC 


765 


0479 


2C52 


B 


$12C: 


JSR 


@SGETC 


766 


047A 


C849 


B 




ADD 


2,HFFFF 


767 


047B 


F031 


B 




SKNE 


0,H0D 


768 


047C 


2109 


A 




JMP 


S12A 


769 


047D 


2C51 


B 




JSR 


@SPUTC 


770 


047E 


8429 


B 




LD 


1,LLEN 


/ IX. 


04 /f 


K414 


B 




SKG 


1,LLIM 


772 


0480 


2101 


A 




JMP 


. + 2 


773 


0481 


2108 


A 




JMP 


$12B 


774 


0482 


A300 


A 




ST 


0,(3) 


775 


0483 


7829 


B 




ISZ 


LLEN 


776 


0484 


4B01 


A 




AISZ 


3,1 


777 


0485 


21F3 


A 




JMP 


$12C 


778 


0486 


4C3E 


A 


$12A: 


LI 


0,X'3E 


779 


0487 


2C51 


B 




JSR 


@SPUTC 


780 


0488 


2C4F 


B 




JSR 


@SCRLF 


781 


0489 


21D4 


A 




JMP 


$10 


782 


048A 






, 






783 


048A 


2C4F 


B 


$12B: 


JSR 


@SCRLF 


784 


048B 


2C57 


B 




JSR 


@STYPE 


785 


048C 


0817 


T 




.WORD 


LINLEN 


786 


048D 


2477 


I 




JMP 


MOD 


787 


048E 






» 






788 


048E 


2C4F 


B 


$13: 


JSR 


@SCRLF 


789 


048F 


2191 


A 




JMP 


$6A 



;TEST LINE LENGTH 



;FOR SHORT LINE, CLOSE UP BUFFER 



; DELETE CHARACTER 



; DECREMENT LINE LENGTH 

; TERMINATE ON CARRIAGE RETURN 



; INSERT CHARACTER 
;SEND 'X' 



; TERMINATE ON CARRIAGE RETURN 

;ECHO CHARACTER INSERTED 
;TEST FOR LINE FULL 



; INCREMENT LINE LENGTH 



;SEND 



;LINE IS MAXIMUM LENGTH 
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790 


0490 








.PAGE 


COPY LIN: 


791 


0490 






i 






792 


0490 


8001 


B 


COPYLN: 


LD 


0,LAST 


793 


0491 


EC0C 


B 




SKG 


3,SHT39 


794 


0492 


2102 


A 




JMP 


COP1 


795 


0493 


2C71 


I 




JSR 


BUFULL 


796 


0494 


245E 


B 




JMP 


0RINIT1 


797 


0495 


A016 


B 


COP1: 


ST 


0,SHI 


798 


0496 


291E 


A 


COP2: 


JSR 


SETSR 


799 


0497 


8C17 


B 




LD 


3,RLO 


800 


0498 


880D 


B 




LD 


2, END 


801 


0499 


F816 


B 


$8: 


SKNE 


2 r SHI 


802 


049A 


2107 


A 




JMP 


$9 


803 


049B 


8300 


A 




LD 


0,(3) 


804 


049C 


B016 


B 




ST 


f esm 


805 


049D 


7816 


B 




ISZ 


SHI 


806 


049E 


4B01 


A 




AISZ 


3,1 


807 


049F 


FC18 


B 




SKNE 


3,RHI 


808 


04A0 


21F5 


A 




JMP 


COP 2 


809 


04A1 


21F7 


A 




JMP 


$8 


810 


04A2 






t 






811 


04A2 


2C71 


I 


$9: 


JSR 


BUFULL 


812 


04A3 


2458 


B 




JMP 


§START1 


813 


04A4 








.PAGE 


'MOVE LIN 


814 


04A4 






r 






815 


04A4 


8001 


B 


MOVELN : 


LD 


0,LAST 


816 


04A5 


A016 


B 




ST 


0,SHI 


817 


04A6 


290E 


A 


MOV1: 


JSR 


SETSR 


818 


04A7 


2915 


A 




JSR 


USHIFT 


819 


04A8 


21FD 


A 




JMP 


MOV1 


820 


04A9 






i 






821 


04A9 


8001 


B 


MLINE: 


LD 


, LAST 


822 


04AA 


A015 


B 




ST 


0,SLO 


823 


04AB 


8016 


B 




LD 


0,SHI 


824 


04 AC 


A001 


B 




ST 


0,LAST 


825 


04AD 


8021 


B 




LD 


0,EXPTST 


826 


04AE 


1103 


A 




BOC 


ZRO, MLINl 


827 


04AF 


801E 


B 




LD 


r EXPMND 


828 


04B0 


A017 


B 




ST 


0,RLO 


829 


04B1 


2C78 


I 




JSR 


SRCHLN 


830 


04B2 


2479 


I 


MLINl: 


JMP 


NUMBER 


831 


04B3 


2919 


A 




JSR 


DSHIFT 


832 


04B4 


2479 


I 




JMP 


NUMBER 


833 


04B5 








.PAGE 


'SET/SEAR 


834 


04B5 






r 







835 04B5 2C69 

836 04B6 21F2 

837 04B7 8017 B 

838 04B8 1501 

839 04B9 2450 B 

840 04BA 2C6A 

841 04BB 21F9 

842 04BC 0200 



I SETSR: 


JSR 


STLOHI 


A 


JMP 


MLINE 


B 


LD 


0,RLO 


A 


BOC 


NZRO,.+2 


B 


JMP 


GTYPERR 


I 


JSR 


SRCHRG 


A 


JMP 


SETSR 


A 


RTS 





843 04BD 

844 04BD ; 

845 04BD 8C17 B USHIFT; 

846 04BE FC18 B 



.PAGE 'SHIFT UP/DOWN ROUTINE 



LD 

SKNE 



3,RLO 
3,RHI 
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847 


04BP 


0200 


A 


RTS 




848 


04C0 


8300 


A 


LD 


0,(3) 


849 


04C1 


B016 


B 


ST 


0,@SHI 


850 


04C2 


7C15 


B 


DSZ 


SLO 


851 


04C3 


7C18 


B 


DSZ 


RHI 


852 


04C4 


7C01 


B 


DSZ 


LAST 


853 


04C5 


8301 


A USH1: 


LD 


0,1(3) 


854 


04C6 


A300 


A 


ST 


0,(3) 


855 


04C7 


4B01 


A 


AISZ 


3,1 


856 


04C8 


FC16 


B 


SKNE 


3, SHI 


857 


04C9 


21F3 


A 


JMP 


USHIFT 


858 


04CA 


21 FA 


A 


JMP 


USH1 


859 


04CB 




» 






860 


04CB 


9001 


B USH2: 


LD 


0,@LAST 


861 


04CC 


A300 


A 


ST 


0,(3) 


862 


04CD 


8C01 


B DSHIFT: 


LD 


3, LAST 


863 


04CE 


FC15 


B 


SKNE 


3, SLO 


864 


04CF 


0200 


A 


RTS 




865 


04D0 


7815 


B 


ISZ 


SLO 


866 


04D1 


7816 


B 


ISZ 


SHI 


867 


04D2 


7818 


B 


ISZ 


RHI 


868 


04D3 


83FF 


A DSH1: 


LD 


0,-1(3) 


869 


04D4 


A300 


A 


ST 


0,(3) 


870 


04D5 


4BFF 


A 


AISZ 


3,-1 


871 


04D6 


FC17 


B 


SKNE 


3,RLO 


872 


04D7 


21F3 


A 


JMP 


USH2 


873 


04D8 


21 FA 


A 


JMP 


DSH1 


874 


04D9 






.PAGE 


'SET TA! 


875 


04D9 






.LOCAL 




876 


04D9 




i 






877 


04D9 


2C67 


I SETTAB: 


JSR 


RNGZRO 


878 


04DA 


2C4F 


B SETT1: 


JSR 


@SCRLF 


879 


04DB 


4D07 


A 


LI 


1,7 


880 


04DC 


4C20 


A 


LI 


0,X'20 


881 


04DD 


2C51 


B 


JSR 


@SPUTC 


882 


04DE 


49FF 


A 


AISZ 


1,-1 


883 


04DF 


21FD 


A 


JMP 


.-2 


884 


04E0 


4E3B 


A 


LI 


2,59 


885 


04E1 


4C31 


A 


LI 


0,X'31 


886 


04E2 


2C51 


B $1: 


JSR 


§SPUTC 


887 


04E3 


F03A 


B 


SKNE 


0,H39 


888 


04E4 


211B 


A 


JMP 


$4 


889 


04E5 


4801 


A 


AISZ 


0,1 


890 


04E6 


4AFF 


A $1A: 


AISZ 


2,-1 


891 


04E7 


21 FA 


A 


JMP 


$1 


892 


04E8 


2C4F 


B 


JSR 


@SCRLF 


893 


04E9 


2C57 


B 


JSR 


@STYPE 


894 


04EA 


07EE 


T 


.WORD 


TYPE1 


895 


04EB 


4E00 


A 


LI 


2,0 


896 


04EC 


4D00 


A 


LI 


1,0 


897 


04ED 


2C56 


B 


JSR 


@SGETCO 


898 


04EE 


2103 


A 


JMP 


. + 4 


899 


04EF 


2C53 


B $2: 


JSR 


GSGECO 


900 


04F0 


F033 


B 


SKNE 


0,H11 


901 


04F1 


21E8 


A 


JMP 


SETT1 


902 


04F2 


F031 


B 


SKNE 


0,H0D 


903 


04F3 


2110 


A 


JMP 


TSTTAB 


904 


04F4 


F036 


B 


SKNE 


0,H20 


905 


04F5 


2106 


A 


JMP 


$3 


906 


04F6 


F82D 


B 


SKNE 


2,H03 


907 


04F7 


21E2 


A 


JMP 


SETT1 


908 


04F8 


8C0E 


B 


LD 


3,ADTAB 


909 


04 F9 


3B00 


A 


RADD 


2,3 


910 


04FA 


A700 


A 


ST 


1,(3) 


911 


04 FB 


4A01 


A 


AISZ 


2,1 



15 



EDIT16 



912 04FC 4901 A : 


$3: 


AISZ 


1,1 


913 04FD E43B B 




SKG 


1,H40 


914 04FE 21F0 A 




JMP 


$2 


915 04FF 21DA A 




JMP 


SETT1 


916 0500 


i 






917 0500 4C25 A 


$4: 


LI 


0,X'25 


918 0501 2C51 B 




JSR 


@SPUTC 


919 0502 4C31 A 




LI 


0,X'31 


920 0503 21E2 A 




JMP 


$1A 


921 0504 




.PAGE 




922 0504 2C57 B 


TSTTAB : 


JSR 


@STYPE 


923 0505 07E9 T 




.WORD 


VERIFY 


924 0506 4E00 A 




LI 


2,0 


925 0507 4D00 A 




LI 


1,0 


926 0508 8C0E B 




LD 


3,ADTAB 


927 0509 4C20 A 


TSTT1 : 


LI 


0,X'20 


928 050A F700 A 


TSTT2 : 


SKNE 


1,(3) 


929 050B 2105 A 




JMP 


$5 


930 050C 4901 A 




AISZ 


1,1 


931 050D 2C51 B 




JSR 


@SPUTC 


932 050E E43B B 




SKG 


1,H40 


933 050F 21FA A 




JMP 


TSTT2 


934 0510 2458 B 




JMP 


eSTARTl 


935 0511 


r 






936 0511 4B01 A 


$5: 


AISZ 


3,1 


937 0512 4C31 A 




LI 


0,X'31 


938 0513 2C51 B 




JSR 


@SPUTC 


939 0514 4901 A 




AISZ 


1,1 


940 0515 4A01 A 




AISZ 


2,1 


941 0516 F82D B 




SKNE 


2,H03 


942 0517 2458 B 




JMP 


@ START 1 


943 0518 21F0 A 




JMP 


TSTT1 


944 0519 




.PAGE 


'OUTPUT 


945 0519 


/ 






946 0519 2C68 I 


LEADTR: 


: JSR 


EXPZRO 


947 051A 290B A 




JSR 


CNVRT 


948 051B 4D14 A 




LI 


1,20 


949 051C 5D02 A 




SHL 


1,2 


950 051D 2C57 B 




JSR 


@STYPE 


951 051E 07E0 T 




.WORD 


TPAK4 


952 051F 2C52 B 




JSR 


@SGETC 


953 0520 4C00 A 




LI 


0,0 


954 0521 2C51 B 




JSR 


@SPUTC 


955 0522 49FF A 




AISZ 


1,-1 


956 0523 21FD A 




JMP 


.-2 


957 0524 2C52 B 




JSR 


@SGETC 


958 0525 2458 B 




JMP 


@ START 1 



'OUTPUT LEADER/TRAILER ROUTINE 



959 0526 

960 0526 ; 

961 0526 3C81 A CNVRT: 

962 0527 D006 B 

963 0528 48FD A 

964 0529 2112 A 

965 052A 87FD A 

966 052B E445 B 

967 052C 2101 A 

968 052D 2450 B $11: 



.PAGE 'BCD TO BINARY CONVERSION 



RCPY 


3,0 


SUB 


0,ADRBUF 


AISZ 


0,-3 


JMP 


$13 


LD 


1,-3(3) 


SKG 


1,H100 


JMP 


. + 2 


JMP 


@TYPERR 



16 



> 



IMPASP 



REVISION-G 05/16/74 

IMPASP 0000301C 6/25/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 0000 

10 000D 

OOOE 
nnrw 

0010 
0011 

11 0012 

12 0013 

13 0014 

14 0015 

15 0016 

16 0017 

17 0018 

18 0019 

19 00 1A 

20 001B 

21 00 1C 

22 0010 

23 001 E 

24 001F 

25 0020 

26 0021 

27 0022 

28 0023 

29 01F0 

30 01F0 

31 01 F0 

32 01F0 

33 01F0 

34 01 FO 

35 01F0 

36 01 FO 

37 01F0 

38 01F0 

39 01 FO 



FFFF A 
0001 A 



000D 
01F0 
02 06 
0246 
022E 
029F 
0013 
0014 
0243 
0286 
029F 
029F 
029F 
029F 
029F 
029F 
C29F 
029F 
001 F 
0020 
0021 
0022 
0023 
01F0 



•TITLE IMPASP, ' 0000301C 6/25/74' 
SUBROUTINES NEEDED BY IMP 16 ASSEMBLER 

************************************** 

SIZE8=-1 
SIZE4=-SIZE8 

.ASECT 

.=0D 

•WORD MULT,DIVD,GETC,PUTC,RDCRD 



INBUFB: 
INBUFE: 



PRINT: 



DSKOBJ: 

DSKIN: 

DSKTMPt 

ABST: 

DSKERR: 



ECHOGC 

UNIT 

WDSKTM 

WDSKOB 

RDSKIN 

RDSKTM 

HSPRT 

MESS 

CLOSET 

CLOSEO 



0000 A 

0001 A 

0002 A 

0003 A 

0001 A 

0002 A 

0003 A 

0004 A 

0005 A 



. = .+1 
.= •+1 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORC 

• WORD 

• WORD 

• WORD 

• WORD 
. = .41 
.=. + 1 

• =o+l 

.=•+1 

. = . + 1 
•=01F0 
•ENCIF 

• ********** ****************** ********** 

R0=0 

Rl = l 

R2=2 

R3=3 

Z = l 

P = 2 

0DD=3 

B1EQ1=4 

NZ=5 



j ****************************** 



40 01 FO 

41 01FO 0002 A 

42 01 FO OOOB A 

43 01F0 0002 A 

44 01F0 0003 A 

45 01F0 0000 A 

46 01F0 0001 A 

47 01F0 0002 A 

48 01 FO 0003 A 

49 01F0 

50 O1F0 

51 01 FO 

52 01F0 

53 01F0 

54 01F0 

55 01F0 A912 A 

56 01 Fl AD12 A 

57 01F2 4E00 A 



• PAGE 
$PSIGN=2 
$NRGT0=11 
$SELFF=2 
$BIT0=3 
ACO=0 
AC1=1 
AC2=2 
AC3 = 3 



•MULT/DIV ROUTINES' 



MULT: 



MAIN CALLING PROGRAM 



SUBROUTINE MULT 



ST 
ST 
LI 



AC2,$S2 
AC3,$S3 
AC2,0 



; CLEAR AC2 



IMPASP 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 



01F3 
01 F4 
01F5 
01 F5 
01F6 
01F7 
01 F8 
01F9 
01 FA 
01 FB 
01FC 

01 FD 
01FE 
01FF 

02 00 
0201 
0202 
0203 
0204 
0205 
02 05 
0205 
0205 
0206 
0207 
0208 
0209 
020A 
02 OB 
020C 
020D 
02 OE 
020F 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
021 A 
021B 
021C 
0210 
021E 
021F 
0220 
0221 
0222 
0223 
0224 
02 24 
0225 
0226 
0227 
0228 
0229 
022A 
022B 
02 2C 
022D 



4F10 A 
5000 A 



OAOO 
5E01 
1301 
3600 
5AFF 
5CFF 
4BFF 
21FA 
3181 
3881 
8D04 
8902 
0A80 
0200 
0204 
0205 



0A80 
8905 
8D05 
02 00 
8D04 
3F00 
21F9 
0000 
0000 
7000 



$LOOP: 



0000 

A924 

3281 

5001 

3C00 

IBID 

4CF0 

A1F8 

OAOO 

4C00 

5C01 A 

5D01 A 

5A01 

3881 

5001 

3C00 

1B03 

4C00 

5C01 

2104 

5001 

3281 

4CFF 

5C01 

5901 

79E6 

21 Fl 

3481 

1201 

2105 

3881 



$S2: 
$S3: 



$COUNT: 
DIVO: 



$POOL: 



$GOES: 



$SHFTLO 



LI 
CAI 

SFLG 

SHL 

BOC 

RADD 

ROR 

SHR 

AISZ 

JMP 

RCPY 

RCPY 

LD 

LD 

PFLG 

RTS 

.=.+! 

• =• + 1 



SUBRCUTINE OIVD 



AC3tl6 
ACO.O 

$SELFF 

AC2,1 

$BlT0to+2 

ACl f AC2 

AC2,1 

AC0,1 

AC3,-1 

$LOOP 

ACOtACl 

AC2.AC0 

AC3,$S3 

AC2,$S2 

SSELFF 



$DONE: 



$OVFLW: 



$SAV2: 
$SAV3: 
$H7000: 



• WORD 
ST 

RCPY 
CAI 
RADD 
BOC 
LI 

ST 

SFLG 
LI 
SHL 
SHL 
ROL 
RCPY 
CAI 
RADD 
BOC 
LI 
SHL 
JMP 
CAI 
RCPY 
LI 
SHL 
:ROL 
ISZ 
JMP 
RCPY 
BOC 
JMP 
RCPY 

PFLG 

LD 

LD 

RTS 

LD 

RADD 

JMP 

• WORD 

• WORD 

• WORD 



AC2,$SAV2 

AC0,AC2 

AC0,1 

AC3,AC0 

$NRGTO,$OVFLW 

ACOt-16 

AC0,$COUNT 

$SELFF 

ACO»0 

ACOtl 

AC1.1 

AC2,1 

AC2,AC0 

AC0,1 

AC3»AC0 

$NRGTO t $G0ES 

ACOtO 

AC0,1 

$SHFTLO 

AC0,1 

AC0,AC2 

AC0,-1 

AC0,1 

AC1,1 

$COUNT 

$POOL 

AC1 ,ACO 

$PSIGN,.+2 

$OVFLW 

AC2,AC0 

$SELFF 

AC2,$SAV2 

AC3,$SAV3 

AC3,$H7000 

AC3,AC3 

$DONE 





X'7000 



;BIT C0UNT=16 

COMPLEMENT ACO TO SIMPLIFY 

BRANCHING ON MULTIPLIER BITO 

INCLUDE LINK IN SHIFTS 

;CLEAR LINK 

;BRANCH IF ACO COMPLEMENTED=0 

;AC1+AC2 — > AC2 

; rotate result of add into link 
; shift link into aco 
;decr count, skip if zero 

;move lo oroer result to aci 
;move hi order result to aco 



;CLEAR SELF 



;SAVE AC2 

SUBTRACT HI ORDER FROM DIVISOR 

US HI ORDER >= DIVISOR 

;N0 

;SET C0UNT=16 

;SET SELX 

;CLEAR LINK 

;ROTATE HI ORDER LEFT WITH LINK 



; SUBTRACT HI ORDER FROM DIVISOR 
US HI ORDER >= DIVISOR 

;no 

;CLEAR LINK 

;YES 

;HI ORDER = HI ORDER - DIVISOR 

;SET LINK 

;ROTATE LO ORDER WITH LINK LEFT 

;ARE WE DONE? 

;N0 

;yes 

;IS RESULT NEG 

;YES, OVERFLOW 

;N0 MOVE REMAINDER TO ACO,QUOT 

;IN ACI 

;CLEAR SELX 

;RESTORE AC2 

JRESTORE AC3 



;SET OVERFLOW 



IMPASP 



122 


022E 






• PAGE 


•TELETYPE I/O - GETC/PLTC 


123 


022E 




» 


TELETYPE DELAY CONSTANTS 


124 


022E 


C029 A 


$TA 


= 


41 


125 


022E 


0012 A 


$TB 


SB 


18 


126 


02 2E 


0070 A 


$TC 


= 


112 


127 


022E 


0009 A 


$EA 


= 


9 


128 


022E 


0016 A 


$EB 


= 


22 


129 


022E 


0026 A 


$EC 


= 


38 


130 


022E 


0038 A 


$TTYAD 


a 


7*8 



131 


02 2E 








•SPACE 


5 


132 


022E 






• 


TELETYPE TRANSMIT 


133 


022E 






: 






134 


022E 


2947 


A 


PUTC: 


JSR 


SAVE 


135 


022F 


2012 


A 


LPC: 


JSR3 


PPUTC 


136 


0230 


2110 


A 




JMP 


DONE+2 


137 


0231 


4C30 


A 




LI 


R0,030 


138 


0232 


293F 


A 




JSR 


$DELAY+1 


139 


0233 


4E09 


A 




LI 


R2,9 


140 


0234 


4F38 


A 




LI 


R3»$TTYAD 


141 


02 35 


0603 


A 




ROUT 


3 


142 


0236 


293A 


A 


$LPl: 


JSR 


$DELAY 


143 


0237 


5829 


A 




ROL 


RO t $TA 


144 


0238 


4AFF 


A 




AISZ 


R2,-l 


145 


0239 


2101 


A 




JMP 


• +2 


146 


023A 


2104 


A 




JMP 


DONE 


147 


02 3B 


59FF 


A 




ROR 


Rl f 1 


148 


023C 


3481 


A 




RCPY 


Ri,RO 


149 


023D 


0603 


A 




ROUT 


3 


150 


023E 


21F7 


A 




JMP 


$LP1 


151 


023F 


4CFF 


A 


DONE: 


LI 


R0,-1 


152 


0240 


0603 


A 




ROUT 


3 


153 


0241 


213D 


A 




JMP 


RET 


154 


0242 


7E59 


A 


PPUTC: 


• WORD 


07E59 



155 0243 








•SPACE 


5 


156 02*3 


2932 


A 


ECHOGC: 


JSR 


SAVE 


157 0244 


2D2A 


A 


LECO: 


JSR3 


PGECO 


158 0245 


2127 


A 




JMP 


$X 


159 0246 






» 


GET CHARACTER ROUTINE 


160 02 46 


292F 


A 


GETC: 


JSR 


SAVE 


161 0247 


2D28 


A 


LGET: 


JSR a 


PGETC 


162 0248 


2124 


A 




JMP 


$X 


163 0249 


0A80 


A 




PFLG 


2 


164 024A 


4F38 


A 




LI 


R3,$TTYAD 


165 024B 


0605 


A 


$25: 


ROUT 


5 


166 024C 


4E08 


A 




LI 


R2,8 


167 024D 


0604 


A 




ROUT 


4 


168 024E 


0402 


A 




RIN 


2 


169 024F 


1201 


A 




BOC 


2,. +2 


170 0250 


21FD 


A 




JMP 


.-2 


171 0251 


4C09 


A 




LI 


R0»$EA 


172 0252 


291F 


A 




JSR 


$DELAY+1 


173 0253 


58EA 


A 




ROR 


RO,$EB 


174 0254 


0402 


A 




RIN 


2 


175 0255 


1201 


A 




BOC 


2, .+2 


176 0256 


21FA 


A 




JMP 


$25 


177 02 57 


792D 


A 


$LP2: 


ISZ 


FLAG 


178 0258 


7D2C 


A 




DSZ 


FLAG 


179 0259 


2101 


A 




JMP 


• + 2 



IMPASP 



180 


02 5A 


0603 


A 




ROUT 


3 


181 


025B 


2915 


A 




JSR 


$DELAY 


182 


025C 


5826 


A 




ROL 


ROt$EC 


183 


02 50 


0402 


A 




RIN 


2 


184 


025E 


6125 


A 




ANO 


R0,X8000 


185 


025F 


5DFF 


A 




SHR 


Rltl 


186 


0260 


3182 


A 




RXOR 


R0,R1 


187 


0261 


4AFF 


A 




AISZ 


R2,-l 


188 


0262 


21F4 


A 




JMP 


$L<>2 


189 


0263 


7921 


A 




ISZ 


FLAG 


190 


0264 


7D20 


A 




DSZ 


FLAG 


191 


02 65 


2104 


A 




JMP 


$11 


19 2 


0266 


0603 


A 




ROUT 


3 


193 


0267 


2909 


A 




JSR 


$0ELAY 


194 


0268 


4CFF 


A 




LI 


ROt-1 


195 


0269 


0603 


A 




ROUT 


3 


196 


026A 






$11: 






197 


02 6A 


2906 


A 




JSR 


$DELAY 


198 


0268 


5DF8 


A 




SHR 


Rl,8 


199 


02 6C 


3481 


A 




RCPY 


Rl,RO 


200 


02 60 


A10D 


A 


$X: 


ST 


RO,$REG 


201 


026E 


2110 


A 




JMP 


RET 


202 


026F 


7E73 


A 


PGECO: 


• WORD 


07E73 


203 


0270 


7E3B 


A 


PGETC: 


• WORD 


C7E3B 



204 


0271 








.SPACE 


5 


205 


0271 






» 


DELAY 


ROUTINE 


206 


0271 






♦ 






207 


0271 






$OELAY: 






208 


0271 


4C12 


A 




LI 


ROt$TB 


209 


0272 


5890 


A 




ROR 


R0,$TC 


210 


0273 


48FF 


A 




AISZ 


ROt-1 


211 


0274 


21 FD 


A 




JMP 


.-2 


212 


0275 


0200 


A 




RTS 





213 0276 

214 0276 

215 0276 

216 0276 A104 

217 0277 A504 

218 0278 A904 

219 02?9 AD04 

220 027A 0200 

221 027B 027F 

222 02 7F 

223 027F 81FB 

224 0280 85FB 

225 0281 89FB 

226 0282 8DF8 

227 0283 0200 

228 0284 

229 0284 8000 

230 02 85 02 86 



.SPACE 5 

SAVE AND RESTORE REGISTERS ROUTINE 



A 


SAVE: 


ST 


RO,$REG 


A 




ST 


R1,$REG+1 


A 




ST 


R2,$REG+2 


A 




ST 


R3,$REG+3 


A 




RTS 




A 


$REG: 


• = .+4 




A 


RET: 


LD 


RO»$REG 


A 




LD 


R1,$REG+1 


A 




LD 


R2t$REG+2 


A 




LD 


R3,$REG+3 


A 




RTS 




A 


» 
X8000: 


.WORD 


08000 


A 


FLAG: 


.*.+! 





231 0286 

232 0286 

233 02 86 

234 02 86 
23 5 02 86 
236 02 86 



.PAGE '16L INITIALIZATION ROUTINE' 
16L INITIALIZATION ROUTINE 
UNIT: 



IMPASP 



237 0286 


810C 


A 




LD 


RO,LPCC 




23 8 0287 


Bill 


A 




ST 


R0t3LLL 




239 0288 


810B 


A 




LD 


R0,LPCC+1 




240 0289 


B110 


A 




ST 


R0.3LLL+1 




241 02 8 A 






t 








242 028A 


810A 


A 




LD 


ROtLECOC 




243 02 8B 


B10F 


A 




ST 


R0,3LLL+2 




244 02 8C 


8109 


A 




LD 


RO,LECOC+1 




245 02 8D 


B10E 


A 




ST 


R0,3LLL+3 




246 02 8 E 






» 








247 02 8E 


8108 


A 




LD 


RO, LGETC 




248 028F 


B10D 


A 




ST 


ROtSLLL+4 




249 0290 


8107 


A 




LD 


R0,LGETC+1 




250 0291 


B10C 


A 




ST 


R0,3LLL+5 




251 0292 


0200 


A 




RTS 






252 0293 






» 








253 0293 






• 








254 0293 


3181 


A 


LPCC: 


RCPY 


ROtRl 




255 0294 


0A80 


A 




PFLG 


2 




256 0295 






* 








257 0295 


4F00 


A 


LECOC: 


LI 


R3,0 




258 0296 


2102 


A 




JMP 


.+3 




259 0297 






* 








260 0297 


4F01 


A 


LGETC: 


LI 


R3,l 




261 02 98 


AD3C 


A 




ST 


R3,.+X«3D 




262 02 99 


022F 


A 


LLL: 


• WORD 


LPC,LPC+1,LEC0,LEC0+1 


,LGET,LGET+1 


029A 


0230 


A 










02 9B 


0244 


A 










029C 


0245 


A 










029D 


0247 


A 










02 9E 


0248 


A 










263 029F 






RDCRD: 








264 029F 






WDSKTMs 








265 029F 






WDSKOB: 








266 029F 






RDSKIN: 








267 02 9F 






RDSKTM: 








268 029F 






HSPRT: 








269 029F 






MESS: 








270 02 9F 






CLOSET: 








271 029F 






CLOSED: 








272 029F 


0000 


A 




HALT 






273 02A0 


21FE 


A 




JMP 


.-1 




274 02A1 








•ENDIF 






275 02 Al 








.END 






****** 





EP 


1R0RS IN 


ASSEMBL 


Y ****** 





$11 
02 6A A 


$25 
024B A 


$BIT0 
0003 A 


$COUN 
0205 A 


$DELA 
0271 A 


$DONE 
0224 A 


$EA 
0009 A 


$EB 
0016 A 


$EC 
0026 A 


$GOES 
0219 A 


$H700 
022D A 


$LOOP 
01F7 A 


$LP1 
0236 A 


$LP2 
0257 A 


$NRGT 
OOOB A 


$OVFL 
0228 A 


$POOL 
0211 A 


$PSIG 
0002 A 


$REG 
027B A 


$S2 
0203 A 


$S3 
0204 A 


$SAV2 
022B A 


$SAV3 
022C A 


$SELF 
0002 A 


$SHFT 
021D A 


$TA 
0029 A 


$TB 
0012 A 


$TC 
0070 A 


$TTYA 
0038 A 


$X 
026D A 


ABST 
0021 A 


ACO 
0000 A 


AC1 
0001 A 


AC2 
0002 A 


AC 3 
0003 A 


B1EQ1 
0004 A 


CLOSEO 
029F A 


CLOSET 
029F A 


DIVD 
0206 A 


DONE 
023F A 


DSKERR 
0022 A 


DSKIN 
001 F A 


DSKOBJ 
001 E A 


DSKTMP 
0020 A 


ECHOGC 
0243 A 


FLAG 
0285 A 


GETC 
0246 A 


HSPRT 
029F A 


INBUFB 
0012 A 


INBUFE 
0013 A 


LECO 
0244 A 


LECOC 
0295 A 


LGET 
0247 A 


LGETC 
0297 A 


LINIT 
0286 A 


LLL 
0299 A 


LPC 
022F A 


LPCC 
0293 A 


MESS 
029F A 


MULT 
01F0 A 



IMPASP 



NZ ODD P PGECO PGETC PPUTC PRINT PUTC RO Rl 

0005 A 0003 A 0002 A 026F A 0270 A 0242 A 001A A 022E A 0000 A 0001 A 

R2 R3 RDCRD RDSKIN RDSKTM RET SAVE SIZE4 SIZE8 WDSKOB 

0002 A 0003 A 029F A 029F A 029F A 027F A 0276 A 0001 A FFFF A 029F A 

WDSKTM X8000 Z 
029F A 0284 A 0001 A 



864C 14E1 



s 
> 
s 



IMPASM 



REVISION-G 01/02/74 
IMPASM 0000300C 6/25/74 



1 


0000 








2 


0000 








3 


0000 






. ****** 


4 


0000 








5 


0000 








6 


0000 








7 


0000 


FFFF 


A SIZE8 


8 


0000 


0001 


A SIZE4 


9 


0000 


0FFF 


A STTOP 


10 


0000 


0000 


A DBGVER 


11 


0000 








12 


0000 








13 


0000 


000C 


A PNCHMD 


14 


0000 


000D 


B 




15 


0000 


000E 


B MULT: 


16 


000E 


000F 


B DIVD: 


17 


000F 


0010 


B GETC: 


18 


0010 


0011 


3 PUTC: 


19 


0011 


0012 


B RDCRD: 


20 


0012 


0120 


A INBUFB: 


21 


0013 


016F 


A ] 


[NBUFE: 


22 


0014 


0015 


B ECHOGC: 


23 


0015 


0016 


B LINIT: 


24 


0016 


0017 


B WDSKTM: 


25 


0017 


0018 


B WDSKOB: 


26 


0018 


0019 


B RDSKIN: 


27 


0019 


001A 


B RDSKTM: 


28 


001A 


001B 


B HSPRT: 


29 


001B 


001C 


B MESS: 


30 


001C 


001D 


B CLOSET: 


31 


001D 


001E 


B CLOSEO: 


32 


001E 


FFFE 


A DSKOBJ: 


33 


001F 


FFFE 


A DSKIN: 


34 


0020 


FFFE 


A DSKTMP: 


35 


0021 


0ED6 


A I 


kBST: 


36 


0022 


0D17 


A 




37 


0023 






****** 


38 


0023 








39 


0023 








40 


0023 








41 


0023 








42 


0023 


0001 


A 2 


=1 


43 


0023 


0002 


A £ 


>=2 


44 


0023 


0003 


A C 


)DD=3 


45 


0023 


0004 


A E 


J1EQ1=4 


46 


0023 


0005 


A tt 


IZ=5 


47 


0023 


000B 


A I 


J EZ=11 


48 


0023 




i 




49 


0023 


0000 


A F 


10=0 


50 


0023 


0001 


A F 


11=1 


51 


0023 


0002 


A F 


12=2 



0C 



.TITLE IMPASM, '0000300C 6/25/74' 
**************************************** 

SIZE8=-1 IF 4K VERSION 
SIZE8=1 IF 8K VERSION 

-1 

-SIZE8 

4095 


.ENDIF 
.BSECT 

.=.+0D 
. = .+1 
. = .+1 
. = .+1 
. = .+1 
. = .+1 
.WORD 
.WORD 
. = .+1 
. = .+1 
. = .+1 
. = .+1 
. = .+1 
. = .+1 
, = ,+1 
. = .+1 
. = .+1 
. = .+1 
.WORD 
.WORD 
.WORD 
.WORD 



DEBUG ALSO USES THIS LOCATION 



INBUF 
INBUF+79 



-2 
-2 

-2 
BADSTB 



BAI 



--■■ ** xnuLiu 






.WORD DSKERR 
********************************** 



BOC ASSIGNMENTS 



52 0023 0003 A R3=3 

53 0023 8000 A S=08000 

54 0023 0008 A ELIM=8 



; NUMBER OF ERRORS LIMIT FOR EACH STATEMENT 



55 


0023 




.PAGE 


'CONSTANTS ' 


56 


0023 


0000 A ZERO: 


.WORD 





57 


0024 


00FF A K255: 


.WORD 


255 



IMPASM 



58 


0025 


000B 


A 


Kll: 


.WORD 


11 


59 


0026 


0001 


A 


Kl: 


.WORD 


1 


60 


0027 


0003 


A 


K3: 


.WORD 


3 


61 


0028 


0006 


A 


K6: 


.WORD 


6 


62 


0029 


0008 


A 


K8: 


.WORD 


8 


63 


002A 


0007 


A 


K7: 


.WORD 


7 


64 


002B 


0009 


A 


K9: 


.WORD 


9 


65 


002C 


0004 


A 


K4: 


.WORD 


4 


66 


002D 


000F 


A 


K15: 


.WORD 


15 


67 


002E 


FFF0 


A 


XFFF0: 


.WORD 


0FFF0 


68 


002F 


FFF7 


A 


XFFF7: 


.WORD 


0FFF7 


69 


0030 


8000 


A 


X8000: 


.WORD 


08000 


70 


0031 


6666 


A 


X6666: 


.WORD 


06666 


71 


0032 


0040 


A 


HEX40: 


.WORD 


040 


72 


0033 


005A 


A 


HEX5A: 


.WORD 


05A 


73 


0034 


0020 


A 


HEX20: 


.WORD 


020 


74 


0035 


002F 


A 


HEX2F: 


.WORD 


02F 


75 


0036 


0039 


A 


HEX39: 


.WORD 


039 


76 


0037 


0046 


A 


HEX46: 


.WORD 


046 


77 


0038 


0030 


A 


HEX30: 


.WORD 


030 


78 


0039 


0037 


A 


HEX37: 


.WORD 


037 


79 


003A 


007F 


A 


HEX7F: 


.WORD 


07F 


80 


003B 


003F 


A 


HEX3F: 


.WORD 


03F 


81 


003C 


002A 


A 


HEX2A: 


.WORD 


02A 


82 


003D 


0400 


A 


HEX40G 


J : . WORD 


0400 


83 


003E 


1000 


A 


X1000: 


.WORD 


01000 


84 


003F 


0100 


A 


K256: 


.WORD 


256 


85 


0040 


0002 


A 


K2: 


.WORD 


2 


86 


0041 


0010 


A 


K16: 


.WORD 


16 


87 


0042 


FF00 


A 


XFF00: 


.WORD 


0FF00 


88 


0043 


0029 


A 


RPAREf 


I: .WORD 


') V256 


89 


0044 


0058 


A 


CHARX 


.WORD 


'x'/256 


90 


0045 


0027 


A 


QUOTE 


.WORD 


/256 


91 


0046 


0028 


A 


LPARE^ 


i: .WORD 


'(7256 


92 


0047 


000D 


A 


CR: 


.WORD 


0D 


93 


0048 


2020 


A 


BLANK! 


5: .WORD 




94 


0049 


003B 


A 


SEMI: 


.WORD 


V/256 


95 


004A 


002E 


A 


DOT: 


.WORD 


'. 7256 


96 


004B 


003A 


A 


COLAN 


. WORD 


': 7256 


97 


004C 


003D 


A 


EQUAL 


.WORD 


'=7256 


98 


004D 


5C00 


A 


SHLIN 


: SHL 


R0,0 


99 


004E 


0024 


A 


DOLLAI 


R: .WORD 


'$'/256 


100 


004F 


002C 


A 


COMMA 


: .WORD 


',7256 


101 


0050 


002B 


A 


CPLUS 


: .WORD 


'+7256 


102 


0051 


002D 


A 


CMINUi 


3 : . WORD 


'-7256 


103 


0052 


0025 


A 


CNOT: 


.WORD 


'%'/256 


104 


0053 


0026 


A 


CAND: 


. WORD 


's'/256 


10 5 


0054 


0021 


A 


COR: 


.WORD 


'! '/256 


106 


0055 


0D71 


A 


ERRBAi 


3 : . WORD 


ERBUF 


107 


0056 






f 






108 


0056 


0034 


B 


BLANK 


= 


HEX20 ; 


109 


0056 


0038 


3 


CZERO 


= 


HEX30 ; 


110 


0056 


0032 


B 


CAT 


= 


HEX40 ; 


111 


0056 


00 3C 


B 


CMPY 


= 


HEX2A ; 


112 


0056 


0035 


B 


CDIV 


= 


HEX2F ; 



' 7256 
'0'/256 
'<a 7256 
'*'/256 
77256 



113 0056 

114 0056 

115 0056 0000 A ACTR: 

116 0057 0000 A BCTR: 

117 0058 0000 A TCTR: 

118 0059 005A B AMAX: 

119 005A 005B B BMAX: 



.PAGE 'VARIABLES' 

ACTR, BCTR, TCTR, MUST BE IN THAT SEQUENCE 

.WORD ;ASECT LOC CTR 

.WORD ;BSECT LOC CTR 

.WORD ;TSECT LOC CTR 

. = .+1 

. = .+1 



IMPASM 



120 0058 

121 005C 

122 005D 

123 005E 

124 005F 

125 0060 

126 0061 

127 0062 

128 0063 

129 0064 

130 0065 

131 0066 

132 0067 

133 0068 

134 0069 

135 006A 

136 006B 

137 006C 

138 006D 

139 006E 

140 006F 

141 0070 

142 0071 

143 0072 

144 0073 

145 0074 

146 0075 

147 0076 

148 0077 

149 0078 

150 0079 

151 007A 

152 007B 

153 007C 

154 007D 

155 007E 

156 007F 

157 0080 

158 0081 

159 0082 

160 0083 

161 0084 

162 0085 

163 0086 

164 0087 

165 0088 

166 0089 

167 008A 

168 008B 

169 008C 

170 008D 

171 008E 

172 008F 

173 0090 

174 0091 

175 0092 

176 0093 

177 0094 

178 0095 

179 0096 

180 0097 



005C 
0000 
0000 
0120 
0060 
0000 
0000 
0000 
0ED6 
0FFF 
0FFF 
0ED6 
0FFF 
0FFF 
006A 
006B 
0003 
0000 
018E 
018E 
0000 
0001 
003C 
0000 
0000 
0000 
0076 
0077 
0078 
0079 
007A 
0000 
007C 
007D 
0000 
0000 
0000 
0000 
0000 
0083 
0084 
0085 
0086 
0087 
0088 

0089 
0001 
008B 
008C 
0080 
008E 
008F 
0001 
0091 
0001 
0093 
0094 
FFFE 
FFFE 
0000 
0000 



B TMAX: 
A LOCCTR: 
A PASS: 
A INPTR: 
B LCPTR: 
A BASE: 
TOP: 
NEXT: 
BASEA: 
TOPA: 
NEXTA: 
BASEB: 
TOPB: 
NEXTB: 
B XINOK: 
B MOFLAG: 
A SECT: 
LOCREG: 
IFPTR: 
IFPTRA: 
IFSTAT: 
IFMODE: 
PGRL: 
IVAL: 
ICLASS: 
FORMPT: 
B FORMB: 
B FORMT: 
B FORMM: 
B FORMBN: 
B FORMTN: 
A EXPVAL: 
8 EXPPD: 
B EXPREL: 
A NAM0: 
A NAM1: 
A NAM2: 
A CNAM0: 
A CNAM1 ; 
B STVAL: 
B STPDEF: 
B STREL: 
B STPT: 
B ITVAL: 
B ITREL: 

B EC: 
A INDEV: 
B LBLPT: 
B ERRPT: 
8 LCNT1: 
B LCNT2: 
B LISTMD: 
A ERRLST: 
B OBJMOD: 
A NOLIST: 
B NOCOM: 
B NOMAP: 
A IDSKIN: 
A IDSKTM: 
A HSPR: 
A TYPMOD: 



. = .+1 

.WORD 

.WORD 

.WORD 

. = .+1 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

. = .+1 

. = .+1 

.WORD 

.WORD 

.WORD 

. WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

. = .+1 

. = .+1 

. = .+1 

. = .+1 

. = .+1 

.WORD 

. = .+1 

.=.+l ! 

.WORD 

.WORD 

.WORD 

.WORD 

, WORD 

. = .+1 

. = .+1 

. = .+1 

!=!+i 
,=.+i 
,=.+i 

,=.+i 

.WORD 
. = .+1 
. = .+1 
. = .+1 
, = .+1 
. = .+1 
.WORD 
.=.+1 
■ WORD 
. = .+1 
. = .+1 
.WORD 
.WORD 
.WORD 
, WORD 



; CURRENT LOC CTR 

;PASS1 =0 , PASS2 =NON ZERO 

INBUF ; POINTS TO NEXT INPUT CHAR. 

;LAST ACTIVE CHAR PTR (USED BY ERROR) 







STBAS 

STTOP 

STTOP 

STBAS 

STTOP 

STTOP 

; EXTENDED INSTRUCTIONS OK? 0=NO 

; MULTIPLE OUTPUT FLAG 0=1ST 1=SUBSEQ. 

3 ;SECTION 1=ASECT 2=BSECT 3=TSECT 

; LOCAL REGION NUMBER (0 TO 255) 

INITIALIZATION FOR IFPTR 
0=ENDIF LAST 2=IF LAST 4=ELSE LAST 
0=SKIP 1=N0 SKIP 
(NUM OF LINES REMAINING ON PAGE 
IN3TR. VALUE FROM DI TABLE 
INSTR CLASS DI TABLE 
(SYMBOL TABLE FORM PTR 
FORM BEGIN FIELD BITS 
FORM TERMINAL FIELD BITS 
FORM FIELD MASK 
FORM BEGINNING BIT NUMBER 
FORM TERMINAL BIT NUM. 
(VALUE FROM EXP. ROUTINES 
EXP PREVIOUS DEF FLAG 
EXP RELOCATION CODE 









a 



IFTAB 

IFTAB 

? 

1 

60 





-1 
-1 
IFSTATUS 



1 

1^ 

; NO 
-2 
-2 




SYMBOL TALBE VALUE 

SYMBOL TABLE PREV. DEFINITION FLAG 

OVMDfiT rTIADr T? DDTAi 

L^xriuvu inuuu i\uuv 

SYMBOL TABLE PRT. 
ITEM VALUE 
ITEM RELOCATION 



ERROR COUNT 

INPUT DEVICE 0=CR 1=KB 2=PT 
LABEL PRT, USED BY ASSIGN DIRECTIVE 
POINTS TO NEXT ERROR ENTRY 
(DEC LINE CNT FOR PRINTING1 ('0'/256) 
(DEC LINE CNT FOR PRINTING2 (06656=0) 
(VALUE FROM LAST LIST DIRECTIVE 
ERROR LISTING REQUESTED 1=N0 0=YES 
0=NO OBJECT MODULE NZ=OBJ MOD 
0=NO LISTING 
=N0 COMMENT PRINTING 
MAP FLAG 0=NONE 

-2=N0, OTHER=INITIAL LOGICAL SECTION 
-2=N0, OTHER=INITIAL LOGICAL SECTION 
1=N0, 0=HIGH SPEED PRINTER 
0=?RINT, NZ=TYPE OR PUNCH 



181 0098 



PAGE 



INITIALIZATION AND START' 



IMPASM 



182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 



0098 
0098 
0098 
0000 
0000 
0120 
0170 
018E 
018F 
0199 
01DA 
01DA 
01EC 
01ED 
02B0 
0280 
02B0 
02B0 
02B0 
02B1 
02B2 
02B3 
02B4 
02B4 
02B5 
02B6 
0287 
02B8 
02B9 
02BA 
02BB 
02BC 
2BD 
2BD 
02BE 
028F 
02C0 
02C1 
02C2 
02C3 
02C4 
02C5 
02C6 
02C7 
02C8 
02C9 
02CA 
02CB 
2CB 
02CC 
2CD 



. LOCAL 

ASECT 

IF SIZE4 

= 0120 

= .+80 

=.+30 ;PAGE STRING BUFFER 

= .+1 

=.+10 ;IF TABLE 

= .+65 



0120 A 

0170 A INBUF: 
01 8E A PGSTRG: 
018F A 

0199 A IFTAB: 
01 DA A PTRTAB: 
PTREND: 
01EC A TTLBUF: .=.+18 
0000 A .WORD 

02B0 A .=0280 



START : 



8D32 A 
0418 A 
4801 A 
2C15 B 

4C01 A 
A089 B 
A096 B 
A097 B 
4C00 A 
A00C A 
A05D B 
9C98 I 
2C99 I 



2C9A 
21F1 
290E 
210A 
1101 
A063 B 
A464 B 
A467 B 
2C9B I 
2104 A 
2906 A 
2102 A 
A066 B 
A467 B 

2C9C I 
2118 A 
21E2 A 



IMP 16/L TEST 
LD R3,HEX760 
RIN 018 
AISZ R0,1 
JSR @LINIT 



$2 



LI 


R0,1 


ST 


R0,INDEV 


ST 


R0,HSPR 


ST 


R0,TYPMOD 


LI 


R0,0 


ST 


R0,PNCHMD 


ST 


R0,PASS 


LO 


R3,MSGBEG 


JSR 


ONLMSG 


READ 


MEMORY SIZE 


JSR 


RDTTY 


JMP 


START 


JSR 


GSIZE 


JMP 


$2 


BOC 


Z f .+2 


ST 


R0,BASEA 


ST 


Rl,TOPA 


ST 


Rl,TOPB 


JSR 


GCOMMA 


JMP 


$2 


JSR 


GSIZE 


JMP 


$2 


ST 


R0,BASEB 


ST 


Rl f TOP8 


JSR 


GNVC 


JMP 


NEWASM 


JMP 


START 



;USE DEFAULT SIZE 



;GBT ALTERNATE REGION SIZE 



; ERROR-EXTRA DATA 



233 02CE 

234 02CE 

235 02CE 

236 02CE 

237 02CE 

238 02CE 290E 

239 02CF 0200 

240 02D0 A51L 

241 02D1 2C9C 

242 02D2 2108 

243 02D3 F04B B 

244 02D4 2101 



END OF MEMORY SIZE INPUT 
GET SIZE PAIR 



GSIZE: 






A 


JSR 


$GDEC 


A 


RTS 




A 


ST 


Rl,$TMP 


I 


JSR 


GNVC 


A 


JMP 


$3 


B 


SKNE 


R0,COLAN 


A 


JMP 


.+2 



IMPASM 



245 02D5 2105 A 

246 02D6 2906 A 

247 02D7 2103 A 

248 02D8 8109 A 

249 02D9 D426 B 

250 02DA 0201 A 

251 02DB 7C5E 8 $3: 

252 02DC 0200 A 

253 02DD 

254 02DD 

255 02DD 



JMP 


$3 


JSR 


$GDEC 


JMP 


$3 


LD 


R0,$TMP 


SUB 


R1,K1 


RTS 


1 


DSZ 


INPTR 


RTS 






; FORCE ERROR 
; FORCE ERROR 



; INPUT CHAR PTR ; FORCE ERROR 



GET DECIMAL VAL FOR SIZE 



256 


02DD 


2C9D 


I $GDEC: 


JSR 


GITEM 


257 


02DE 


0200 


A 


RTS 




258 


02DF 


8486 


B 


LD 


Rl , ITVAL 


259 


02E0 


5D0A 


A 


SHL 


Rl,10 


260 


flODI 


0201 




RTS 




261 


02E2 


02E3 


A $TMP: 


. = .+1 




262 


02E3 


0760 


A HEX760: 


.WORD 


0760 


263 


02E4 


1E63 


A LABST: 


.WORD 


01E63 


264 


02G5 






.PAGE 


'NEW ASSEMBLY 


265 


02E5 






. LOCAL 




266 


02E5 










267 


02E5 






BEGIN 


NEW ASSEMBLY 


268 


02E5 










269 


02E5 


4C00 


A NEWASM: 


LI 


R0,0 


270 


02E6 


A00C 


A 


ST 


R0,PNCHMD 


271 


02E7 


A05D 


B 


ST 


R0,PASS 


272 


02E8 


A069 


B 


ST 


R0,XINOK 


273 


02E9 


A090 


B 


ST 


R0,OBJMOD 


274 


2EA 


A05A 


B 


g T 


R0,BMAX 


275 


02EB 


A05B 


B 


ST 


R0 f TMAX 


276 


02EC 


B09E 


I 


ST 


R0,PTRTAB 


277 


02ED 


B09F 


I 


ST 


R0,PTREND-1 


278 


02EE 


B0A0 


I 


ST 


«0,TTLBUF+7 


279 


02EF 


8064 


B 


LD 


R0,TOPA 


280 


02F0 


A065 


B 


ST 


R0,NEXTA 


281 


02F1 


8067 


B 


LD 


R0,TOPB 


282 


02F2 


A068 


B 


ST 


R0,NEXTB 


283 


02F3 


4C01 


A 


LI 


R0,1 


284 


2F4 


A093 


B 


ST 


R0,NOMAP 


285 


02F5 


A097 


B 


ST 


R0,TYPMOD 


286 


02F6 


A089 


B 


ST 


R0,INDEV 


287 


02F7 


A091 


B 


ST 


R0,NOLIST 


288 


02F8 


A08E 


B 


ST 


R0,LISTMD 


289 


02F9 


A08F 


B 


ST 


R0,ERRLST 


290 


02FA 


A096 


B 


ST 


R0,HSPR 


291 


02FB 


4CFE 


A 


LI 


R0,-2 


292 


02FC 


A094 


B 


ST 


R0,IDSKIN 


293 


02FD 


A095 


B 


ST 


R0,IDSKTM 


294 


02FE 


A01E 


B 


ST 


R0,DSKOBJ 


295 


02FF 


4C05 


A 


LI 


R0,5 


296 


0300 


B0A1 


I 


ST 


R0 f TTLBUF 


297 


0301 


8138 


A 


LD 


R0,$MAIN 


298 


0302 


B0A2 


I 


ST 


R0,TTLBUF+4 


299 


0303 


8137 


A 


LD 


R0 f $MAIN+l 


300 


0304 


B0A3 


I 


ST 


R0,TTLBUF+5 


301 


0305 


8136 


A 


LD 


R0,$MAIN+2 


302 


0306 


B0A4 


I 


ST 


R0 f TTLBUF+6 


303 


0307 


A092 


B 


ST 


R0,NOCOM 


304 


0308 


4FF5 


A 


LI 


R3,-ll 


305 


0309 


8048 


B 


LD 


R0, BLANKS 


306 


030A 


890F 


A 


LD 


R2, $TTL 


307 


030B 


A200 


A 


ST 


R0,0(R2) 



;VAL*1024 



0=PASS 1 

0= EXTENDED INSTR ILLEGAL 



; EMPTY POINTER TABLE 



; INPUT DEVICE 0=CR, 1=KB, 2=PT ;SET INPU 
;SET LISTING MODE 



IMPASM 



308 


030C 


4A01 


A 




309 


030D 


4B01 


A 


310 


030E 


21FC 


A 


311 


030F 


4F06 


A 


312 


0310 


2CA5 


I 


313 


0311 


9CA6 


I 


314 


0312 


2C99 


I 


315 


0313 




i 


316 


0313 




i 


317 


0313 


2C9A 


I 


318 


0314 


21D0 


A 


319 


0315 


2C^7 


I 


320 


0316 


21CE 


A 


321 


0317 


2903 


A 


322 


0318 


2CA8 


I 


323 


0319 


2132 


A 


324 


031A 


01E1 


A $TTL: 


325 


031B 








326 


031B 








327 


031B 








328 


031B 


4D03 


A PINIT 


329 


031C 


A46B 


B 


330 


031D 


4D01 


A 


331 


031E 


A48E 


B 


332 


031F 


A470 


B 


333 


0320 


4C00 


A 


334 


0321 


A00C 


A 


335 


0322 


B0A9 


I 


336 


0323 


A06F 


B 


337 


0324 


A06C 


B 


338 


0325 


A056 


B 


339 


0326 


A057 


B 


340 


0327 


A058 


B 


341 


0328 


A05C 


8 


342 


0329 


B0AA 


I 


343 


032A 


B0AB 


I 


344 


032B 


846E 


B 


345 


032C 


A46D 


B 


346 


03 20 


8431 


13 


347 


032E 


A488 


B 


348 


032F 


A48D 


B 


349 


0330 


4D30 


A 


350 


0331 


A48C 


B 


351 


0332 


4D37 


A 


352 


0333 


A471 


B 


353 


0334 


8094 


B 


354 


0335 


A01F 


B 


355 


0336 


8095 


B 


356 


0337 


A020 


B 


357 


0338 


2CAC 


I 


358 


0339 


0200 


A 


359 


033A 


4D41 


A $MAIN 




033B 


494E 


A 




033C 


5052 


A 


360 


033D 






361 


033D 






362 


033D 








363 


033D 








364 


0330 








365 


033D 








366 


033D 


0AF2 


A $XARG 


367 


033E 


2042 


A 


?CB: 



AISZ 


R2,l 


AISZ 


R3,l 


JMP 


.-3 


LI 


R3,6 


JSR 


MANYNL 


LD 


R3,MSGNXT 


JSR 


ONLMSG 



NEXT ASSEMBLE *.ASM 



INPUT CONTROL STATEMENT 



JSR 


RDTTY 


JMP 


NEWASM 


JSR 


PRCTRL 


JMP 


NEWASM 


JSR 


PINIT 


JSR 


NEWLIN 


JMP 


NEXTST 


. WORD 


TTLBUF+7 



; PROCESS CONTROL STATEMENT 



PASS INITIALIZATION 



LI 


Rl,3 


ST 


Rl,SECT 


LI 


Rl,l 


ST 


R1,LISTMD 


ST 


R1,IFM0DE 


LI 


R0,0 


ST 


R0,PNCHMD 


ST 


R0,PGSTRG 


ST 


R0,IFSTAT 


ST 


R0,LOCREG 


ST 


R0,ACTR 


ST 


R0,BCTR 


ST 


R0,TCTR 


ST 


R0,LOCCTR 


ST 


R0 r SOUCK 


ST 


R0,OBJCK 


LO 


R1,IFPTRA 


ST 


Rl, IFPTR 


LO 


R1,X6666 


ST 


R1,EC 


ST 


R1,LCNT2 


LI 


Rl, '0'/256 


ST 


R1,LCNT1 


LI 


Rl,55 


ST 


Rl,PGRL 


LD 


R0,IDSKIN 


ST 


R0,DSKIN 


LD 


R0,IDSKTM 


ST 


R0,DSKTMP 


JSR 


INITOR 


RTS 




.ASCII 


'MAINPR' 



;SECT:=TSECT 



; RESET PAGE STRING 
; LOCAL REGION NUMBER 



;SOURCE CHECKSUM 
;OBJECT CHECKSUM 



INITIALIZE OBJECT RECORD 



.PAGE 'STATEMENT PROCESS AND FORM USAGE 
.LOCAL 

STATEMENT PROCESS 



.WORD XARGCK 
.WORD ' B' 



IMPASM 



033F 
0340 
0340 
0341 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0347 
0348 
0349 
034A 
034B 
034C 
034C 
034D 
034E 
034F 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0358 
0358 
0359 
035A 
035B 
035C 
035D 
035D 
035E 
035F 
0360 



4C18 A XERROR; 
2CAD I XERR1: 



2105 
2CAD 
4C00 
4D01 
2CAE 
2103 



368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 

a tin CfiCi TzniAri n 
•ski? bjui r v*t\, a 



2DF5 A 
2CAF I 
2102 A 
2DF2 A 
2CB0 I 



8096 B 
A097 B 
8055 B 
A08B B 
4C00 A 
A06A B 
4DF1 A 
4400 
4901 
21FD 
81E7 
B0B1 



ERRST: 

INABS: 
INOUT: 



DIREND: 



ENDST: 



NEXTST: 



2CB2 I 

2C9C I NEXTLB: 

21EC A 

F04A B 

2108 A 

2CB3 I 
21E0 A 
F04B B 
24B4 I 



410 
411 



0362 
0363 



24B5 I 
2CB6 I 



412 0364 

413 0365 

414 0366 

415 0367 

416 0368 

417 0369 

418 036A 

419 036B 

420 036C 

421 036D 

422 036D 

423 036E 

424 036F 

425 036F 

426 0370 

427 0371 

428 0372 

429 0373 

430 0374 



2108 
2C9C 
21D8 
F04C 
24B7 
7C5E 
4C2E 
2CB8 
21D2 

2CB9 
2107 



$DOT: 



LI R0 f 24; 

JSR ERROR 

JMP DIREND 

JSR ERROR 

LI R0,0 

LI Rl,l 

JSR OUTWRD 

JMP ENDST 

JSR @$XARG 

JSR OI6REP 

JMP NEXTST 

JSR @$XARG 

JSR REPERR 

LD R0,HSPR 

ST R0,TYPMOD 

LD R0,ERRBAS 

ST R0,ERRPT 

LI R0,0 

ST R0,MOFLAG 

LI Rl,-15 

PULL R0 

AISZ Rl-,1 

JMP .-2 

LD R0,$CB 

ST R0 f RELTB+3 



JSR READ 

JSR GNVC 

JMP DIREND 

SKNE R0,DOT 

JMP $DOT 

LABEL, INSTR OR FORM 

JSR BLDNAM 

JMP XERROR 

SKNE R0,COLAN 

JMP LABEL 

CVKTB T>a E>/"\TIJVr 

L_>L\rvij i\u f uyunu 

JMP ASSIGN 

JSR IFBYP 

JMP $SERCH 

JSR GNVC 

JMP XERROR 

SKNE R0 f EQUAL 

JMP DOTASN 

DSZ INPTR 

LI R0,'.'/256 

JSR BLDDIR 

JMP XERROR 



SYNTAX ERROR 



; SYNTAX ERROR 



$SERCH: 



8300 A 
8701 A 
A072 B 
A473 B 
8069 B 
3681 A 



;ABS 



; OUTPUT INPUT BUFFER AND REPORT ERRORS 



; REPORT ERRORS 



; REPLACE B IN ENTRY WHICH MAY HAVE I 



;GET NEXT VALID CHAR 
; FINISH STATEMENT (END OF STAT) 

; DIRECTIVE OR .= 

; BUILD NAME 
;NO NAME 

; LABEL 

; ASSIGN DIRECTIVE 
;IF BYPASS? 

; INSTR OR FORM SEARCH 



INPUT CHAR PTR 



DIRECTIVE OR INSTR OR FORM SEARCH 



JSR 

JMP 

MATCH 

LD 

LD 

ST 

ST 

LD 

RCPY 



DISER 
$5A 
FOUND 

R0,0(R3) 

R1,1(R3) 

R0 , IVAL 

Rl r ICLASS 

R0,XINOK 

R1,R2 



; EXTENDED INST OK FLAG (0=NO] 



7.' 



IMPASM 



431 0375 2200 A JMP 0(R2) 

432 0376 $5A: 

433 0376 .IF SIZE4 

434 0376 4C2A A LI R0,42 

435 0377 21CA A JMP ERRST 



436 


0378 






.PAGE 


'END DIRECTR 


437 


0378 






. LOCAL 




438 


0378 


2031 


A 


?X2031: .WORD 


02031 


439 


0379 










440 


0379 






; END DIRECTIVE 


441 


0379 










442 


0379 




] 


2ND: 




443 


0379 


2CBA 


I 


JSR 


OOREC 


444 


037A 


2CBB 


I 


JSR 


EXP 


445 


037B 


3081 


A 


NOP 




446 


037C 


3881 


A 


RCPY 


R2,R0 


447 


037D 


1502 


A 


BOC 


NZ, .+3 


448 


037E 


4C2A 


A 


LI 


R0,42; 


449 


037F 


2CAD 


I 


JSR 


ERROR 


450 


0380 


8C6B 


B 


LD 


R3,SECT 


451 


0381 


805C 


B 


LD 


R0,LOCCTR 


452 


0382 


A355 


B 


ST 


R0,ACTR-1(R3) 


453 


0383 


8758 


B 


LD 


R1,AMAX-1(R3) 


454 


0384 


2CBC 


I 


JSR 


MAXR1 


455 


0385 


A758 


B 


ST 


R1,AMAX-1(R3) 


456 


0386 


806D 


B 


LD 


R0,IFPTR 


457 


0387 


F06E 


B 


SKNE 


R0,IFPTRA 


458 


0388 


2102 


A 


JMP 


.+3 


459 


0389 


4C12 


A 


LI 


R0,18; 


460 


038A 


2CAD 


I 


JSR 


ERROR 


461 


038B 


807A 


B 


LD 


R0,EXPVAL 


462 


038C 


2CBD 


I 


JSR 


OVAL 


463 


038D 


2CAF 


I 


JSR 


OIBREP 


464 


038E 


805D 


B 


LD 


R0,PASS 


465 


038F 


C1E8 


A 


ADD 


R0,$X2031 


466 


0390 


B0BE 


I 


ST 


R0,MSGP 


467 


0391 


805D 


B 


LD 


R0,PASS 


468 


0392 


1102 


A 


BOC 


Z,ENDP1 


469 


0393 


144F 


A 


BOC 


B1EQ1,ENDP3 


470 


0394 


131C 


A 


BOC 


ODD,ENDP2 


471 


0395 










472 


0395 






END PASS 1 


473 


0395 










474 


0395 




E 


INDPl: 




475 


0395 


4C00 


A 


LI 


R0,0 


476 


0396 


A14A 


A 


ST 


R0,TLAST 


477 


0397 


A14A 


A 


ST 


R0,OLAST 


478 


0398 


4D01 


A 


LI 


Rl,l 


479 


0399 


8091 


B 


LD 


R0,NOLIST 


480 


039A 


C08F 


B 


ADD 


R0,ERRLST 


481 


039B 


D026 


B 


SUB 


R0,K1 


482 


039C 


1501 


A 


BOC 


NZ,.+2 


483 


039D 


4D02 


A 


LI 


Rl,2 


484 


039E 


A45D 


B 


ST 


R1,PASS 


485 


039F 


8020 


B 


LD 


R0,DSKTMP 


486 


03A0 


1B02 


A 


BOC 


LEZ,$51 


487 


03A1 


2C1C 


B 


JSR 


@CLOSET 


488 


03A2 


A13E 


A 


ST 


R0,TLAST 


489 


03A3 


8096 


B $ 


51: LD 


R0,HSPR 


490 


03A4 


1502 


A 


BOC 


NZ, .+3 


491 


03A5 


8D5A 


A 


LD 


R3,$TTL 


492 


03A6 


2C1B 


B 


JSR 


@MESS 



;OUTPUT OBJECT RECORD IF ANY 



UNDEFINED ERROR 



;SET Rl = MAX OF Rl AND R0 



NESTING USAGE ERROR 



;OUTPUT INPUT BUFFER, REPORT ERRS, 



IMPASM 



493 


03A7 


2960 


A 


JSR 


OEPM 


494 


03A8 


805D 


B 


LD 


R0,PASS 


495 


03A9 


1410 


A 


BOC 


B1EQ1,BEGP34 


496 


03AA 










497 


03AA 






; BEGIN 


PASS 2 


498 


03AA 










499 


03AA 


2CBF 


I 


JSR 


RESETP 


500 


03AB 


2CC0 


I 


JSR 


PINIT 


501 


03AC 


808F 


B 


LD 


R0,ERRLST 


502 


03 AD 


A08E 


B 


ST 


R0 f LISTMD 


503 


03AE 


4F06 


A 


LI 


R3,6 


504 


03AF 


2CA5 


I 


JSR 


MANYNL 


505 


03B0 


219B 


A 


JMP 


NEXTST 


506 


03B1 










507 


03B1 






; END PASS 2 


508 


03B1 










509 


03B1 




ENDP2: 




510 


03B1 


2962 


A 


JSR 


OPTRS 


511 


03B2 


8093 


B 


LD 


R0,NOMAP 


512 


03B3 


1102 


A 


BOC 


Z, .+3 


513 


03B4 


2CC1 


I 


JSR 


OMAP 


514 


03B5 


2101 


A 


JMP 


.+2 


515 


03B6 


2CBF 


I 


JSR 


RESETP 


516 


03B7 


2919 


A 


JSR 


$EL 


517 


03B8 


294F 


A 


JSR 


OEPM 


518 


03B9 


785D 


B 


ISZ 


PASS 


519 


03BA 




BEGP34: 




520 


03BA 


8090 


B 


LD 


R0,OBJMOD 


521 


03BB 


113E 


A 


BOC 


Z,$FINIS 


522 


03BC 


801E 


B 


LD 


R0,DSKOBJ 


523 


03BD 


1206 


A 


BOC 


P,$50 


524 


03BE 


9CC2 


I 


LD 


R3 f MSGTO 


525 


03BF 


AC97 


B 


ST 


R3,TYPMOD 


526 


03C0 


2C99 


I 


JSR 


ONLMSG 


527 


03C1 


2CA8 


I 


JSR 


NEWLIN 


528 


03C2 


0000 


A 


HALT 




529 


03C3 


2CC3 


I 


JSR 


LEAD 


530 


03C4 










531 


03C4 




$50: 




532 


03C4 


805B 


B 


LD 


R0,TMAX 


533 


03C5 


B0C4 


I 


ST 


R0 f TTLBUF+3 


534 


03C6 


805A 


B 


LD 


R0,BMAX 


535 


03C7 


B0C5 


I 


ST 


R0,TTLBUF+2 


536 


03C8 


8D37 


A 


LD 


R3,$TTL 


537 


03C9 


2CC6 


I 


JSR 


CKPNCH 


538 


03CA 


2CC7 


I 


JSR 


OGLOB 


539 


03CB 


2CC0 


I 


JSR 


PINIT 


540 


03CC 


805D 


B 


LD 


R0,PASS 


541 


03CD 


848F 


B 


LD 


Rl,ERRLST 


542 


03CE 


F027 


B 


SKNE 


R0,K3 


543 


03CF 


A48E 


B 


ST 


Rl f LlSTMD 


544 


03D0 


24C8 


I 


JMP 


NEXTST 


545 


03D1 










546 


03D1 






OUTPUT 


ERROR LINES 


547 


03D1 










548 


03D1 


4C01 


A $ 


EL: LI 


R0,1 


549 


03D2 


A08E 


B 


ST 


R0,LISTMD 


550 


3D3 


2CA8 


I 


JSR 


NEWLIN 


551 


03D4 


8888 


B 


LD 


R2,EC 


552 


03D5 


4D20 


A 


LI 


Rl,020 


553 


03D6 


8109 


A 


LD 


R0 , $NO 


554 


03D7 


F831 


B 


SKNE 


R2,X6666 


555 


03D8 


2CC9 


I 


JSR 


02CH 



; BEGIN PASS 3 OR 4 



;RESET P BITS IN SYMBOL TABLE 



; OUTPUT ALL POINTERS 



;WAIT FOR PT PUNCH ON 



; CHECKSUM AND PUNCH 



IMPASM 



556 03D9 F831 B 




SKNE 


R2,X6666 


557 03DA 2101 A 




JMP 


.+2 


558 03DB 2CCA I 




JSR 


OSPDEC 


559 03DC 9CCB I 




LD 


R3,MSGNOE 


560 03DD 2CCC I 




JSR 


OMSG 


561 03DE 0200 A 




RTS 




562 03DF 


r 






563 03DF 03E0 A 


$TMP: 


. = .+1 




564 03E0 4E4F A 


$N0: 


.WORD 


'NO' 


565 03E1 03E2 A 


TLAST: 


. = .+1 




566 03E2 03E3 A 


OLAST: 


. = .+1 




567 03E3 








568 03E3 








569 03E3 








570 03E3 


ENDP3: 






571 03E3 2930 A 




JSR 


OPTRS 


572 03E4 


$OE: 






573 03E4 4C01 A 




LI 


R0,1 


574 03E5 A08E B 




ST 


R0,LISTMD 


575 03E6 807A B 




LD 


R0,EXPVAL 


576 03E7 A11D A 




ST 


R0,ENDBUF+3 


577 03E8 807C B 




LD 


R0,EXPREL 


578 03E9 1101 A 




BOC 


Z,.+2 


579 03EA D026 B 




SUB 


R0,K1 


580 03EB A118 A 




ST 


R0,ENDBUF+2 


581 03EC 8D14 A 




LD 


R3, $EB 


582 03ED 2CC6 I 




JSR 


CKPNCH 


583 03EE 801E B 




LD 


R0,DSKOBJ 


584 03EF 1B03 A 




BOC 


LEZ, .+4 


585 03F0 2C1D B 




JSR 


@CLOSEO 


586 03F1 A1F0 A 




ST 


R0, OLAST 


587 03F2 2102 A 




JMP 


.+3 


588 03F3 2CC3 I 




JSR 


LEAD 


589 03F4 0000 A 




HALT 




590 03F5 2912 A 




JSR 


OEPM 


591 03F6 8D6E A 




LD 


R3,MSGOCK 


592 03F7 2CCC I 




JSR 


OMSG 


593 03F8 810E A 




LD 


R0, OBJCK 


594 03F9 2CCD I 




JSR 


OHEX 


595 03FA 


$FINIS: 






596 03FA 24CE I 


$FIN1: 


JMP 


NEWASM 


597 03FB 


/ 






598 03FB 


f 






599 03FB 2CAF I 


ENDP4: 


JSR 


OIBREP 


600 03FC 2917 A 




JSR 


OPTRS 


601 03FD 2CC1 I 




JSR 


OMAP 


602 03FE 21E5 A 




JMP 


$OE 


603 03FF 


r 






604 03FF 2031 A 


X2031: 


.WORD 


02031 


605 0400 01DA A 


$TTL: 


.WORD 


TTLBUF 


606 0401 0402 A 


$E3: 


.WORD 


ENDBUF 


607 0402 C004 A 


ENDBUF 


: .WORD 


0C004 


608 0403 0406 A 




. = .+3 




609 0406 0407 A 


SOUCK: 


. = .+1 




610 0407 0408 A 


OBJCK: 


.=.+1 




611 0408 








612 0408 




OUTPUT 


END PASS X N 


613 0408 








614 0408 


OEPM: 






615 0408 8D3C A 




LD 


R3,MSGEP 


616 0409 AC97 B 




ST 


R3,TYPMOD 


617 040A 2C99 I 




JSR 


ONLMSG 


618 040B 8096 B 




LD 


R0,HSPR 



; 'ERROR LINES ' 



; EXPRESSION VALUE 

; EXPRESSION RELOCATION MODE 



; OUTPUT LEADER TO PT 

; WAIT FOR PT PUNCH OFF 

; 'OBJECT CHECKSUM =' 



;OBJECT CHECKSUM 



;OUTPUT INPUT BUFFER , REPORT ERRS 
;OUTPUT POINTERS 

;OUTPUT END RECORD 



; 'END PASS 1 



10 



IMPASM 



619 040C 


A097 B 


ST 


R0,TYPMOD 


620 040D 


813C A 


LD 


R0,MSGP 


621 040E 


F1F0 A 


SKNE 


R0,X2031 


622 040F 


0200 A 


RTS 




623 0410 


8D3B A 


LD 


R3,MSGS0V 


624 0411 


2C99 I 


JSR 


ONLMSG 


625 0412 


81F3 A 


LD 


R0,SOUCK 


626 0413 


24CD I 


JMP 


OHEX 


627 0414 








628 0414 








629 0414 




OUTPUT 


POINTERS 


630 0414 








631 0414 


OPTRS : 




632 0414 


2CA8 I 


JSR 


NEWLIN 


633 0415 


2CCF I 


JSR 


06B 


634 0416 


4F02 A 


LI 


R3,2 


635 0417 


AC6B B 


ST 


R3 f SECT 


636 0418 


8057 B 


LD 


R0,BCTR 


637 0419 


A05C B 


ST 


R0,LOCCTR 


638 041A 


9CD0 I 


LD 


R3 , PTABF 


639 041B 


ADC 3 A 


ST 


R3 f $TMP 


640 041C 


2CAC I 


JSR 


INITOR 


641 041D 


$NP: 




642 0410 


8DC1 A 


LD 


R3,$TMP 


643 041E 


8300 A 


LD 


R0,0(R3) 


644 041F 


1501 A 


BOC 


NZ,.+2 


645 0420 


24BA I 


JMP 


OOREC 


646 0421 


3181 A 


RCPY 


R0 f Rl 


647 0422 


8301 A 


LD 


R0,1(R3) 


648 0423 


2CAE I 


JSR 


OUTWRD 


649 0424 


79BA A 


ISZ 


$TMP 


650 0425 


79B9 A 


ISZ 


$TMP 


651 0426 


21F6 A 


JMP 


$NP 


652 0427 


i 


END OF 


POINTER OUTPUT 


653 0427 


I 






654 0427 


0428 A MSGBEG: .WORD 


.+1 


655 0428 


4E53 A 


.ASCII 


'NSC IMP-16 AS 


0429 


4320 A 






042A 


494D A 






042B 


502D A 






n a <*>ii 


-» 1 1 <r » 






V*i£.\* 


J1JO ft 






042D 


2041 A 






042E 


5353 A 






042F 


454D A 






0430 


424C A 






0431 


4552 A 






656 0432 


0D0A A 


= WORD 


0D0A 


657 0433 


4D4 5 A 


.ASCII 


'MEMORY =' 


0434 


4D4F A 






0435 


5259 A 






0436 


203D A 






658 0437 


0000 A 


.WORD 





659 0438 


0439 A MSGNXT: .WORD 


.+1 


660 0439 


4E45 A 


.ASCII 


'NEXT ASSEMBLY 


043A 


5854 A 






043B 


2041 A 






043C 


5353 A 






043D 


454D A 






043E 


424C A 






043F 


5920 A 






661 0440 


0D0A A 


.WORD 


0D0A 


662 0441 


2A2E A 


.ASCII 


'*.ASM ' 


0442 


4153 A 







;LOOP FOR NEXT PTR 
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IMPASM 



0443 4D20 A 








663 0444 0000 A 




.WORD 





664 0445 0446 A I 


*4SGEP: 


. WORD 


.+1 


665 0446 454E A 




.ASCII 


'END PASS' 


0447 4420 A 








0448 5041 A 








0449 5353 A 








666 044A 0000 A 


viSGP: 


.WORD 





667 044B 0000 A 




.WORD 





668 044C 044D A 


viSGSOV: 


.WORD 


.+1 


669 044D 534F A 




.ASCII 


'SOURCE CK.=' 


044E 5552 A 








044F 4345 A 








0450 2043 A 








0451 4B2E A 








0452 3D20 A 








670 0453 0000 A 




.WORD 





671 0454 0455 A 


MSGTO: 


.WORD 


.+1 


672 0455 5455 A 




.ASCII 


'TURN PT PUNCt 


0456 524E A 








0457 2050 A 








0458 5420 A 








0459 5055 A 








045A 4E43 A 








045B 4820 A 








045C 4F4E A 








045D 2041 A 








045E 4E44 A 








045F 2050 A 








0460 5553 A 








0461 4820 A 








0462 5255 A 








0463 4E20 A 








673 0464 0000 A 




.WORD 





674 0465 0466 A 


MSGOCK: 


.WORD 


.+1 


675 0466 204F A 




.ASCII 


' OBJ.CK.=' 


0467 424A A 








0468 2E43 A 








0469 4B2E A 








046A 3D20 A 








676 046B 0000 A 




.WORD 





677 046C 046D A 


MSGNOE: 


.WORD 


.+1 


678 046D 2045 A 




.ASCII 


' ERROR LINES 


046E 5252 A 








046F 4F52 A 








0470 204C A 








0471 494E A 








0472 4553 A 








679 0473 0000 A 




. WORD 





680 0474 




.PAGE 


'IF,ELSE,ENDI 


681 0474 




. LOCAL 




682 0474 








683 0474 




IF, ELSE 


,ENDIF DIRECTI 


684 0474 








685 0474 


IF: 






686 0474 8070 B 




LD 


R0,IFMODE 


687 0475 C06F B 




ADD 


R0,IFSTAT 


688 0476 8C6D B 




LD 


R3,IFPTR 


689 0477 FD2D A 




SKNE 


R3, IFTBL 


690 0478 210F A 




JMP 


$OV 


691 0479 786D B 




ISZ 


IFPTR 


692 047A A301 A 




ST 


R0,1(R3) 



;IF TABLE OVERFLOW 
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693 


047B 


4C02 


A 




LI 


R0 f 2 


694 


047C 


A06F 


B 




ST 


R0, IFSTAT 


695 


047D 


2CD1 


I 




JSR 


EXPABS 


696 


047E 


210C 


A 




JMP 


$NOEX 


697 


047F 


E023 


B 




SKG 


R0,ZERO 


698 


0480 


4C00 


A 




LI 


R0,0 


699 


0481 


1101 


A 




BOC 


Z,.+2 


700 


0482 


4C01 


A 


$1: 


LI 


R0,1 


701 


0483 


6070 


B 




AND 


R0,IFMODE 


702 


0484 


A070 


B 




ST 


R0,IFMODE 


703 


0485 


807A 


B 




LD 


R0,EXPVAL 


704 


0486 


2CD2 


I 




JSR 


OHEXIF 


705 


0487 


24D3 


I 




JMP 


DIREND 


706 


0488 






; 






707 


0488 






i 


IF TABLE OVERFLOW 


708 


0488 


4C24 


A 


$OV: 


LI 


R0,36; 


709 


0489 


2CAD 


I 




JSR 


ERROR 


710 


048A 


24D3 


I 




JMP 


DIREND 


711 


048B 






i 


NO EXP ERROR 


712 


048B 


4C2A 


A 


$NOEX: 


LI 


R0,42; 


713 


048C 


2CAD 


1 




JSR 


ERROR 


714 


048D 


21F4 


A 




JMP 


$1 


715 


048E 












716 


048E 








ELSE DIRECTIVE 


717 


048E 












718 


048E 






ELSE: 






719 


048E 


806F 


B 




LD 


R0, IFSTAT 


720 


048F 


F040 


B 




SKNE 


R0,K2 


721 


0490 


2103 


A 




JMP 


$ELOK 


722 


0491 






t 


NESTING ERROR 


723 


0491 


4C12 


A 


$NERR: 


LI 


R0,18; 


724 


0492 


2CAD 


I 




JSR 


ERROR 


725 


0493 


24D3 


I 




JMP 


DIREND 


726 


0494 






i 


ELSE OK 


727 


0494 






$ELOK: 






728 


0494 


4C04 


A 




LI 


R0,4 


729 


0495 


A06F 


B 




ST 


R0, IFSTAT 


730 


0496 


8070 


B 




LD 


R0,IFMODE 


731 


0497 


5000 


A 




CAI 


R0,0 


732 


0498 


6026 


B 




AND 


R0,K1 


733 


0499 


A070 


B 




ST 


R0,IFMODE 


734 


04 9 A 


24D3 


I 




JMP 


DIREND 


735 


049B 












736 


049B 








ENDIF 


DIRECTIVE 


737 


049B 












738 


049B 






ENDIF: 






739 


049B 


806F 


B 




LD 


R0, IFSTAT 


740 


049C 


11F4 


A 




BOC 


Z,$NERR 


741 


049D 


906D 


B 




LD 


R0,@IFPTR 


742 


049E 


6026 


B 




AND 


R0,K1 


743 


049F 


A070 


B 




ST 


R0,IFMODE 


744 


04A0 


906D 


B 




LD 


R0,@IFPTR 


745 


04A1 


6028 


B 




AND 


R0,K6 


746 


04A2 


A06F 


3 




ST 


R0, IFSTAT 


747 


04A3 


7C6D 


B 




DSZ 


IFPTR 


748 


04A4 


24D3 


I 




JMP 


DIREND 


749 


04A5 






/ 






750 


04A5 


019P 


A 


IFTBL: 


. WORD 


IFTA8+9 


7 51. 


04A6 








.PAGE 


'ASECT r BS 


752 


04A6 




* 








753 


04A6 








ASECT 


BAECT,TSECT 


754 


04A6 













; ERROR - NO EXP 



; EXPRESSION VALUE 



TABLE OVERFLOW ERRf R 



UNDEFINED ERROR 



;IF STATUS 
?ELSE OK 
NESTING - USAGE ERROR 



; COMPLEMENT IF MODE 



NESTING ERROR 



STATUS 



IF TABLE ,VMIf 



'ASSCT,BSECT,TSECT AND tiX'L'i) DLKhCiUtfHJS 
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755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 

800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 



04A6 
04A6 
04A7 
04A7 
04A8 
04A9 
04AA 
04AB 
04AC 
04AD 
04AE 
04AF 
04B0 
04B1 
04B2 
04B3 
04B4 
04B5 
04B5 
0436 
04B7 
04B7 
04B8 
04B9 
04B9 
04B9 
04B9 
04BA 
04BB 
04BC 
04BD 
04BD 
04BD 
04BD 
04BE 
04BF 
04C0 
04C1 
04C2 
04C3 
04C4 
04C4 
04C5 
04C6 
04C7 



4F01 A 

2CB6 I 
886B B 
805C B 
A255 B 
8658 B 
2910 A 
A658 B 
8755 B 
AC6B B 
A4 5C B 
2CBA I 
805C B 
I 
I 



ASECT! 
$1: 



2CBD 
24D3 

4F02 
21F0 

4F03 
21EE 



2CB6 I 
4C01 A 
A069 B 
24D3 I 



A109 
3482 
1204 
8106 
1201 
8504 
0200 



E502 A 

8501 A 

0200 A 

04C8 A 



04C8 
04C8 
04C8 
04C8 
04C8 
04C8 
04C8 2CB6 



04C9 2CD4 

04CA 210E 

04CB 8300 

04CC 6029 B 

04CD 1508 A 

04CE 

04CE 83FF A 

04CF 682C B 

04D0 A3FF A 

04D1 

04D1 2C9B I 



BSECT: 



TSECT: 



EXTD: 



MAXRl 



$SAME 
$TMP: 



GLOBL: 



$1: 



. LOCAL 
LI 

JSR 

LD 

LD 

ST 

LD 

JSR 

ST 

LD 

ST 

ST 

JSP 

LD 

JSR 

JMP 

LI 

JMP 

LI 
JMP 



R3,l 

IFBYP 

R2,SECT 

R0,LOCCTF 

R0 r ACTR-l(R2) 

Rl,AMAX-l(R2) 

MAXR1 

R1,AMAX-1(R2) 

Rl,ACTR-l(R3) 

R3,SECT 

Rl,LOCCTR 

OOREC 

R0,LOCCTR 

OVAL 

DIREND 

R3,2 
$1 

R3,3 
$1 



;SET Rl = MAX OF Rl AND R0 



^OUTPUT OBJECT RECORD IF ANY 



JSR 


IFBYP 


LI 


R0 r l 


ST 


R0,XINOK 


JMP 


DIREND 



PUT MAX OF R0 AND Rl IN Rl 

ST R0,$TMP 

RXOR R1,R0 

BOC P,$SAME 

LD R0,$TMP 

BOC P,.+2 

LD R1,$TMP 

RTS 

SAME SIGN 

SKG R1,$TMP 

LD Rl,$TMP 

RTS 

. = .+1 



.PAGE 
. LOCAL 



GLOBL r LOCAL, ASCII AND WORD DIRECTIVES 

GLOBL, LOCAL, ASCI I AND WORD DIRECTIVES 

;IF BYPASS 
;NO SYMBOL 



JSR 


IFBYP 


JSR 


GSYM 


JMP 


$4 


LD 


R0,0(R3) 


AND 


R0,KP 


BOC 


NZ,$3 


SET 


GLOBL BIT 


LD 


R0,-1(R3) 


OR 


R0,K4 


ST 


R0,-1(R3) 



$1A: 



; ERROR-LOCAL CAN NOT BE MADE GLOBL 



;SET GLOBL BIT 



JSR 



GCOMMA 
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818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 

852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 



04D2 
04D3 
04D4 
04D5 
04D6 
04D6 
04D7 
04D8 
04D9 
04DA 
04DB 
04DB 
04DB 
04DB 
04DB 
04DC 
04DD 
04DE 
04DF 
04E0 
04E1 
04E2 
04E3 
04E4 
04E5 
04E5 
04E5 
04E5 
04E5 
04E6 
04E7 
04E8 
04E9 
04EA 

04EB 
04EC 
04 ED 
04EE 
04EE 
84EE 
04EE 
04EE 
04EF 
04F0 
04F1 
04F2 
04F3 
04F4 
04F5 
04F6 
04F6 
04F7 
04F8 
04F9 
04F9 
04FA 
04FB 



24D3 I 
2CD4 I 
24D3 I 
21F5 A 

4C12 A 
2CAD I 
21F8 A 
4C00 A 
21FC A 



$3: 
$2: 

$4: 



LOCAL: 
2CB6 I 
4C01 A 
C06C B 
E03B B 
2103 A 
4C24 A 
2CAD I 
24D3 I 
A06C B $5: 
24D3 I 



2CB6 
2CBB 
24D5 
2CAE 
2C9B 
24D6 



2CB6 
2CD7 
2108 
4D01 
2CAE 
2CD8 
2101 
21FB 



875 04FC 

876 04FC 

877 04FC 

878 04FC 

879 04FC 



2CBB I 
24D6 I 
21FA A 



2C9B I 
24D6 I 
21F5 A 

4C18 A 
2CAD I 
24D3 I 



WORD: 



$6: 



ASCII: 



$12: 



$11: 



$10: 



JMP 


DIREND 


JSR 


GSYM 


JMP 


DIREND 


JMP 


$1 


LI 


R0,18; 


JSR 


ERROR 


JMP 


$1A 


LI 


R0,0; 


JMP 


$2 



LOCAL DIRECTIVE 



JSR 

LI 

ADD 

SKG 

JMP 

LI 

JSR 

JMP 

ST 

JMP 



IFBYP 

R0,1 

R0,LOCREG 

RB,HEX3F 

$5 

R0, 36; 

ERROR 

DIREND 

R0,LOCREG 

DIREND 



WORD DIRECTIVE 



JSR 


IFBYP 


JSR 


EXP 


JMP 


ERRST 


JSR 


OUTWRD 


JSR 


GCOMMA 


JMP 


ENDST 


JSR 


EXP 


JMP 


ENDST 


JMP 


$6 



ASCII DIRECTIVE 



JSR 


IFBYP 


JSR 


GNSTRG 


JMP 


$10 


LI 


Rl,l 


JSR 


OUTWRD 


JSR 


GCSTRG 


JMP 


$11 


JMP 


$12 


IS THERE ANOTH 


JSR 


GCOMMA 


JMP 


ENDST 


JMP 


ASCII 


ERROR 




LI 


R0,24; 


JSR 


ERROR 


JMP 


DIREND 



;LIST EXHAUSTED 
;LOOP 

USAGE ERROR 



;CONTRADICTON - GLOBL 



MISSING ARG. ERROR 



; ERROR - MISS 



;IF BYPASS 



TABLE OVERFLOW ERROR ; ERROR - 63 L 



;IF EYPASS 
? OUTPUT WORD 

;GET EXPRESSION 



;GET NEW STRING 

; ERROR - NONE 

;RELOCATION=ABS 

; OUTPUT WORD 

;GET CONTINUATION OF STRING 

; STRING END 



;GET COMMA 



COMMA 



SYNTAX ERROR 



.PAGE 'PAGE SPACE AND LIST DIRECTIVES' 
PAGE, SPACE AND LIST DIRECTIVES 
. LOCAL 
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IMPASM 



880 04FC 2926 A PAGE: 


JSR 


$BYP1 


881 04FD 2CB6 I 


JSR 


IFBYP 


882 04FE 4FE2 A 


LI 


R3,-30 


883 04FF AD37 A 


ST 


R3,$T1 


884 0500 2CD7 I 


JSR 


GNSTRG 


885 0501 210C A 


JMP 


$1 


886 0502 2102 A 


JMP 


$3 


887 0503 2CD8 I $2: 


JSR 


GCSTRG 


888 0504 2105 A 


JMP 


$4 


889 0505 $3: 






890 0505 8931 A 


LD 


R2,$T1 


891 0506 C931 A 


ADD 


R2,$PGBF 


892 0507 A200 A 


ST 


R0,0(R2) 


893 0508 792E A 


ISZ 


$T1 


894 0509 21F9 A 


JMP 


$2 


895 050A 892C A $4: 


LD 


R2,$T1 


896 050B C92C A 


ADD 


R2,$PGBF 


897 050C 4C00 A 


LI 


R0,0 


898 050D A200 A 


ST 


R0,0(R2) 


899 050E ; 


EJECT 


PAGE AND PRINT 


900 050E 4F07 A $1: 


LI 


R3,7 


901 050F CC71 B 


ADD 


R3,PGRL 


902 0510 2CD9 I 


JSR 


OPGSTR 


903 0511 2CCF I 


JSR 


06B 


904 0512 24D3 I 


JMP 


DIREND 


905 0513 






906 0513 290F A SPACE: 


JSR 


$BYP1 


907 0514 2CB6 I 


JSR 


IFBYP 


908 0515 2CDA I 


JSR 


EXPP 


909 0516 3081 A 


NOP 




910 0517 E071 B 


SKG 


R0,PGFL 


911 0518 2101 A 


JMP 


.+2 


912 0519 21F4 A 


JMP 


$1 


913 051A 3381 A 


RCPY 


R0,P3 


914 051B 5001 A 


CAI 


R0,1 


915 051C C071 B 


ADD 


R0,PGRL 


916 051D A071 B 


ST 


R0,PGRL 


917 051E 4300 A 


PUSH 


R3 


918 051F 2CAF I 


JSP 


OIBREP 


919 0520 4700 A 


PULL 


R3 


920 0521 2CA5 I 


JSR 


MANYNL 


921 0522 24C8 I 


JMP 


NEXTST 


922 0523 ; 






923 0523 805D B $BYPl: 


LD 


R0,PASS 


924 0524 1301 A 


BOC 


ODD, .+2 


925 0525 24D3 I 


JMP 


DIREND 


926 0526 0200 A 


RTS 




927 0527 ; 






928 0527 LIST: 






929 0527 2CB6 I 


JSR 


IFBYP 


930 0528 2CBB I 


JSR 


EXP 


931 0529 4C01 A 


LI 


R0,1 


932 052A E023 B 


SKG 


R0,ZERO 


933 052B 4C00 A 


LI 


R0,0 


934 052C 1101 A 


BOC 


Z, .+2 


935 052D 4C01 A 


LI 


R0,1 


936 052E 4000 A 


PUSH 


R0 


937 052F 2CAF I 


JSR 


OIBREP 


938 0530 4400 A 


PULL 


R0 


939 0531 848F B 


LD 


Rl,ERRLST 


940 0532 F426 B 


SKNE 


R1,K1 


941 0533 A08E B 


ST 


R0,LISTMD 


942 0534 1501 A 


BOC 


NZ, .+2 



;BYPASS IF PASS 1 

;MAX. 60 CHAR. STRING 

;GET NEW STRING 
;NO STRING 

;GET NXT 2 CARS OF STRING 
;NONE LEFT 



;SET END MSG INDICATOR 



;PAGE REMAINING LINES 
; OUTPUT PAGE STRING 



;BYPASS IF PASS 1 
;GET EXP POSITIVE 



;l=NORMAL LISTING 0=EPROR LISTING 
;SET LISTING MODE 
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943 


0535 


2CA8 


I 




JSR 


NEWLIN 


944 


0536 


24C8 


I 




JMP 


NEXTST 


945 


0537 






/ 






946 


0537 


0000 


A 


$T1: 


.WORD 





947 


0538 






i 






948 


0538 


018E 


A 


$PGBF: 


.WORD 


PGSTRG+30 


949 


0539 






» 






950 


0539 






ASMDIR: 






951 


0539 


2CB6 


I 




JSR 


IFBYP 


952 


053A 


2CA7 


I 




JSR 


PRCTRL 


953 


053B 


24DB 


I 




JMP 


XERROR 


954 


053C 


24D3 


I 




JMP 


DIREND 


955 


053D 








.PAGE 


'TITLE DIRE 


956 


053D 








. LOCAL 




957 


053D 






# 






958 


053D 






t 


TITLE 


DIRECTIVE 


959 


053D 






r 






960 


053D 






TITLE: 






961 


053D 


2CB6 


I 




JSR 


IFBYP 


962 


053E 


2C9C 


I 




JSR 


GNVC 


963 


053F 


24DB 


I 




JMP 


XERROR 


964 


0540 


2CB3 


I 


. 


JSR 


BLDNAM 


965 


0541 


24DB 


I 




JMP 


XERROR 


966 


0542 


805D 


B 




LD 


R0,PASS 


967 


0543 


1523 


A 




BOC 


NZ,$5 


968 


0544 


4C10 


A 




LI 


R0,16 


969 


0545 


B0A1 


I 




ST 


R0,TTLBUF 


970 


0546 


807D 


B 




LD 


R0,NAM0 


971 


0547 


5C01 


A 




SHL 


R0,1 


972 


0548 


5CFF 


A 




SHR 


R0,1 


973 


0549 


B0A2 


I 




ST 


R0,TTLBUF+4 


974 


054A 


807E 


B 




LD 


R0 r NAMl 


975 


054B 


B0A3 


I 




ST 


R0,TTLBUF+5 


976 


054C 


807F 


B 




LD 


R0,NAM2 


977 


054D 


B0A4 


I 




ST 


R0,TTLBUF+6 


978 


054E 


8120 


A 




LD 


R0,$PTR1 


979 


054F 


A11E 


A 




ST 


R0,$PTR 


980 


0550 


2C9B 


I 




JSR 


GCOMMA 


981 


0551 


210E 


A 




JMP 


$BLNK 


982 


0552 


2CD7 


I 




JSR 


GNSTRG 


983 


0553 


24DB 


I 




JMP 


XERROR 


984 


0554 


B119 


A 




ST 


R0.0SPTR 


985 


0555 


7918 


A 


$1: 


ISZ 


$PTR 


986 


0556 


8117 


A 




LD 


R0,$PTR 


987 


0557 


F118 


A 




SKNE 


R0,$PTRL 


988 


0558 


2104 


A 




JMP 


$2 


989 


0559 


2CD8 


I 




JSR 


GCSTRG 


990 


055A 


2105 


A 




JMP 


$BLNK 


991 


055B 


B112 


A 




ST 


R0,@$PTR 


992 


055C 


21F8 


A 




JMP 


$1 


993 


055D 






# 


BUFFER 


FULL 


994 


055D 


2CD8 


I 


$2: 


JSR 


GCSTRG 


995 


055E 


24D3 


I 


$4: 


JMP 


DIREND 


996 


055F 


21FD 


A 




JMP 


$2 


997 


0560 






i 






998 


0560 






• 


BLANK i 


OUT REST OF T: 


999 


0560 






$BLNK: 






1000 


0560 


4C00 


A 




LI 


R0,0 


1001 


0561 


8D0C 


A 




LD 


R3, $PTR 


1002 


0562 


A300 


A 


$3: 


ST 


R0,0(R3) 


1003 


0563 


4B01 


A 




AISZ 


R3,l 


1004 


0564 


FD0B 


A 




SKNE 


R3, $PTRL 


1005 


0565 


24D3 


I 




JMP 


DIREND 



;1ST 2 CHARACTERS OF NAME 

;3RD AND 4TH CHARACTERS OF NAME 
;5TH AND 6TH CHARACTERS OF NAME 

:NO STRING. BLANK OUT BUFFER 



;TITLE BUFFER FULL 

;END OF STRING 

;LOOP FOR REST OF STRING 
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1006 0566 21FB A 



J MP 



$3 



LOOP BACK 



1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 

1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 



0567 
0567 
056P 
0569 
056A 
056B 
056C 
056D 
056E 
056E 
056F 
0570 

0571 
0571 
0571 
0571 
0571 
0571 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
057A 
057A 
057B 
057C 
057D 
057E 
057F 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0586 
0587 
0588 
0589 
058A 
058B 
058C 
058D 
058D 
058D 
058D 
058D 
058E 
058F 
0590 
0591 
0592 
0593 
0594 
0595 



2C9B 
24D3 
2CD7 
24DB 
2CD8 
24D3 
21FD 



$5: 



056F A $PTR: 
01E1 A $PTRli 
01EC A $PTRL: 



885E B 
82FF A 
F034 B 
24DB I 
785E B 
2947 A 
24DC I 
8083 B 
1103 A 



4C30 
2CAD 
24DC 
2CDD 
2107 
805C B 
A3FE A 
806B B 
C029 B 
C3FF A 
A3FF A 
24DC I 



83FF A 
C029 B 
A3FF A 
83FE A 
F05C B 
24DC I 
21ED A 



785E B 
292F A 
24D3 I 
AC 8 A B 
2930 A 
2125 
8C8A 
83FF 



LABEL: 



A 
3 
A 
6029 B 



$20: 



$7: 



$CK: 



ASSIGN: 



JSR 


GCOMMA 


JMP 


DIREND 


JSR 


GNSTRG 


JMP 


X ERROR 


JSR 


GCSTRG 


JMP 


DIREND 


JMP 


.-2 



.=.+1 

.WORD TTLBUF+7 
.WORD TTLBUF+18 

.PAGE 'PROCESS LABEL 
. LOCAL 

PROCESS LABEL: 



LD 


R2, INPTR 


LD 


R0,-1(R2) 


SKNE 


R0, BLANK 


JMP 


XERROR 


ISZ 


INPTR 


JSR 


PREPLB 


JMP 


NEXTLB 


LD 


R0,STPDEF 


BOC 


Z,$7 


LI 


R0,4B; 


JSR 


ERROR 


JMP 


NEXTLB 


JSR 


P2P1 


JMP 


$CK 


LD 


R0,LOCCTR 


ST 


R0,-2(R3) 


LD 


R0,SECT 


ADD 


R0,K8 


ADD 


R0,-1(R3) 


ST 


R0,-1(R3) 


JMP 


NEXTLB 


CHECK 


LOCCTF ALIG 


LD 


R0,-1(R3) 


ADD 


R0,KP 


ST 


R0 f -1 (R3) 


LD 


R0,-2(R3) 


SKNE 


R0,LOCCTR 


JMP 


NEXTLB 


JMP 


$20 



; INPUT CHAR PTR 

;BYPASS LBL ASSIGNMENT, GO TO NEXT LBL 



DUPLICATE DEF ERROR 
;ERROR - DUPLICATE DEF 



;SET PDEF BIT 

;SET RELOCATION 
;GO TO NEXT LBEL 



ASSIGN DIRECTIVE 



ISZ 

JSR 

JMP 

ST 

JSR 

JMP 

LD 

LD 

AND 



INPTR 

PREPLB 

DIREND 

R3,LBLPT 

EXP 

$2 

R3,LBLPT 

R0,-1 (R3) 

R0,K8 



;MISALIN 



; INPUT CHAR PTR 
;PREP LABEL 

; SAVE LABEL PTR 

; NO EXP - ERROR 
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1068 0596 150F A 

1069 0597 807A B 

1070 0598 A3FE A 



1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 



0599 
059A 
059B 
059C 
059D 
059E 
059F 
05A0 
05A1 
5A2 
05A3 
05A3 
05A4 
05A4 
05A5 
05A6 
05A6 
05A7 
05A8 
5A9 
05AA 
05AB 
05AC 
05 AC 
05AC 
05AC 
05AC 
5AD 
05AE 
5AF 
05B0 
05B1 
05B2 
05B3 
05B4 
05B5 
05B6 
05B7 
05B8 
05B8 
05B9 
05BA 
05BB 
05BC 
05BD 
05BE 
05BE 
05BE 
05BE 
05BE 
05BE 
05BE 



807C B 
6027 B 
HIE A 
847B B 
5D03 A 
3400 A 
87FF A 
642E B 
3400 A 
A3FF A 



807A B 



83FF A 

602C B 

15FA 

4C30 

2CAD 

21F7 



$10: 



24D6 I 



1123 05BE 

1124 05BE 2CB6 I 

1125 05BF 2CDF I 

1126 05C0 0200 A 

1127 05C1 0201 A 

1128 05C2 



$1 



DOTASN: 



2CB6 
2914 
2109 
3280 
1109 
F46B B 
2101 A 
2108 A 
A85C B 
2CBA I 
805C B 
21EC A 



4C00 A $2: 

24DE I 

4C12 A $3: 

24DE I 

4C12 A $6: 

24DE I 



BOC 


NZ,$1 


LD 


R0,EXPVAL 


ST 


R0,-2(R3) 


LD 


R0 r EXPREL 


AND 


R0,K3 


BOC 


Z,$3 


LD 


R1,EXPPD 


SHL 


Rl,3 


RADD 


R1,R0 


LD 


R1,-1(R3) 


AND 


Rl f XFFF0 


RADD 


Rl,R0 


ST 


R0 f -1(R3) 



; EXPRESSION VALUE 
; SET VALUE 

; EXPRESSION RELOCATION MODE 



LD R0,EXPVAL 
OUTPUT VALUE AND RETURN 
JSR OVAL 
JMP ENDST 



;0FFF0 



; EXPRESSION VALUE 



LD 

AND 

BOC 

LI 

JSR 

JMP 



R0,-1(R3) 

R0,K4 

NZ,$10 

R0,4P; 

ERROR 

$10 



DUPLICATE DEF ERROR 



DOT ASSIGN DIRECTIVE 



JSR 

JSR 

JMP 

RXCH 

BOC 

SKNE 

JMP 

JMP 

ST 

JSR 

LD 

JMP 

LI 

JMP 

LI 

JMP 

LI 

JMP 



IFBYP 

EXP 

$2 

R0,R2 

Z,$3 

Rl f SECT 

.+2 

$6 

R2 , LOCCTR 

OOREC 

R0, LOCCTR 

$5 

R0,0; 

XERR1 

R0 f 18; 

XERR1 

R0,18; 

XERR1 



;NO EXP ERROR 
;NOT PREV DEF 



MISSING ARG. ERROR 
NOT PREV DEFINED ERROR 
USAGE ERROR 



;MISSING EXP E 
;NOT PREV 



PREPARE LABEL FOR ASSIGNMENT OF VALUE 

JSR PREPLB 
NOT OK 
OK -LBL READY 



PREPLB: 



JSR 
JSR 
RTS 
RTS 



IFBYP 
STSER 



; SYMBOL TABLE SEARCH 
; OVERFLOW 



.PAGE 'EXPRESSION CALC. ' 
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1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 



05C2 
05C2 
05C2 
05C2 
05C2 
05C2 
05C2 
05C2 
05C3 
05C4 
05C5 
05C6 
05C7 
05C8 
05C9 
05CA 
05CB 
05CC 
05CD 
05CE 
05CF 
05D0 
05D1 
05D2 
05D3 
05D4 
05D5 
05D6 
05D7 
05D7 
05D8 
05D9 
05D9 
05D9 
05DA 
05DB 
05DC 
05DD 
05DE 
05DF 
05E0 
05E0 
05E1 
05E2 
05E3 
05E3 
05E4 
05E5 
05E6 
05E7 
05E8 



. LOCAL 



4C00 A 
A07A B 
4C01 A 
A07C B 
A07B B 
2C9D I 
2106 A 
F42C B 
2101 A 
2125 A 
A07A B 
A47C B 
216D A 
2C9C I 
216F A 
F050 B 
2101 A 
2105 
4C18 
2CAD 
21F8 



EXP: 



2C9C I 
215D A 



A116 A 
F04F B 
2159 A 
F043 B 
2157 A 
F046 B 
2155 A 

2970 A 
212D A 
810D A 

F050 B 
210C A 
F051 B 
2117 A 
F03C B 
2137 A 



1180 05E9 F035 B 

1181 05EA 213B A 

1182 05EB F053 B 

1183 05EC 213F A 

1184 05ED F054 B 

1185 05EE 2142 A 

1186 05EF 2109 A 

1187 05F0 05F1 A 

1188 05F1 

1189 05F1 

1190 05F1 

1191 05F1 



SI: 



$NXT! 



$1A: 



$OP: 



JSR EXP 

NO EXP RETURN (NOT AN ERROR) - EXPVAL=0 
NORMAL RETURN - R0=EXPVAL 

R2=EXPPD (PREV.DEF.) 



EXPRESSION VALUE 



LI 


R0,0 


ST 


R0 f EXPVAL 


LI 


R0,1 


ST 


R0,EXPREL 


ST 


R0,EXPPD 


JSR 


GITEM 


JMP 


$1 


SKNE 


R1,K4 


JMP 


.+2 


JMP 


$PLUS 


ST 


R0,EXPVAL 


ST 


R1,EXPREL 


JMP 


$FIN 


JSR 


GNVC 


JMP 


$EX0 


SKNE 


R0 r CPLUS 


JMP 


.+2 


JMP 


$1A 


LI 


R0, 24; 


JSR 


ERROR 


JMP 


$1 



? EXPRESSION RELOCATION MODE ;SET ABS 
;PREV.DEF. 1=YES ;SET PREV. DEF. YES 

;NO ITEM, PROBABLY AN OPERATOR 



;NO EXP 



ERROR SYNTAX 



JSR GNVC 

JMP $EXPND ;EXP. END 

CECK OPERATOR ELSE ERROR 



ST 


R0,$OP 


SKNE 


R0, COMMA 


JMP 


SCOM 


SKNE 


R0,RPAREN 


JMP 


$COM 


SKNE 


R0,LPAREN 


JMP 


$COM 


JSR 


GITEM 


JMP 


$XERR 


LD 


R0,$OP 


SKNE 


R0,CPLUS 


JMP 


SPLUS 


SKNE 


R0,CMINUS 


JMP 


$MINUS 


SKNE 


R0,CMPY 


JMP 


$MPY 


SKNE 


R0,CDIV 


JMP 


$DIV 


SKNE 


R0 r CAND 


JMP 


SAND 


SKNE 


R0 f COR 


JMP 


SOR 


JMP 


SEERR 


. = .+1 





;EXP. ERROR 

;TEMP SAVE OPERATOR 



PLUS OPERATOR 



IMPASM 



1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 

1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 



05F1 
05F2 
05F3 
05F4 
05F5 
05F6 
05F7 
05F8 
05F9 
05FA 
05FB 
05FC 
05FD 
05FE 
05FE 
05FE 
05FE 
05FF 
0600 
0603 
0602 
0603 
0604 
0604 
0605 
0606 
0607 
0608 
0608 
0609 
060A 
060B 
060C 
060C 
060D 
060E 
060F 
0610 
0611 
0612 



8486 B $PLUS: 

C47A B 

291E A 

2104 A 

A47C B 

F42C B 

2101 A 

21DE A 

4C12 A $EERR: 

2CAD I $15: 

4C00 A 

A07C B 

21D9 A 



847A B $MINUS 
D486 B 



2911 A 
2106 A 
F087 B 
2101 A 



21F4 A 
F42C B $14: 
21F2 A 
21CF A 

F42C B $13: 
21EF A 
3482 A 
15ED A 



4C01 A 
A07C B 
21C8 A 
4C18 A 
2CAD I 
2124 A 



$XERR: 



0612 ; 
0612 ; 

0612 A47A B $PMREL: 

0613 8087 B 

0614 847C B 

0615 E487 B 

0616 3180 A 
0617 

0617 1105 A 

0618 F426 B 

0619 2104 A 
061A F026 B 
061B 0201 A 
061C 0200 A 
061D ; 
061D A07C B $11: 
061E ; 
061E 4400 A $12: 
061F 21B7 A 
0620 
0620 
0620 

0620 2923 



LD 

ADD 

JSR 

JMP 

ST 

SKNE 

JMP 

JMP 

LI 

JSR 

LI 

ST 

JMP 



R1,ITVAL 

R1,EXPVAL 

$PMREL 

$EERP 

P1,EXPPEL 

R1,K4 

$EERR 

$NXT 

R0,18; 

ERROR 

R0,0 

R0,EXPREL 

$NXT 



EXPRESSION VALUE 

PLUS/MINUS REL.CALC. 

1ST RETURN , BOTH T,B OR G RELOCATION 

EXPRESSION RELOCATION MODE ; 2ND RETURN 

EXTERNAL? 

YES 

GO TO NXT OPERATOR 

EXP. -USAGE ERROR ;GLOBAL SYMBOL 



,-EXPRESSION RELOCATION MODE ?SET UNDEFI 
;CONTNUE TO NXT OPERATOR 



MINUS OPERATOR 



; EXPRESSION VALUE 



LD Rl,EXPVAL 

SUB Rl,ITVAL 

JSR $PMREL ?PLUS/MINUS RL.CALC. 

JMP $13 ;RET 1- BOTH T,B OR G RELOCATION 

SKNE R0,ITREL ;RET 2- LOWEST IS ABS. 

JMP $14 ; ARG2 IS ABS 

ARG 1 IS ABS,ARG2 GR THAN ABS (1) 

JMP $EERR 

SKNE Rl,K4 

JMP $EERR 

JMP $NXT 

BOTH ARGS HAVE T,B OR 

SKNE Rl f K4 

JMP $EERR 

RXOR R1,R0 

BOC NZ f $EERR 

SAME - SAME REL = ABS 

LI R0,1 

ST R0,EXPREL 

JMP $NXT 

LI R0,24; 

JSR ERROR 

JMP $EXPND 



;GLOBAL USAGE ERROR 
;NEXT OPERATOR 
G RELOCATION 

j GLOBAL ERROR 

;NOT SAME - ERROR 



EXPRESSION RELOCATION MODE 
;NEXT OPERATOR 
SYNTAX ERROR 



SPECIAL SUBR. USED TO HELP WITH REL.CALC. FOR PLUS/MINUS 

ST Rl,EXPVAL ,-EXPRESSION VALUE ;STORE VALUE RESULT 

LD R0,ITREL 

LD Rl,EXPREL EXPRESSION RELOCATION MODE 

SKG Rl,ITREL 

RXCH R0,R1 

R0 LESS OR EQUAL TO Rl NOW 

BOC Z,$ll ;UNDEF INHERIT 

SKNE R1,K1 

JMP $12 ;BOTH ABS 

SKNE R0,K1 

RTS 1 ;LOW I ABS, OTHER? 

RTS ;LOW IS GR THAN ABS (1) 

UNDEFINED 

ST R0,EXPREL EXPRESSION RELOCATION MODE 

FINISHED BUT MUST POP RET. FROM STACK, THEN GO TO NXT OPERATOR 

PULL R0 

JMP $NXT 



A $MPY: JSR 



$REL 
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1255 0621 807A B 




LD 


R0,EXPVAL 


1256 0622 8486 B 




LD 


Rl,ITVAL 


1257 0623 2C0D B 




JSR 


@MULT 


1258 0624 A47A B 


$MPY1: 


ST 


R1,EXPVAL 


1259 0625 21B1 A 




JMP 


$NXT 


1260 0626 


i 






1261 0626 291D A 


$DIV: 


JSR 


$REL 


1262 0627 4C00 A 




LI 


R0,0 


1263 0628 847A B 




LD 


R1,EXPVAL 


1264 0629 8C86 B 




LD 


R3,ITVAL 


1265 062A 2C0E B 




JSR 


@DIVD 


1266 062B 21F8 A 




JMP 


$MPY1 


1267 062C 








1268 062C 




AND 


OPERATOR 


1269 062C 








1270 062C 2917 A 


$AND: 


JSR 


$REL 


1271 062D 807A B 




LD 


R0,EXPVAL 


1272 062E 6086 B 




AND 


R0,ITVAL 


1273 062F A07A B 


520: 


ST 


R0,EXPVAL 


1274 0630 21A6 A 




JMP 


$NXT 


1275 0631 








1276 0631 




OR OPERATOR 


1277 0631 








1278 0631 2912 A « 


?0R: 


JSR 


$REL 


1279 0632 807A B 




LD 


R0,EXPVAL 


1280 0633 6886 B 




OR 


R0,ITVAL 


1281 0634 21FA A 




JMP 


$20 


1282 0635 








1283 0635 




EXPRESSION END 


1284 0635 








1285 0635 7C5E B < 


5C0M: 


DSZ 


INPTR 


1286 0636 < 


5EXPND: 






1287 0636 j 




DIAGNOSE IF PASS 2 


1288 0636 2CE0 I 




JSR 


P1P2 


1289 0637 2104 A 




JMP 


$FIN 


1290 0638 807C B 




LD 


R0,EXPREL 


1291 0639 1502 A 




BOC 


NZ, $FIN 


1292 063A 4C2A A 




LI 


R0,42? 


1293 063B 2CAD I 




JSR 


ERROR 


1294 063C 807A B < 


FIN: 


LD 


R0,EXPVAL 


1295 063D 887B B 




LD 


R2,EXPPD 


1296 063E 847C B 




LD 


R1,EXPREL 


1297 063F 0201 A 




RTS 


1 


1298 0640 








1299 0640 807A B $ 


EX0: 


LD 


R0,EXPVAL 


1300 0641 887B B 




LD 


R2,EXPPD 


1301 0642 847C B 




LD 


Rl,EXPREL 


1302 0643 0200 A 




RTS 





1303 0644 ; 








1304 0644 ; 




CALC 


REL. FOR AND 


1305 0644 ; 








1306 0644 8087 B $ 


REL: 


LD 


R0,ITREL 


1307 0645 847C B 




LD 


R1,EXPREL 


1308 0646 E487 B 




SKG 


Rl,ITREL 


1309 0647 3180 A 




RXCH 


R0,R1 


1310 0648 E426 B 




SKG 


R1,K1 


1311 0649 2105 A 




JMP 


$30 


1312 064A 4C00 A 




LI 


R0, 


1313 064B A07C B 




ST 


R0,EXPPEL 


1314 064C A07A B 




ST 


R0 r EXPVAL 


1315 064D 4400 A 




PULL 


R0 


1316 064E 21AA A 




JMP 


SEERR 


1317 064F A07C B $ 


30: 


ST 


R0,EXPREL 



EXPRESSION VALUE 



EXPRESSION VALUE 



EXPRESSION VALUE 



EXPRESSION VALUE 
EXPRESSION VALUE 



EXPRESSION VALUE 



; INPUT CHAR PTR 



AND UNDEFINED 



EXPRESSION RELOCATION MODE 

UNDEFINED ERROR 

EXPRESSION VALUE 

EREV.DEF. 1=YES EPEV. DEF. CODE 

EXPRESSION RELOCATION MODE 



EXPRESSION VALUE 
EREV.DEF. 1=YES 
EXPRESSION RELOCATION MODE 



EXPRESSION RELOCATION MODE 



EXPRESSION RELOCATION *10DE 
EXPRESSION VALUE 

EEL. ERROR IN EXP. 
EXPRESSION RELOCATION MODE 
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1318 0650 0200 A 



1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 

1 -3 CO 

1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 



0651 
0651 
0651 
0651 
0651 
0651 
0651 
0651 
0651 
0651 
0651 
0651 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0658 
0658 
0658 
0659 
065A 
065B 
065C 
065D 
065E 
065F 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0668 

0669 

accA 

066B 
066C 
066D 
066D 
066D 
066D 
066D 
066E 
066F 
0670 
0671 



4C00 A 
A086 B 
A130 A 
4C01 A 
A0P7 B 
2C9C I 
0200 A 



F04A B 
216C A 
F03P B 
2111 A 
F045 B 
2140 A 
F04F B 
2125 A 
F052 B 
2133 A 
F051 B 
2133 A 
F044 B 
214B A 
F04E B 
2 1 4 E A 
E035 B 
2167 A 



GITEM: 



$TEST; 



2136 A 
2149 A 



2CE1 I SHEX: 
2109 A 
E035 B 
2106 A 
E036 B 



1371 0672 2115 A 

1372 0673 E032 B 

1373 0674 2102 A 

1374 0675 E037 B 

1375 0676 2113 A 

1376 0677 ; 

1377 0677 7C5E B $BSPR1 

1378 0678 ; 

1379 0678 ; 



RTS 

.PAGE ' GET ITEM ' 
.LOCAL 



LI 

ST 

ST 

LI 

ST 

JSP 

PTS 



JSR GITEM 

NONE (NOT AN ERROR) ITVAL=0 ITPEL=1 (ABS) 
NORMAL RET 

SET ITVAL,ITREL (IF GR 4, AND WITH 3) 

. REFERS TO LOCCTR 

ALLOW UNARY OPS 



R0,0 

R0 f ITVAL 

R0,$UOP 

R0, 1 

R0,ITREL 

GNVC 



TEST LEADING CHAR, 



SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKNE 

JMP 

SKG 

JMP 

c xm 

JMP 
JMP 



R0,DOT 

$DOT 

R0,CZEPO 

SHEX 

R0, QUOTE 

$OUOTE 

R0, COMMA 

$100 

R0,CNOT 

SNOT 

R0,CMINUS 

$MINUS 

R0 f CHARX 

$X 

R0, DOLLAR 

$NAME 

R0,HEX2F 

$BS0 

D ft ur v ~) o 

l\u f 1 1 i_ r\ _> J 

$DEC 
$NAME 



ZERO - HEX CONS1ANT 



JSR 
JMP 
SKG 
JMP 
SKG 

JMP 
SKG 
JMP 
SKG 
JMP 



GNCVC 
SRET1 
R0,HEX2F 
SBSPPl 
R0, HEX39 

$1 

R0,H£X40 
SBSPRl 
R0 f HEX46 
$2 



'NO ITEM RETURN 



7 BACKSPACE AND RETURN 



;ALPHA - TRY NAME 



; FINISHED CONSTANT-GO PROCESS UNARY OP 
; BACKSPACE AND RETURN 1 

7 A -1 

;F 



BACKSPACE 

DSZ INPTR ? INPUT CHAR PTR 

RETURN VALUE AFTER PROCESSING UNARY OPS WHICH WERE SAVt'D 
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1380 


0678 






; 








1381 


0678 


8486 


B 


$RET1: 


LD 


Rl, ITVAL 




1382 


0679 


810A 


A 




LD 


R0,$UOP 




1383 


067A 


1103 


A 




BOC 


Z , $NOUN 




1384 


067B 


1305 


A 




BOC 


ODD,$UM 




1385 


067C 


5100 


A 


$UNOT: 


CAI 


Rl,0 




1386 


067D 


A486 


B 


$30: 


ST 


Rl, ITVAL 




1387 


067E 


8086 


B 


$NOUN: 


LD 


R0, ITVAL 




1388 


067F 


8487 


B 




LD 


R1,ITREL 




1389 


0680 


0201 


A 




RTS 


1 




1390 


0681 


5101 


A 


$UM: 


CAI 


Rl,l 




1391 


0682 


14F9 


A 




BOC 


BlEQl,$UNOT 




1392 


0683 


21F9 


A 




JMP 


$30 




1393 


0684 


0000 


A 


$UOP: 


.WORD 







1394 


0685 


4C18 


A 


$100: 


LI 


R0,24; 




1395 


0686 


2CAD 


I 




JSR 


ERROR 




1396 


0687 


21EF 


A 




JMP 


$BSPR1 




1397 


0688 














1398 


0688 








CONTINUE HEX 




1399 


0688 














1400 


0688 


D038 


B 


$1: 


SUB 


R0,HEX30 




1401 


0689 


2101 


A 




JMP 


$3 




1402 


068A 


D039 


B 


$2: 


SUB 


R0,HEX37 




1403 


068B 


8486 


B 


$3: 


LD 


Rl, ITVAL 




1404 


068C 


7546 


A 




SKAZ 


R1,XF000 




1405 


068D 


2104 


A 




JMP 


$4 




1406 


068E 


5D04 


A 




SHL 


Rl,4 




1407 


068F 


3400 


A 




RADD 


R1,R0 




1408 


0690 


A086 


B 




ST 


R0, ITVAL 




1409 


0691 


21DB 


A 




JMP 


$HEX 




1410 


0692 


4C06 


A 


$4: 


LI 


R0,6; 




1411 


0693 


2 CAD 


I 




JSP 


ERROR 




1412 


0694 


21E3 


A 




JMP 


$RET1 




1413 


0695 














1414 


0695 








% - NOT 






1415 


0695 














1416 


0695 


4D02 


A 


$NOT: 


LI 


Rl,2 




1417 


0696 


2101 


A 




JMP 


$MIN1 




1418 


0697 














1419 


0697 








MINUS 




1420 


0697 














1421 


0697 






$MINUS: 








1422 


0697 


4D01 


A 




LI 


Rl,l 




1423 


0698 


81EB 


A 


$MIN1: 


LD 


R0,$UOP 




1424 


0699 


3482 


A 




RXOR 


R1,R0 




1425 


069A 


A1E9 


A 




ST 


R0,$UOP 




1426 


069B 


2C9C 


I 




JSR 


GNVC 




1427 


069C 


2131 


A 




JMP 


$ERR 




1428 


069D 


21BA 


A 




JMP 


$TEST 




1429 


069E 






; 








1430 


069E 






/ 


OUOTE - 


STRING CONSTANT 


1431 


069E 


2CE2 


I 


$OUOTE: 


JSR 


GSTCON 




1432 


069F 


212E 


A 




JMP 


$ERR 




1433 


06A0 


A086 


B 




ST 


R0, ITVAL 




1434 


06A1 


21D6 


A 




JMP 


$RET1 




1435 


06A2 






t 








1436 


06A2 






t 


NON-ZERO DIGIT 




1437 


06A2 


D038 


B 


$DEC: 


SUB 


R0,HEX30 




1438 


06A3 






; 


MPY ITVAL BY 10 AND 


ADD 


1439 


06A3 


8486 


B 




LD 


Rl, ITVAL 




1440 


06A4 


5D01 


A 




SHL 


Rl,l 




1441 


06A5 


A486 


B 




ST 


Rl, ITVAL 




1442 


06A6 


5D02 


A 




SHL 


Rl,2 





;NO UNARY 

; UNARY MINUS 



; UNARY OP CODE 
SYNTAX ERROR 



BIT MIN,BIT 1 NOT 



;LOOP BACK FOR NEXT HEX DIGIT 
VALUE ERROR 



; ERROR - NO ITEM FOLLOWS UNARYOPERATOP 
;TEST NEW CHAR. 
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1443 06A7 

1444 06A8 

1445 06A9 

1446 06AA 

1447 06AB 

1448 06AC 

1449 06AD 

1450 06AE 

1451 06AF 

1452 06B0 

1453 06B1 

1454 06B1 

1455 06B1 

1456 06B2 

1457 06B3 

1458 06B4 

1459 06B5 

1460 06B6 

1461 06B6 

1462 06B6 

1463 06B7 

1464 06B8 

1465 06B9 

1466 06BA 

1467 06BB 

1468 06BC 

1469 06BD 

1470 06BE 

1471 06BF 

1472 06C0 

1473 06C1 

1474 06C2 

1475 06C3 

1476 06C4 

1477 06C5 

1478 06C6 

1479 06C6 

1480 06C6 

1481 06C7 

1482 06C8 

1483 06C9 

l a n a a r r+ ■*. ... .- 
1104 V OCft r KJ^O D 



C486 B 
3400 A 
A086 B 
2CE1 I 
21CC A 
E035 B 
21C9 A 
E036 B 
21F2 A 
21C6 A 



2CE1 I $X: 
2103 A 
F045 B 
21B8 A 
7C5E B 



7C5E B $NAME: 
291C A 
2115 A 

8082 B 
A086 B 

8083 B 
607B B 
A07B B 
8300 A 
682C B 
A300 A 

8084 B 
E02C B 

2105 A 
6027 B 
2103 A 



84 5C B $DOT: 

OBf p O 
OBOD D 

A486 B 

A087 B $SYRET: 



1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 



06CB 
06CC 
06CD 
06CE 
06CE 
06CE 
06CF 
06D0 
06D1 
06D1 
06D2 
06D3 



21AC A 
81B7 A 
11B0 A 



4C18 A SERF: 
2CAD I 
0200 A 

7C5E B $BS0: 

0200 A 

F000 A XF000: 



1497 06D4 

1498 06D4 

1500 06D4 

1501 06D4 

1502 06D4 

1503 06D4 

1504 06D4 

1505 06D4 



ADD 

RADD 

ST 

JSR 

JMP 

SKG 

JMP 

SKG 

JMP 

JMP 



R1,ITVAL 

R1,R0 

R0, ITVAL 

GNCVC 

$RET1 

R0,HEX2F 

$BSPR1 

R0 f HEX39 

$DEC 

SBSPR1 



X - HEX OR NAME 



JSR 

JMP 

SKNE 

JMP 

DSZ 

NAME 

DSZ 

JSR 

JMP 

LD 

ST 

LD 

AND 

ST 

LD 

OR 

ST 

LD 

SKG 

JMP 
AND 
JMP 



GNCVC 
$NAME 
R0, QUOTE 
$HEX 
INPTR 



INPTR 

GSYM 

$ERR 

R0,STVAL 

R0 f ITVAL 

R0,STPDEF 

R0,EXPPD 

R0,EXPPD 

R0 f 0(R3) 

R0,K4 

R0 f 0(R3) 

R0,STREL 

R0,K4 

SSYRET 

R0 f K3 

$SYRET 



. USE LOCCTR 

LD Rl, LOCCTR 



ST 

ST 

SKNE 

JMP 

LD 

BOC 



LI 

JSR 

RTS 

DSZ 
RTS 
.WORD 

.PAGE 
. LOCAL 



Rl, ITVAL 
R0, ITREL 
R0 ,K1 
$RET1 
R0 f $UOP 
Z,$NOUN 



R0, 24; 

ERROR 





;GET NEXT VALID CHAR. 
;NO MORE 

; BACKSPACE AND RETURN 1 



;NONE - NAME IS X 



; x 

; INPUT CHAR PTR 



; INPUT CHAR PTR 

;GET SYMBOL 

;NOT A VALID NAME 



;PREV.DEF. 1=YES 
;PREV.DEF. 1=YES 



?SET USED BIT 



;SYMBL RETURN 



?ABS - PROCESS UNARY OPS IF THERE WERE 



SYNTAX ERROR 



; INPUT CHAR PTR 



SYNTAX 



ERROR 



INPTR 



0F000 

'GET SYMBOL , BUILD NAME/DIR ' 

SCANS NAME, SEARCHES SYMBOL TABLE ,R0=STVAL, R1=STREL 
R3=STPT 

JSR GSYM 

NO SYMBOL RETURN 
NORMAL RETURN 
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1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 



06D4 

06D5 

06D6 

06D6 

06D7 

06D8 

06D9 

06DA 

6DB 

06DC 

06DD 

06DE 

06DF 

06E0 

06E1 

06E2 

06E3 

06E4 

06E5 

06E6 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E8 

06E9 

06EA 

06EB 

06EC 

6ED 

06EE 

06EE 

06EF 

06F0 



4C00 A GSYM: 
2101 A 



4C02 
A10E 
2C9C 
0200 
290C 
0200 
8109 
C080 B 
A080 B 
2963 A 
24E3 I 
8082 B 
8484 B 
0201 A 
4400 A 
24D6 I 
06E7 A 



GFORM: 
$GS2: 



$GS1: 



$SORF: 



F04E B BLDNAM; 

2105 A 

E032 B 

0200 A 

E033 B 

2108 A 

0200 A 

4D08 A $1: 
A480 B 
806C B 



06F1 5C08 A 

06F2 3181 A 

06F3 5D02 A 

06F4 2103 A 

06F5 

06F5 ; 

06F5 BLDDIR: 

06F5 4D00 A $2: 

06F6 A480 B 

06F7 2933 A 

06F8 2929 A $3: 

06F9 A07D B 

06FA C480 B 

06FB A480 B 

06FC ? 

06FC 2924 A 

06FD A07E B 

06FE A481 B 

06FF 2921 A 

0700 A07F B 



LI 
JMP 

LI 

ST 

JSR 

RTS 

JSR 

RTS 

LD 

ADD 

ST 

JSR 

JMP 

LD 

LD 

RTS 

PULL 

JMP 

. = .+1 



R0,0 
$GS2 

R0,2 

R0 f $SORF 

GNVC 

BLDNAM 

R0,$SORF 

R0,CNAM0 

R0,CNAM0 

STSER 

INABS-1 

R0,STVAL 

Rl,STREL 

1 

R0 

ENDST 



;SYMBOL30R3FORM 

;NO SYMBOL RETURN 

; BUILD NAME 

y NO NAME RETURN 

;1ST 2 COMPRESSED CHARS. 
;1ST 2 COMPRESSED CHARS. 
; SEARCH SYM30L TABLE 

; VALUE 
RELOCATION CODE 



? STATEMENT END 



OF NAME 
OF NAME 



BUILD NAME OR DIRECTIVE 
JSR 



BLDNAM OR BLDDIR 
NO NAME RETURN 
NORML RETURN 



ENTRY 
EXIT: 



R0, DOLLAR 

$1 
R0,HEX40 

R0,HEX5A 
$2 



SKNE 

JMP 

SKG 

RTS 

SKG 

JMP 

RTS 

BUILD LOCAL NAME 

LI Rl,8 

ST R1,CNAM0 

LD R0,LOCREG 



R0 CONTAINS 1ST CHAR 

R0 CONTAINS NEXT VALID CHAR (BUT NOT SKIPPE 

$ REPLACED WITH REGION NUM. 

SET NAM0,NAM1,NAM2,CNAM0,CNAM1 



;$ OK 

■A -1 

:NOT A VALID NAME 

rZ 



(NOT A VALID NAME 



;1ST 2 COMPRESSED CHARS. OF NAME; SET LO 



SHL 
RCPY 
SHL 
JMP 



R0,8 
R0,R1 
Rl,2 
S3 



BUILD NON LOCAL NAME 



LI 

ST 

JSR 

JSR 

ST 

ADD 

ST 

JSR 

ST 

ST 

JSR 

ST 



Rl,0 

R1,CNAM0 

$GL1 

$GP1 

R0,NAM0 

R1,CNAM0 

R1,CNAM0 

$GP 

R0,NAM1 

R1,CNAM1 

$GP 

R3,NAM2 



;1ST 2 COMPRESSED CHARS. OF NAME 



1ST 2 CHARACTERS OF NAME ; STORE 1ST 
1ST 2 COMPRESSED CHARS. OF NAME; PICK tj 
1ST 2 COMPRESSED CHARS. OF NAME 



;3RD AND 4TH CHARACTERS OF NAME ; STORE 
; COMPRESSED 3RD AND 4TH CHARS. COMPRESSE 

;5TH AND 6TH CHARACTERS OF NAME ; STORE 
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1569 


0701 


F048 


B 




SKNE 


R0, BLANKS 




1570 


0702 


210F 


A 




JMP 


$4 




1571 


0703 






t 


SET LONG SYMBOL FLAGS 


1572 


0703 


8030 


B 




LD 


R0,X8000 




1573 


0704 


C07D 


B 




ADD 


R0,NAM0 


;1ST 2 CHARACTERS OF NAME 


1574 


0705 


A07D 


B 




ST 


R0,NAM0 


;1ST 2 CHARACTERS OF NAME 


1575 


0706 


4C01 


A 




LI 


R0,1 




1576 


0707 


C080 


B 




ADD 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1577 


0708 


A080 


B 




ST 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1578 


0709 






; 


TEST IF 


LOCAL LONG 


SYMBOL 


1579 


0709 


4C08 


A 




LI 


R0,8 




1580 


070A 


7080 


B 




SKAZ 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1581 


070B 


2101 


A 




JMP 


.+2 




1582 


070C 


2105 


A 




JMP 


$4 




1583 


070D 






t 


YES-FORCE BLANK IN 


6TH CHAR OF LOCAL SYMBOL 


1584 


070D 


807F 


B 




LD 


R0,NAM2 


;5TH AND 6TH CHARACTERS OF NAME 


1JUJ 


070E 


5CF8 


A 




CUD 


R0,8 




1586 


070F 


5C08 


A 




SHL 


R0,8 




1587 


0710 


C034 


B 




ADD 


R0, BLANK 




1588 


0711 


A07F 


B 




ST 


R0 f NAM2 


;5TH AND 6TH CHARACTERS OF NAME 


1589 


0712 


807D 


B 


$4: 


LD 


R0,NAM0 


;1ST 2 CHARACTERS OF NAME ;TES 


1590 


0713 


F10B 


A 




SKNE 


R0,$DT 


; . 


1591 


0714 


24DB 


I 




JMP 


XERROR 




1592 


0715 


F10A 


A 




SKNE 


R0,$DL 


; $ 


1593 


0716 


24DB 


I 




JMP 


XERROR 




1594 


0717 






; 


SKIP EXCESS CHARS. 


IN NAME IF ANY 


1595 


0717 


291D 


A 


$4B: 


JSR 


$GAN 




1596 


0718 


F034 


B 




SKNE 


R0, BLANK 




1597 


0719 


2101 


A 




JMP 


$4A 




1598 


071A 


21FC 


A 




JMP 


$4B 




1599 


071B 


2C9C 


I 


$4A: 


JSR 


GNVC 




1600 


071C 


0201 


A 




RTS 


1 




1601 


071D 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


1602 


071E 


0201 


A 




RTS 


1 




1603 


071F 


2E20 


A 


$DT: 


.WORD 


. 




1604 


07 20 


2420 


A 


$DL: 


.WORD 


'$' 




1605 


0721 






i 








1606 


0721 






• 


GET PAIR OF CHAR 




1607 


0721 






> 








1608 


0721 


2908 


A 


$GP: 


JSR 


$GL 




1609 


0722 


A105 


A 


$GP1: 


ST 


R0,$T0 




1610 


0723 


A505 


A 




ST 


R1,$T1 




1611 


0724 


290B 


A 




JSR 


$GR 




1612 


0725 


C102 


A 




ADD 


R0,$T0 




1613 


0726 


C502 


A 




ADD 


R1,$T1 




1614 


0727 


0200 


A 




RTS 






1615 


0728 






i 








1616 


0728 


0000 


A 


$T0: 


.WORD 





; TEMP0 


1617 


0729 


0000 


A 


$T1: 


.WORD 





; TEMPI 


1618 


07 2A 














1619 


072A 








GET LEFT CHAR 




1620 


072A 














1621 


072A 


29 0A 


A 


$GL: 


JSR 


$GAN 




1622 


072B 


3181 


A 


$GL1: 


RCPY 


R0,R1 




1623 


072C 


D434 


B 




SU3 


Rl f HEX20 




1624 


072D 


5C08 


A 




SHL 


R0,8 




1625 


072E 


5D0A 


A 




SHL 


Rl,10 




1626 


072F 


0200 


A 




RTS 






1627 


0730 














1628 


0730 








GET RIGH CHAR 




1629 


0730 














1630 


0730 


2904 


A 


$GR: 


JSR 


$GAN 


\ *" 


1631 


0731 


3181 


A 




RCPY 


R0,R1 





NA 
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1632 


0732 


D434 


B 




SUB 


R1,HEX20 






1633 


0733 


5D04 


A 




SHL 


Rl,4 






1634 


0734 


0200 


A 




RTS 








1635 


0735 
















1636 


0735 








GET NEXT CONSECUTIVE 


CHAR IF ALPHA/NUM ELSE BLANK 


1637 


0735 
















1638 


0735 


2CE4 


I $GAN: 


JSR 


GNC 




NEXT CHAR 


1639 


0736 


2107 


A 




JMP 


$11 




NONE 


1640 


0737 


E035 


B 




SKG 


R0,HEX2F 




-1 


1641 


0738 


2104 


A 




JMP 


$10 




NOT A/N 


1642 


0739 


E032 


B 




SKG 


R0,HEX40 






1643 


073A 


2105 


A 




JMP 


$12 




•MAY BE NUMERIC 


1644 


073B 


E033 


B 




SKG 


F0,HEX5A 




Z 


1645 


073C 


0200 


A 




RTS 






•CHAR I A/N 


1646 


073D 


7C5E 


B $10: 


DSZ 


INPTR 




•INPUT CHAR PTR ;NOT A/N 


1647 


073E 


8034 


B $11: 


LD 


R0, BLANK 






1648 


073F 


0200 


A 




RTS 








1649 


0740 


E036 


B $12: 


SKG 


R0,HEX39 




•9 


1650 


0741 


0200 


A 




RTS 






•RETURN WITH A/N 


1651 


0742 


21FA 


A 




JMP 


$10 






STSER 


- SYMBOL TABLE SEARCH 








1652 


0743 








.PAGE 


'STSER - SYMBOL TABLE SEARCH' 


1653 


0743 








. LOCAL 








1654 


0743 
















1655 


0743 








SYMBOL 


TABLE SEARCH 






1656 


0743 
















1657 


0743 










JSR STSER 






1658 


0743 










OVERFLOW RETURN 


1659 


0743 










NORMAL 


RETURN (R3 PTS . TO ENTRY) 


1660 


0743 
















1661 


0743 










WILL APPEND 


NEW 


2NTRY IF NOT FOUND 


1662 


0743 
















1663 


0743 




c 


5TSER: 










1664 


0743 






1 










1665 


0743 






; 


SET REGION A 






1666 


0743 


8065 


B 




LD 


R0,NEXTA 






1667 


0744 


A062 


B 




ST 


R0,NEXT 






1668 


0745 


8064 


B 




LD 


R0,TOPA 






1669 


0746 


A061 


B 




ST 


R0,TOP 






1670 


0747 


8063 


B 




LD 


R0,BASEA 






1671 


0748 


A060 


B 




ST 


R0 f BASE 






1672 


0749 


8152 


A 




LD 


R0,$NXTA 






1673 


074A 
















1674 


074A 








REGION 


SEARCH 






1675 


074A 
















1676 


074A 


8C61 


B 


$RSER: 


LD 


R3,TOP 






1677 


074B 


A152 


A 




ST 


R0,$ONXT 






1678 


074C 


2108 


A 




JMP 


$4 






1679 


074D 






r 


TOP OF 


LOOP 






1680 


074D 


8300 


A 


$1: 


LD 


R0,0(R3) 






1681 


074E 


6150 


A 




AND 


R0,XFFFB 






1682 


074F 


F080 


B 




SKNE 


R0 f CNAM0 




?1ST 2 COMPRESSED CHARS. 


1683 


0750 


211D 


A 




JMP 


$2 




TWORD MATCH 


1684 


0751 






> 


NO MATCH-LOOP 






1685 


0751 


8300 


A 


$3: 


LD 


R0,0(R3) 






1686 


0752 


6027 


B 




AMD 


R0,K3 






1687 


0753 


50FE 


A 




CAI 


R0,-2 






1688 


0754 


3300 


A 




RADD 


R0,R3 






1689 


0755 


FC62 


B 


$4: 


SKNE 


R3 f NEXT 






1690 


0756 


2137 


A 




JMP 


$REND 




; REGION END 


1691 


0757 


21F5 


A 




JMP 


$1 




;NEXT ENTRY LOOP 


1692 


0758 






t 


APPEND 


ENRY IF ROOM 






16.93 


0758 






$APEND,: 











- BACKSPACE I 



28 



IMPASM 



1694 0758 8080 B $APPEND: LD 

1695 0759 6027 B AND 
'1696 075A 50FE A CAI 

1697 075B C062 B ADD 

1698 075C E060 B SKG 

1699 075D 212A A JMP 

1700 075E ; YES ■ 

1701 075E A062 B ST 

1702 075F B13E A ST 

1703 0760 4801 A AISZ 



1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 



0761 
0762 
0763 

0764 

0765 

0766 

0767 

0768 

0769 

076A 

076A 

076B 

076C 

076D 

076E 

076E 

076F 

0770 

0771 

0772 

0773 

0774 

0774 

0775 

0776 

0777 

0778 

0779 

077A 

077B 

077C 

077D 

077E 

077F 

0780 

0781 

0782 

0783 

0784 

0784 

0784 

0785 

0786 

0787 

0788 

0788 

0788 

0788 

0789 

078A 

078B 

078C 



A074 
8080 
A300 
8481 
A7FF 
4D00 
A7FE 
1301 
2102 

847F 
A7FD 
AC85 
2106 

87FF 
642E 
F481 
2101 
21DE 
1310 

8300 
6027 
50FF 
3C00 
A074 
83FF 
5CFD 
6026 
A083 
83FF 
602A 
A084 
83FE 
A082 
AC85 
0201 



87FD 
F47F 
21ED 
21C9 



8060 
F066 
2101 
2108 



B 
B 
A 
B 

A 

A 
A 
A 
A 

B $6: 

A 

B $7: 

A 

A $2: 

B 
B 
A 
A 
A $2A: 

A $9: 

B 
A 
A 
B 
A 
A 
B 
B 
A 
B 
B 
A 
B 
B 
A 



A $8: 
B 
A 
A 



R0,CNAM0 
R0,K3 
R0,-2 
R0,NEXT 
R0,BASE 
$ROV 
ROOM AVAIL. 
R0,NEXT 
R0,@$QNXT 
R0,1 

R0 , FOPMPT 

R0,CNAM0 

R0,0(R3) 

Rl,CNAMl 

R1.-KR3) 

R1,0 

Rl,-2(R3) 

ODD, $6 

$7 



;1ST 2 COMPRESSED CHARS. OF NAME 



; REGION OVERFLOW 
APPEND ENTRY 



ST 

LD 

ST 

LD 

ST 

LI 

ST 

BOC 

JMP 

NEW ENTRY TO CONTAIN LONG SYMBOL 



;1ST 2 COMPRESSED CHARS. OF NAME 
; COMPRESSED 3RD AND 4TH CHARS. 

;LONG SYMBOL 



LD Rl,NAM2 

ST Rl,-3(R3) 

ST R3,STPT 

JMP $9 

WORD0 MATCH CHECK OTHERS 



5TH AND 6TH CHARACTERS OF NAME 



SET UP RESULTS AND RETURN 



LD 

AND 

SKNE 

JMP 

JMP 

BOC 



Rl,-1(R3) 

Rl,XFFF0 

R1,CNAM1 

$2A 

$3 

ODD, $8 



;FFF0 INCLUDES LOCAL BIT 
; COMPRESSED 3RD AND 4TH CHARS. 

; CHECK 3RD WORD 



MATCH GOOD - SET RESULTS AND RETURN 



LD 

AND 

CAI 

RADD 

ST 

LD 

SHR 

AND 

ST 

LD 

AND 

ST 

LD 

ST 

ST 

RTS 



R0 f 0(R3) 

R0 f K3 

R0,-1 

R3,R0 

R0,FORMPT 

R0, -1 (R3) 

R0,3 

R0,K1 

R0,STPDEF 

R0,-1(R3) 

R0,K7 

R0 f STREL 

R0,-2(R3) 

R0,STVAL 

R3,STPT 

1 



CHECK MATCH OF 3RD WORD 



LD 

SKNE 
JMP 
JMP 



Rl r -3(R3) 

Rl,NAM2 

$9 

$3 



REGION OVERFLOW 



B $ROV: LD R0,BASE 
B SKNE R0,BASEB 

A JMP $10 

A JMP $SETB 

; YES- SYMBOL TABLE OVERFLOW 



;5TH AND 6TH CHARACTERS OF NAME 
; MATCH 
;NO MATCH - LOOP 



;IS THIS LAST REGION? 



2% 



IMPASM 



1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 



078C 
078D 
078E 
078E 
078E 
078E 
078F 
0790 
0791 
0791 
0792 
0793 
0794 
0794 
0794 
0794 
0795 
0796 
0797 
0798 
0799 
079A 
079B 
079C 
079D 
079E 
079F 



4C24 A 
24AD I 



8060 B 

F066 B 

21C7 A 

8068 B 

F067 B 

21C4 A 



8068 B 
A062 B 

8066 B 
A060 B 

8067 B 
A061 B 
8102 A 
21AE A 
0065 B 
0068 B 
079F A 
FFFB A 



$10: 



$REND: 



$SETB: 



$NXTA: 
$NXTB: 
SQNXT: 
XFFFBs 



LI 


R0,36; 


JMP 


ERROR 


REGION 


END 


LD 


R0,BASE 


SKNE 


R0,BASEB 


JMP 


$APEND 


MAYBE 


IN 2ND REG 


LD 


R0,NEXTB 


SKNE 


R0,TOPB 


JMP 


SAPEND 



TABLE OVERFLOW ERROR 
;ALSO RETURN TO MY CALLER 



;IS THIS LAST REGION? 
yYES 



SET UP REGION B 



LD 

ST 

LD 

ST 

LD 

ST 

LD 

JMP 

.WORD 

.WORD 

. = .+1 

.WORD 



R0,NEXTB 

R0,NEXT 

R0,BASEB 

R0,BASE 

R0,TOPB 

R0,TOP 

R0,$NXTB 

$RSER 

NEXTA 

NEXTB 

0FFFB 



;IS REGION B EMPTY 
;YES 



;REGION SEARCH 



1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 



07A0 
07A0 
07A0 
07A0 
07A0 
07A0 
07A0 
07A1 
07A2 
07A3 
07A3 
7A4 
07A5 
07A6 
07A7 
07A8 
07A9 
07AA 
07AB 
07AC 
07 AD 
07AE 
07AE 
07AF 
07B0 
07B1 
07B2 
07B3 
07B4 
07B5 
07B6 



DISER: 



1814 07B7 

1815 07B7 

1816 07B7 

1817 07B7 



8D15 A 
847E B 
887F B 

807D B $2: 
F302 A 
2101 A 
2107 A 
F703 A 
2101 A 
2105 A 
1201 A $2B: 
FB04 A 
0201 A 
2101 A 

8302 A $3: 

1201 A $4: 

4B01 A 

4B04 A 

FD02 A 

0200 A 

21EE A 

0ED6 A DITBLL: 

0D85 A DITBLF: 



.PAGE 
. LOCAL 

DIRECTIVE / INSTRUCTION SEARCH 



LD 
LD 
LD 



R3, DITBLF 

R1,NAM1 

R2,NAM2 



BEGIN LOOP 



LD 

SKNE 

JMP 

JMP 

SKNE 

JMP 

JMP 

BOC 

SKNE 

RTS 

JMP 



R0,NAM0 

R0,2(R3) 

.+2 

$3 

R1,3(R3) 

$2B 

$4 

P,.+2 

R2,4(P3) 

1 

$4 



NOT FOUND YET 



LD 

BOC 

AISZ 

AISZ 

SKNE 

RTS 

JMP 

.WORD 

.WORD 



R0,2(R3) 

P, .+2 

R3,l 

R3,4 

R3, DITBLL 

$2 

DITBL2 

DITBLB 



;3RD AND 4TH CHARACTERS OF NAME 
;5TH AND 6TH CHARACTERS OF NAME 

;1ST 2 CHARACTERS OF NAME 1ST 2 CHARA 



; FOUND 



; 5 WORD ENTRY 



;NOT FOUND 
; REPEAT LOOP 



.PAGE 'GET STRING - GNSTRG ,GCSTRG,GSTCON ' 

GET NEW STRING FIRST 2 CHARACTERS - DO NOT HAVE 1ST QUOTE 
JSR GNSTRG 



IMPASM 



1818 


07B7 










NONE OP. 


1819 


07B7 










2 CHARS 


1820 


07B7 












1821 


07B7 








. LOCAL 




1822 


07B7 






GNSTRG: 






1823 


07B7 


2C9C 


I 




JSR 


GNVC 


1824 


07B8 


0200 


A 




RTS 




1825 


07B9 


F045 


B 




SKNE 


R0, QUOTE 


1826 


07BA 


2101 


A 




JMP 


$2A 


1827 


07BB 


2122 


A 




JMP 


$1 


1828 


07BC 


4C00 


A 


$2A: 


LI 


R0,0 


1829 


07BD 


A134 


A 




ST 


R0,$END 


1830 


07BE 


4C00 


A 


$2: 


LI 


R0,0 


1831 


07BF 


A131 


A 




ST 


R0 , $WORD 



NONE OP. ERROR RETURN (ERROR ALREADY GENERATED] 



;END OF STATEMNT 



; ERROR - NOT A STRING 



WILL HIT TO CHANGE A SYSTEM PACK.. 2 MIN. . 



2CE4 
211C 
F045 



2109 A 
852C A $7 



3180 
1502 



1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 

nocT ._ 

J.OJJ v I v± /v,jtj u 



07C0 
07C1 
07C2 
07C3 
07C4 
07C5 
07C6 
07C7 
07C7 
07C8 
07C9 
07C9 
07CA 
07CB 
07CC 
07CD 
07CD 
07CE 
07CF 
07D0 
07D1 



$5: 



A529 A 
21F7 A 

A528 A $4: 
5C08 A 
C126 A 
0201 A 

2CE4 I $3; 
2103 A 
F045 B 
21F3 A 



1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 



07D2 
07D3 



811E A $6: 
5C08 A 



iw* xi.K)t n 
07D5 C034 B 
07D6 4D00 A 
07D7 A51A A $9: 
07D8 0201 A 
07D9 

07D9 8118 A $8: 
07DA 1101 A 
07DB 0200 A 
07DC 8048 B 



1866 07DD 21F9 A 

1867 07DE 

1868 07DE 4C18 A $1: 

1869 07DF 2CAD I 

1870 07E0 0200 A $10: 

1871 07E1 

1872 07E1 

1873 07E1 

1874 07E1 

1875 07E1 

1876 07E1 

1877 07E1 8110 A GCSTRGs 

1878 07E2 ilFD A 

1879 07E3 21DA A 

1880 07E4 M r 



JSR GNC 

JMP $1 

SKNE R0, QUOTE 

JMP $ 3 

LD Rl,$WORD 

RXCH R0,F1 

BOC NZ,$4 

THIS IS 1ST CHAR 

ST Rl , $WORD 

JMP $5 

THIS IS 2ND CHAR 

ST R1,$END 

SHL R0,8 

ADD R0,$END 

RTS 1 

DO WE HAVE DOUBLE QUOTE OR CLOSING QUOTE 

JSR GNC 

JMP $6 ; CLOSING QUOTE 

SKNE R0, QUOTE 

JMP $7 ; DOUBLE QUOTE 

CLOSING QUOTE - ZERO OR ONE CHAR STRING 



; ERROR - ILLEGAL STRING 
; QUOTE 

?JMP IF THIS IS 2ND CHAR 

; REPEAT FOR 2ND CHAR 
;SET END INDIATOR NON ZERO-NOT STRG END 

;2ND RETURN WITH 2 CHRS. IN R0 



r*o«7 

LJkJ LX 

LD 
SHL 

ADD 
LI 
ST 
RTS 



THDTiD 

R0, SWORD 
R0,8 

n £■ a 
b t •? ° 

R0, BLANK 
R1,0 
R1,$END 
1 



TKIDT"l«r OUAD DTD 



;SET STRING END 



WAS A ZERO CHAR STRING 



LD 
BOC 
RTS 
LD 

JMP 

ERROR 

LI 

JSR 

RTS 



R0,$END 

Z,.+2 

; STRING CONTINUATION EMPTY 

R0, BLANKS 



$9 

R0,24; 
ERROR 



SYNTAX ERROR 
; RETURN WITH NO STRING 



GET CONTINUATION OF STRING {2 CHARS AT A TIME) 
JSR GCSTRG 
NONE 
2 CHARS IN REG 



LD R0 f $END 
BOC Z, $10 
JMP $2 



jEND 
;NOT END 
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IMPASM 



1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
SCAN 

1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 



07E4 
07E4 
07E4 
07E4 
07E4 
07E4 
07E4 29D7 



07E5 0200 
07E6 A10A 
07E7 810A 



A 
A 
A 
A 

07E8 1106 A 
07E9 2CE4 I 
07EA 2102 A 
07EB F045 B 
07EC 2102 A 
07ED 4C18 A 
07EE 24AD I 
07EF 
07EF 



GSTCON; 



$12: 



$11: 



8101 
07F0 0201 A 
07F1 

07F1 ; 
07F1 0000 A $WORD: 
07F2 0000 A $END: 
07F3 
07F3 
07F3 
07F3 
SYMBOL TABLE - MAP, 



07F3 
07F3 
07F3 
07F3 
07F3 
07F3 
07F3 
07F3 
07F3 
07F4 
07F5 
07F5 
07F5 
07F5 
07F6 
07F7 
07F7 
07F7 
07F7 
07F7 
07F8 
07F8 
07F9 
07FA 
07FB 
07FB 
07FB 
07FB 
07FB 
07FC 
07FD 
07FD 
07FE 
07FF 



4D01 A OGLOB: 
2103 A 



4D00 A RESETP: 
2101 A 



OMAP: 



4D02 A 



80 2F B $STRT: 

2103 A 

07FB A SLAST: 



OMAPNR: 



4D02 A 
4CFF A 



A162 A $STR1: 
A562 A 
4C01 A 



GET STRING CONSTANT (2 CHAR STRING) 

JSR GSTCON 

ERROR RETURN 

2 CHARS IN R0 RETURN 



- WE HAVE 1ST QUOTE 



JSR 

RTS 

ST 

LD 

BOC 

JSR 

JMP 

SKNE 

JMP 

LI 

JMP 



$2A 



R0,$WORD 

R0,$END 

Z,S11 

GNC 

$12 

R0, QUOTE 

$11 

R0,24; 

ERROR 

LEGAL STRING CONSTANT 
LD R0 , SWORD 
RTS 1 



; ERROR ALREADY NOTED 



;NOTE ERROR AND RETURN TO MY CALLER 

;NOTE ERROR AND RETURN TO MY CALLER 
SYNTAX ERROR 



.WORD 
■ WORD 



;SAVES 2 CHAR RESULT 
;0=STRING CONTINUED 



GLOBAL SYMBOLS, RESET P BITS 

.PAGE 'SCAN SYMBOL TABLE - MAP, GLOBAL SYMBOLS, RESET P BITS 
. LOCAL 

SCAN SYMBOL TABLE: OUTPUT MAP, GLOBAL RECORDS AND RESET P BITS 



OUTPUT GLOBALS AND RESET P BITS 

LI Rl,l 
JMP $STRT 

RESET P BITS 

LI R1,0 
JMP $STRT 

OUTPUT MAP AND RESET P BITS 



LI Rl,2 

.ENDIF 

LD R0,XFFF7 

JMP $STR1 

. = .+1 

OUTPUT MAP NO RESET OF P BITS 



LI 

LI 

.ENDIF 

ST 

ST 

LI 



Rl,2 
R0,-1 

R0,$FLAG 

R1,$MG 

R0,1 



;MAP OR GLOBAL INDICATOR 
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IMPASM 



1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 

1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2^005 



0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 



A158 A 
8C64 B 
8865 B 
2904 A 
8C67 B 
8868 B 
2901 A 
0200 A 



0808 A9F1 A 

0809 

0809 

080A 

080B 

080C 

080D 

080E 



SCANST: 



$LOOP: 



FDF0 
0200 
8155 
1401 
2101 



080F 
080F 
080F 
0810 
0811 
0812 
0813 
0813 
0814 
0815 
0816 
0817 
0818 
0819 
081A 
081B 
081C 
081C 
081D 
081E 
081F 
081F 
081F 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0828 
0828 
0828 
0828 
0828 
0828 
0829 
082A 
082B 
082C 
082D 
08 2E 
082F 



295B A 



83FF A 

5CFE A 

1301 A 

212E A 

814C A 

5000 A 

1109 A 

83FF A 

6027 B 

1506 A 

8300 A 

602C B 

1103 A 

813C A 
A3FE A 
79 3A A 



8141 A 

1301 A 

211F A 

83FF A 



$300: 



6027 B 

1503 A 

8300 A 

602C B 

1119 A 



$3A; 



8300 A 
291F A 
A13B A 
83FF A 
291C A 
A139 A 
8300 A 
87FD A 



$5: 



ST 

LD 

LD 

JSR 

LD 

LD 

JSR 

RTS 



ST 

SKNE 

RTS 

LD 

BOC 

JMP 

JSR 



R0, $GLBN 

R3,TOPA 

R2,NEXTA 

SCANST 

R3,TOPB 

R2,NEXTB 

SCANST 



R2,$LAST 

R3,$LAST 

R0,$MG 
B1E01..+2 
$300 
MAP I, IN 



; GLOBAL NUMBER 



;NO MAP 



FINISHED MAP, IS THIS A GLOBAL 

LD R0,-1(R3) 

SHR R0,2 

BOC ODD,. +2 ;YES GLOBAL 

JMP $6 ;NO GLOBAL 

SHOULD WE ASSIGN GLOBAL A NUMBER 

LD R0,$FLAG 

CAI R0,0 

BOC Z , $ 3A 

LD R0,-1(R3) 

AND R0,K3 

BOC NZ,$3A 

LD R0,0(R3) 

AND R0,K4 

BOC Z,$3A 

ASSIGN GLOBAL NUMBER 

LD R0,$GLBN 

ST R0,-2(R3) 

ISZ SGLBN 

SHOULD WE OUTPUT GLOBALS? 



?NO 



?NO 



;lobal NOT USED 



LD 

BOC 

JMP 

LD 

AND 

BOC 

t r> 

AND 
BOC 



R0,$MG 

ODD,. +2 

$6 

R0,-1(R3) 

R0,K3 

NZ,$5 

R0,0{R3) 

R0,K4 

Z,$6 



;GLOBAL NOT REQUESTED 



OUTPUT GLOBAL SYMBOL IF ANY 



GLOBAL 


OUT CODE HERE 


******** 


LD 


R0,0(R3) 


JSR 


$CONV 


ST 


R0,GLBUF+3 


LD 


R0,-1(R3) 


JSR 


$CONV 


ST 


R0,GLBUF+4 


LD 


R0,0(R3) 


LD 


R1,-3(R3) 



3,3* 



IMPASM 



2006 0830 1301 A 

2007 0831 8448 B 

2008 0832 291D A 

2009 0833 A134 A 

2010 0834 83FE A 

2011 0835 A133 A 

2012 0836 83FF A 



2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

204 8 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 



0837 

0838 

0839 

083A 

083B 

083C 

083D 

083E 

083F 

0840 

0841 

0841 

0841 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0849 

0849 

0849 

084A 

084B 

084C 

084D 

084E 

084F 

0850 

0850 

0850 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0858 

0859 

8 5A 

085B 

085C 

085D 

085E 

085F 

0860 



6027 B 
1501 A 
4C04 A 
D026 B 
5C0E A 
A128 
4300 
8D23 
2CC6 



4700 A 



83FF 
611D 
A3FF 
8300 
6027 
50FE 
3300 
21C0 



5CFC A 
3181 A 
603B B 
5DFA A 
5D08 A 
3100 A 
C508 A 



4C00 A 
F448 B 
0200 A 
3481 A 
6424 B 
F434 B 
6042 B 
0200 A 

2020 A 
0000 A 
085B A 
085C A 
085D A 
464F A 
524D A 
0A7A A 
0861 A 



$6: 



$CONV: 



$CBZ: 



X2020: 

$GLBN: 

$NEXT: 

$PT: 

$CT: 

$F0: 

$RM: 

$RTB: 

$FLAG; 



BOC 


ODD, .+2 


LD 


Rl, BLANKS 


JSR 


$CBZ 


ST 


R0,GLBUF+5 


LD 


R0,-2(R3) 


ST 


R0,GLBUF+6 


LD 


R0 r -l(P3) 


AND 


R0,K3 


BOC 


NZ, .+2 


LI 


R0,4 


SUB 


R0,K1 


SHL 


R0,14 


ST 


R0,GLBUF+2 


PUSH 


R3 


LD 


R3,GLBUF-1 


JSR 


CKPNCH 


PULL 


R3 



BOTTOM OF LOOP 



LD 


R0,-1(R3) 


AND 


R0,$FLAG 


ST 


R0,-1(P3) 


LD 


R0,0(R3) 


AND 


R0,K3 


CAI 


R0,-2 


RADD 


R0,R3 


JMP 


$LOOP 


CONVERT 


6 BIT NAN 


SHR 


R0,4 


RCPY 


R0,R1 


AND 


R0,HEX3F 


SHR 


Rl,6 


SHL 


Rl,8 


RADD 


R0,R1 


ADD 


R1,X2020 



; RESET P BIT 



•UPDATE TABLE PTR, 



BIT NAME IK R0 TO 8 BIT NAME 



CONVERT BLANKS TO ZERO 



2065 0861 0862 A $MG: 

2066 0862 0863 A 

2067 0863 4005 A GLBUF: 



LI 

SKNE 

RTS 

RCPY 

AND 

SKNE 

AND 

RTS 

WORD 
WORD 
= .+1 
= .+1 
= .+1 
WORD 
WORD 
WORD 
= .+1 



= .+1 

WORD 
WORD 



P0,0 

Rl, BLANKS 

R1,R0 
R1,K255 
Rl, BLANK 
R0,XFF00 



02^20 



'FO' 
'RM' 
RELTB+1 



; GLOBAL NUMBER 



•FFFF IF MAP DIRECTIVE ELSE FFF7 



; MAP/GLOB INDICATOR 0=NONE l=GLOBAL 2=MAP 

.+1 

04005 
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2068 


0864 


086A A 


. = .+6 






2069 


086A 










2070 


086A 




PPINT 


1 MAP LINE 




2071 


086A 










2072 


086A 


MAPLIN: 








2073 


086A 


ADEF A 


ST 


R3,$NEXT 




2074 


086B 


7C71 B 


DSZ 


PGRL 




2075 


086C 


2102 A 


JMP 


.+3 




2076 


086D 


4F07 A 


LI 


R3,7 




2077 


086E 


2CD9 I 


JSR 


OPGSTR 


; OUTPUT PAGE STRI 


2078 


086F 


2CA8 I 


JSR 


NEWLIN 




2079 


0870 


9 


NEW ENTRY 




2080 


0870 


8DE9 A 


LD 


R3,$NEXT 




2081 


0871 


8300 A 


LD 


R0,0(R3) 




2082 


0872 


6029 B 


AND 


R0,K8 




2083 


C1Q7T 


nfli a 


BOC 


Z-$NLCL 


:NON LOCAL 


2084 


0874 


t 


LOCAL 


SYMBOL 




2085 


0874 


4C24 A 


LI 


R0, '$'/256 




2086 


0875 


2CE5 I 


JSR 


OICH 


;OUT $ (1ST CHAR) 


2087 


0876 


2104 A 


JMP 


$1 


; GO TO 2ND CHAR 


2088 


0877 


i 


NON LOCAL 




2089 


0877 


$NLCL: 








2090 


0877 


8300 A 


LD 


R0,0(R3) 




2091 


0878 


5CF6 A 


SHR 


R0,10 




2092 


0879 


C034 B 


ADD 


R0,HEX20 




2093 


087A 


2CE5 I 


JSR 


OICH 


;OUT 1ST CHAR 


2094 


087B 


8300 A $1: 


LD 


R0,0(R3) 




2095 


087C 


5CFC A 


SHR 


R0,4 




2096 


087D 


603B B 


AND 


R0,HEX3F 




2097 


087E 


C034 B 


ADD 


R0,HEX20 




2098 


087F 


2CE5 I 


JSR 


OICH 


;OUT 2ND CHAR 


2099 


0880 


83FF A 


LD 


R0 f -1 (R3) 




2100 


0881 


5CF6 A 


SHR 


R0,10 




2101 


0882 


C034 B 


ADD 


R0,HEX20 




2102 


0883 


2CE5 I 


JSR 


OICH 


;OUT 3RD CHAR 


2103 


0884 


83FF A 


LD 


R0,-1(R3) 




2104 


0885 


5CFC A 


SHR 


R0, 4 




2105 


0886 


603B B 


AND 


R0 f HEX3F 




2106 


0887 


C034 S 


ADD 


R0,HEX20 




2107 


0888 


2CE5 I 


JSR 


OICH 


;OUT 4TH CHAR 


2108 


0889 


f 


DO WE 


HAVE A LONG 


SYMBOL 


2109 


0889 


8300 A 


LD 


R0,0<R3) 




2110 


088A 


1302 A 


BOC 


ODD,$LONG 




2111 


088B 


t 


SHORT 


SYMBOL 




2112 


088B 


2CE6 I 


JSR 


02B 


;OUTPUT 2 BLANKS 


2113 


088C 


2102 A 


JMP 


$2 




2114 


088D 


i 


LONG 


SYMBOL 




2115 


088D 


8 3FD A $LONG: 


LD 


R0,-3<R3) 




2116 


088E 


2CC9 I 


JSR 


02CH 





2117 088F ; 

2118 088F ; 

2119 088F 2CE6 I S2: 

2120 0890 8300 

2121 0891 1401 

2122 0892 2105 

2123 0893 ; 

2124 0893 81C9 A $2A: 

2125 0894 2CC9 I 

2126 0895 81C8 A 

2127 0896 2CC9 I 

2128 0897 2109 A 

2129 0898 $2B: 

2130 0898 83FE A 



OUTPUT VALUE 

JSR 02B 

LD R0,0(R3) 

BOC BlEQl,$2A 

.IMP $2B 

FORM ENTRY 

LD R0,$FO 

JSR 02CH 

LD R0,$RM 

JSR 02CH 

JMP $7 



; OUTPUT 'FORM 



LD 



R0,-2(R3) 
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2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 

2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 



0899 
089A 
089B 
089C 
089D 
089E 
089F 
08A0 
08A1 
08A1 
08A2 
08A3 
08A4 
08A5 
08A6 
08A6 
08A6 

08A7 
08A7 
08A7 
08A7 
08A7 
08A7 
08A8 
08A9 
08AA 
08AB 
08AC 
08AD 
08AE 
08AF 
08B0 
08B1 
08B2 
08B3 
08B4 
08B5 
08B6 
08B7 
08B8 
08B9 
08BA 
08BB 
08BB 
08BB 
08BB 
08BC 
08BD 
08BE 
08BF 
08C0 
8C1 
08C2 
08C2 
08C2 
08C2 
08C3 
08C4 
08C5 
08C6 
08C6 
08C6 
08C6 



2CCD I 
2CE7 I 
8 3FF A 
602A B 
3281 A 
C9C0 A 
8200 A 
2CC9 I 

4C2A A 
8700 A 
742C B 
4C20 A 
2CE5 I 



1200 A $3: 



$7: 



2CE8 I IC1 
2CE9 I 
5C0A A 
C072 B 
A072 B 
2C9B 
214A 
2C9C 
2103 
F032 B 
2104 A 
7C5E B 
803E B $11: 
2CEA I 
210D A 
8072 B $12: 
C03E B 
A072 B 
2CEB I 
2108 A 



2CE8 I IC2: 
2CE9 I 
5C0A A 
C072 B $21: 
A072 B 
2C9B I 
2136 A 



2CEB I IC4: 
8072 B $41; 
855F A 
24EC I 



2CED I IC3: 



JSR 


OHEX 


JSR 


OIB 


LD 


R0,-1(R3) 


AND 


R0,K7 


RCPY 


R0,R2 


ADD 


R2,$RTB 


LD 


R0,0(R2) 


JSR 


02CH 


LI 


R0, '*'/256 


LD 


R1,0(R3) 


SKAZ 


R1,K4 


LI 


R0,' '/256 


JSR 


OICH 



; OUTPUT REL KEY 



FINISHED SPECIAL DEBUG CODE 



RTS 

.PAGE 
. LOCAL 

LD,ST 

JSR 

JSR 

SHL 

ADD 

ST 

JSR 

JMP 

JSR 

JMP 

SKNE 

JMP 

DSZ 

LD 

JSR 

JMP 

LD 

ADD 

ST 

JSR 

JMP 



'INSTRUCTION CLASS PROCESSING' 



EXPP2 

INERR 

R0 r 10 

R0, IVAL 

R0,IVAL 

GCOMMA 

$80 

GNVC 

$11 

R0,CAT 

$12 

INPTR 

R0,X1000 

GADRIX 

$41 

R0,IVAL 

R0,X1000 

R0,IVAL 

GADRX 

$41 



ADD, SUB ,SKG, SKNE 



JSR 

JSR 

SHL 

ADD 

ST 

JSR 

JMP 

ISZ,DSZ 

JSR 

LD 

LD 

JMP 



EXPP2 

INERR 

R0,10 

R0,IVAL 

R0,IVAL 

GCOMMA 

$80 



GADRX 
R0, IVAL 
R1,IREL 
INOUT 



REG,@ADR(X) 



; INPUT CHAR PTP 

;GET ADR , ALLOW INDIRECT, ALLOW INDEX 

;SET INDIRECT 
REG,ADR(X) 



AND, OR, SKAZ 
JSR EXPP1 



ADR(X) 

;GET ADR,X OK, NO INDIRECT ALLOWED 

; INSTRUCTION RELOCATION MODE 

REG0/1,ADR(X) 
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2194 08C7 2CE9 I 

2195 08C8 5C0A A 

2196 08C9 21F4 A 

2197 08CA 

2198 08CA 

2199 08CA 



JSR 


INERR 


SHL 


R0,10 


JMP 


$21 



NOP , PULLF , PUSHF , HALT 



2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 



08CA 

08CB 

08CC 

08CC 

08CC 

08CC 

08CD 

08CE 

08CF 

08CF 

08CF 

08CF 

08D0 

08D1 

08D2 

08D3 

08D4 

08D4 

08D4 

08D4 

08D5 

08D6 

08D7 

08D8 

08D9 

08DA 

08DB 

08DC 

08DD 

08DE 

08DF 

08DF 

08DF 

08DF 

08E0 

08E1 

08E2 

08E3 

08E4 

08E5 

08E6 

08E7 

08E8 

08E9 

08EA 

08EB 

08EC 

08EC 

08EC 

08EC 

08ED 

08EE 



8072 B IC5: 
24EE I 



15FD A IC5A: 
2CEF I 
21FB A 



LD 

JMP 

ISCAN 



R0 r IVAL 
INABS 



BOC NZ,IC5 
JSR QERROR 
JMP IC5 

PUSH, PULL, XCHRS 



2CE8 I 
2CE9 I 
5C08 A 
C072 B 
24EE I 



2CE8 I 
2CE9 I 
5C08 A 
C072 B 
A072 B 
2C9B I 
211D A 
2CF0 I 
2CE9 I 
C072 B 
24EE I 



2CE8 I 
2CE9 I 
5C08 A 
C072 B 
A072 B 
2C9B I 
2112 A 
2CF0 I 
2CE9 I 
5001 A 
6024 B 
C072 B 
24EE I 



2CE8 I 
2CE9 I 
5C0A A 



IC6: 



JSR 


EXPP2 


JSR 


INERR 


SHL 


R0,8 


ADD 


R0,IVAL 


JMP 


INABS 



IC7: 



IC7A: 



IC8: 



2252 08EF C072 B 

2253 08F0 A072 B 

2254 08F1 2C9B I 

2255 08F2 2105 A 



AISZ,LI,CAI,ROL,SHL 



NO ARG 

;INSTR. ABS 
NO ARG 
;EXTD OK 

REG 

; INSTR ERROR 

REG,IMMED 8 BIT 



JSR 


EXPP2 


JSR 


INERR 


SHL 


R0,8 


ADD 


R0,IVAL 


ST 


R0 , IVAL 


JSR 


GCOMMA 


JMP 


$80 


JSR 


EXP8 


JSR 


INERR 


ADD 


R0,IVAL 


JMP 


INABS 


ROR,SHF 




JSR 


EXPP2 


JSR 


INERR 


SHL 


R0,8 


ADD 


R0 , IVAL 


ST 


R0,IVAL 


JSR 


GCOMMA 


JMP 


$80 


JSR 


EXP8 


JSR 


INERR 


CAI 


R0,1 


AND 


R0,K255 


ADD 


R0,IVAL 


JMP 


INABS 



nnn T\M\IT?r\ O DT11 

RUtif mnt'U v ox j. 



RADD , RXCH , RCPY , RXOR , RAND 



REG, REG 



JSR 


EXPP2 


JSR 


INERR 


SHL 


R0,10 


ADD 


R0,IVAL 


ST 


R0,IVAL 


JSR 


GCOMMA 


JMP 


$80 



37 



I MP ASM 



2256 


08F3 


2CE8 


I 




J3R 


EXPP2 






2257 


08F4 


297B 


A 




JSP 


INERR 






2258 


08F5 


5C08 


A 




SHL 


R0 f 8 






2259 


08F6 


C072 


B 




ADD 


R0, IVAL 






2260 


08F7 


24EE 


I 




JMP 


INABS 






2261 


08F8 






f 










2262 


08F8 


2CF1 


I 


$80: 


JSR 


MERROR 






2263 


08F9 


8072 


B 




LD 


R0,IVAL 






2264 


08FA 


24EE 


I 




JMP 


INABS 






2265 


08FB 
















2266 


08FB 








JMP, JSR 




@ADR(X) 




2267 


08FB 

















2268 


08FB 


2C9C 


I 


IC9: 


JSR 


GNVC 






2269 


08FC 


2103 


A 




JMP 


$91 


jNONE 




2270 


08FD 


F032 


B 




SKNE 


R0,CAT 






2271 


08FE 


2104 


A 




JMP 


$92 






2272 


08FF 


7C5E 


8 




DSZ 


INPTR 


; INPUT CHAR PTR 




2273 


0900 


803D 


B 


$91: 


LD 


R0,HEX400 






2274 


0901 


2CEA 


I 




JSR 


GADRIX 






2275 


0902 


21C0 


A 




JMP 


$41 






2276 


0903 


8072 


B 


$92: 


LD 


R0,IVAL 






2277 


0904 


C03D 


B 




ADD 


R0,HEX400 






2278 


0905 


A072 


B 




ST 


R0, IVAL 






2279 


0906 


297B 


A 




JSR 


GADRX 






2280 


0907 


21BB 


A 




JMP 


$41 






2281 


0908 
















2282 


0908 








SFLG,PFLG 


POS3,POS7 




2283 


0908 
















2284 


0908 


2CF2 


I 


IC10: 


JSR 


EXPP3 






2285 


0909 


2966 


A 




JSR 


INERR 






2286 


090A 


5C0 8 


A 




SHL 


R0 f 8 






2287 


090B 


C072 


B 




ADD 


R0,IVAL 






2288 


090C 


A072 


B 




ST 


R0,IVAL 






2289 


090D 


2C9B 


I 




JSR 


GCOMMA 






2290 


090E 


24EE 


I 




JMP 


INABS 






2291 


090F 


2CF3 


I 




JSR 


EXPP7 






2292 


0910 


3081 


A 




NOP 








2293 


0911 


C072 


B 




ADD 


R0,IVAL 






2294 


0912 


24EE 


I 




JMP 


INABS 






2295 


0913 
















2296 


0913 








BOC 




POS4, SPADR 




2297 
2298 


0913 
0913 
















2CF4 


I 


IC11: 


JSR 


EXPP4 






2299 


0914 


295B 


A 




JSR 


INERR 






2300 


0915 


5CB8 


A 




SHL 


R0,8 






2301 


0916 


C072 


B 




ADD 


R0, IVAL 






2302 


0917 


A072 


B 




ST 


R0,IVAL 






2303 


0918 


2C9B 


I 




JSR 


GCOMMA 






2304 


0919 


295F 


A 




JSR 


MERROR 






2305 


091A 


2CBB 


I 




JSR 


EXP 






2306 


091B 


2954 


A 




JSR 


INERR 






2307 


091C 


2CF5 


I 




JSR 


SPADR 






2308 


091D 


2103 


A 




JMP 


$111 


;NOT VALID SOECIAL ADR 




2309 


091E 


D03F 


B 




SUB 


R0,K256 






2310 


091F 


A072 


B 




ST 


R0,IVAL 






2311 


0920 


24EE 


I 




JMP 


INABS 






2312 


0921 


2955 


A 


$111: 


JSR 


ADRERR 






2313 


0922 


8072 


E 




LD 


R0,IVAL 






2314 


0923 


24EE 


I 




JMP 


INABS 






2315 


0924 


0925 


A 


IREL: 


. = .+1 




; INSTRUCTION RELOCATION 


MODE 


2316 


0925 
















2317 


0925 








RTS,RTI 


,RIN,ROUT 


POS7 




2318 


0925 
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2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 



0925 
0926 
0927 
0928 
0929 
0929 
0929 
0929 
092A 
092B 
092C 
092D 
092E 
092F 
092F 
092F 
092F 
092F 
0930 
0931 
0931 
0932 
0933 
0934 
0935 
0935 
0935 
0935 
0936 
0937 
0937 
0937 
0937 
0938 
0939 
093A 
093A 



2CF3 
3081 
C072 
24EE 



1501 
2945 
2CF3 
294C 
C072 
24EE 



1501 
2944 

2CF4 
293D 
C072 
24EE 



291A 
24EC 



2918 
5C01 
2103 



I IC12: 

A 
B 
I 



JSR 
NOP 
ADD 
JMP 

JSRP 



EXPP7 

R0,IVAL 
INABS 



POS7 



IC12A: 



A IC13A: 
A 

I IC13: 

A 

B 

I 



A IC14 
I 



A IC15: 

A 

A 



BOC 


NZ, .+2 


JSR 


INERR 


JSR 


EXPP7 


JSR 


MERROR 


ADD 


R0,IVAL 


JMP 


INABS 



JINT,SETST,CLRST,SETBIT,CLRBIT,CMPBIT,JMPP 

POS4 



BOC 
JSR 

JSR 
JSR 
ADD 
JMP 



NZ f IC13 
OERROR 

EXPP4 
INERR 
R0,IVAL 
INABS 



MPY,DIV,DADD,DSUB 



JSR 
JMP 



DBWIN 
INOUT 



LDB,STB,LLB,SLB 

JSR DBWIN 
SHL R0,1 
JMP IC16A 

LRB,SRB 



;EXTD OK 



ADR(X) 



ADR(X) 



ADP(X) 



2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 



093A 
093A 
093B 
093C 
093D 
09 3E 
093F 
0940 
0941 
0941 
0941 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
094A 
094B 
094C 
094D 
094E 
094F 



2915 A IC16: 
5C01 A 
C026 B 

F426 B IC16A: 
24EC I 
2937 A 
24EC I 



2CBB I 
292D A 
F426 B 
2103 A 
2931 A 
8072 3 
24EE I 
683A B 
5000 A 
15FA A 
807A B 
5C09 A 
5CF7 A 
C072 B 
24EE I 



IC17: 



JSR 

SHL 

ADD 

SKNE 

JMP 

JSR 

JMP 

JSPI 

JSR 

JSR 

SKNE 

JMP 

JSR 

LD 

JMP 

OR 

CAI 

BOC 

LD 

SHL 

SHR 

ADD 

JMP 



DBWIN 

R0,1 

R0,K1 

R1,K1 

INOUT 

ADRERR 

INOUT 



EXP 

INERR 

R1,K1 

.+4 

ADRERR 

R0,IVAL 

INABS 

R0,HEX7F 

R0,0 

NZ, .-5 

R0 f EXPVAL 

R0, 9 

R0,9 

R0,IVAL 

INABS 



ADR 



SPECIAL VALUE 



EXPRESSION VALUE 
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2382 


0950 












2383 


0950 








DOUBLE 


WORD INSTR 


2384 


0950 












2385 


0950 






DBWIN: 






2386 


0950 


1501 


A 




BOC 


NZ, .+2 


2387 


0951 


2923 


A 




JSR 


QERROR 


2388 


0952 


2CBB 


I 




JSR 


EXP 


2389 


0953 


2925 


A 




JSR 


MERROR 


2390 


0954 


A119 


A 




ST 


R0,$VAL 


2391 


0955 


A519 


A 




ST 


Rl,$REL 


2392 


0956 


2C9C 


I 




JSR 


GNVC 


2393 


0957 


2110 


A 




JMP 


$NOX 


2394 


0958 


F046 


B 




SKNE 


R0,LPAREN 


2395 


0959 


2102 


A 




JMP 


.+3 


2396 


095A 


7C5E 


B 




DSZ 


INPTR 


2397 


095B 


210C 


A 




JMP 


$NOX 


2398 


095C 






f 


INDEXING USED 


2399 


095C 


2CE8 


I 




JSR 


EXPP2 


2400 


095D 


291B 


A 




JSR 


MERROR 


2401 


095E 


E026 


B 




SKG 


R0,K1 


2402 


095F 


291B 


A 




JSR 


VERROR 


2403 


0960 


5C08 


A 




SHL 


R0 r 8 


2404 


0961 


C072 


B 




ADD 


R0 r IVAL 


2405 


0962 


A072 


B 




ST 


R0,IVAL 


2406 


0963 


2C9C 


I 




JSR 


GNVC 


2407 


0964 


2918 


A 




JSR 


$XERR 


2408 


0965 


F043 


B 




SKNE 


R0,RPAREN 


2409 


0966 


2101 


A 




JMP 


.+2 


2410 


0967 


2915 


A 




JSR 


SXERR 


2411 


0968 


8072 


B 


$NOX: 


LD 


R0,IVAL 


2412 


0969 


4D01 


A 




LI 


Rl,l 


2413 


096A 


2CAE 


I 




JSR 


OUTWRD 


2414 


096B 


8102 


A 




LD 


R0,$VAL 


2415 


096C 


8502 


A 




LD 


R1,$REL 


2416 


096D 


0200 


A 




RTS 




2417 


096E 






i 






2418 


096E 


096F 


A 


$VAL: 


. = .+1 




2419 


096F 


0970 


A 


$REL: 


. = .+1 




2420 


0970 












2421 


0970 








INSTRUCTION ERROR 


2422 


0970 












2423 


0970 


4C00 


A 


INERR: 


LI 


R0,0; 


2424 


0971 






INERR1: 






2425 


0971 


2CAD 


I 




JSR 


ERROR 


2426 


0972 


80 7 A 


B 




LD 


R0,EXPVAL 


2427 


0973 


847C 


B 




LD 


R1,EXPREL 


2428 


0974 


0200 


A 




RTS 




2429 


0975 






t 






2430 


0975 


4C36 


A 


OERROR: 


LI 


R0,54; 


2431 


0976 


24AD 


I 




JMP 


ERROR 


2432 


0977 






f 






2433 


0977 


4C0C 


A 


ADRERR: 


LI 


R0,12; 


2434 


0978 


21F8 


A 




JMP 


INERR1 


2435 


0979 






/ 






2436 


0979 


4C00 


A 


MERROR: 


LI 


R0,0; 


2437 


097A 


21F6 


A 




JMP 


INERR1 


2438 


097B 






i 






2439 


097B 


4C06 


A 


VERROR: 


LI 


R0,6; 


2440 


097C 


21F4 


A 




JMP 


INERR1 


2441 


097D 






1 






2442 


097D 


4C18 


A 


$XERR: 


LI 


R0,24; 


2443 


097E 


21F2 


A 




JMP 


INERR1 



;NO INDEXING 



; INPUT CHAR PTR 
;NO INDEXING 



MISSING ARGUMENT ERROR 



EXPRESSION VALUE 
EXPRESSION RELOCATION MODE 



EXTENDED INSTR. ERROR 



ADDRESS ERROR 



MISSING ARG. ERROR 



VALUE ERROR 



SYNTAX ERROR 
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2444 097F 




.PAGE 


'ADDRESS 


2445 097F 




. LOCAL 




2446 097F 4C00 A 


GADR: 


LI 


R0,0 


2447 0980 4D00 A 


GADRI: 


LI 


R1,0 


2448 0981 2102 A 




JMP 


$ADR 


2449 0982 


t 






2450 0982 


i 






2451 0982 4C00 A 


GADRX: 


LI 


R0, 


2452 0983 4D01 A 


GADRIX: 


: LI 


Rl,l 


2453 0984 


i 






2454 0984 A17C A 


$ADR: 


ST 


R0, $IFLAG 


2455 0985 A57C A 




ST 


R1,$XFLAG 


2456 0986 2CBB I 




JSR 


EXP 


2457 0987 214B A 




JMP 


$MERR 


2458 0988 847C B 




LD 


Rl,EXPREL 


2459 0989 A59A A 




ST 


R1,IREL 


2460 098A 2CE0 I 




t r* t\ 


PIP 2 


2461 098B 0200 A 




RTS 




2462 098C 


• 


PASS 2 




2463 098C 807C B 




LD 


R0,EXPREL 


2464 098D 1503 A 




BOC 


NZ,$DEF 


2465 098E 


t 


UNDEFINED 


2466 098E 4C2A A 




LI 


R0,42; 


2467 098F 2CAD I 




JSR 


ERROR 


2468 0990 0200 A 




RTS 




2469 0991 


i 






2470 0991 F026 B 


$DEF: 


SKNE 


R0,K1 


2471 0992 2107 A 




JMP 


$ABS 


2472 0993 F040 B 




SKNE 


R0,K2 


2473 0994 2166 A 




JMP 


$BSECT 


2474 0995 F027 B 




SKNE 


R0,K3 


2475 0996 2134 A 




JMP 


STSECT 


2476 0997 F02C B 




SKNE 


R0,K4 


2477 0998 2162 A 




JMP 


$EXT 


2478 0999 0000 A 




HALT 




2479 099A 


i 






2480 099A 


i 






2481 099A 2C9C I 


$ABS: 


JSR 


GNVC 


2482 099B 2103 A 




JMP 


,+4 


2483 099C 7C5E B 




DSZ 


INPTR 


2484 099D F046 B 




SKNE 


R0,LPAREN 


2485 099E 2106 A 




JMP 


$ABS1 


2486 099F 807A B 




LD 


R0,EXPVAL 


2487 09A0 1201 A 




BOC 


P,.+2 


2488 09A1 2108 A 




JMP 


$2 


2489 09A2 E024 B 




SKG 


R0,K255 


2490 09A3 210A A 




JMP 


$3 


2491 09A4 2105 A 




JMP 


$2 


2492 09A5 807A B 


$ABS1: 


LD 


R0,EXPVAL 


2493 09A6 E15E A 




SKG 


R0,KM129 


2494 09A7 2102 A 




JMP 


$2 


2495 09A8 E03A B 




SKG 


R0,HEX7F 


2496 09A9 2104 A 




JMP 


$3 


2497 09AA 295B A 


$2: 


JSR 


SPADR 


2498 09AB 2122 A 




JMP 


$TRYI 


2499 09AC 0200 A 




RTS 




2500 09AD 


f 


ADDRESS 


OK 


2501 09AD 807A B 


$ADROK: 


LD 


R0,EXPVAL 


2502 09AE 6024 B 


$3: 


AND 


R0,K255 


2503 09AF C072 B 




ADD 


R0, IVAL 


2504 09B0 A072 B 




ST 


R0,IVAL 


2505 09B1 8150 A 




LD 


R0, SXFLAG 


2506 09B2 1501 A 




BOC 


NZ,$XOK 



;NO INDIRECT PERMITTED 
;NO INDEXING PERMITTED 



?NO INDIRECT PERMITTED 
; INDEXING PERMITTED 



SAVE RELOC MODE FOR DISPLACEMENT 



; EXPRESSION RELOCATION MODE 



UNDEFINED ERROR 



?UNDEFINED ARG. E 



;MY ERROR - REL MODE NOT TO 4 



; EXPRESSION VALUE 



;SECIAL ADR-RELATIVF TO PC OK? 

;NO - TRY INDIRECT 

;YES 

EXPRESSION VALUE 



;INDEXING OK 
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2507 09B3 0200 A 


RTS 




2508 09B4 ; 


INDEXING OK 


2509 09B4 2C9C I $XOK: 


JSR 


GNVC 


2510 09B5 0200 A 


RTS 




2511 09B6 F046 B 


SKNE 


R0,LPAREN 


2512 09B7 2102 A 


JMP 


$LP 


2513 09B8 7C5E B 


DSZ 


INPTR 


2514 09B9 0200 A 


RTS 




2515 09BA ; 






2516 09BA ; 


LEFT 


PAREN 


2517 09BA 2971 A $LP: 


JSR 


EXPP2 


2518 09BB 2109 A 


JMP 


$VERR 


2519 09BC 1401 A 


BOC 


BlEQl,.+2 


2520 09BD 2107 A 


JMP 


$VERR 


2521 09BE 5C0.-8; A 


SHL 


R0,8 


2522 09BF C072 B 


ADD 


R0,IVAL 


2523 09C0 A072 B 


ST 


R0,IVAL 


2524 09C1 2C9C I 


JSR 


GNVC 


2525 09C2 2102 A 


JMP 


$VERR 


2526 09C3 F043 B 


SKNE^ 


R0,RPAREN 


2527 09C4 0200 A 


RTS 




2528 09C5 ; 






2529 09C5 ; 






2530 09C5 4C06 A $VERR: 


LI 


R0,6; 


2531 09C6 2CAD I 


JSR 


ERROR 


2532 09C7 4D01 A $ERET: 


LI 


Rl, 1 


2533 09C8 A47C B 


ST 


Rl,EXPREL 


2534 09C9 B4F6 I 


ST 


Rl,IREL 


2535 09CA 0200 A 


RTS 




2536 89CB ; 






2537 09CB ; 


EXP 


REL = TSECT 


2538 09GB 806B B $TSECT: 


LD 


R0,SECT 


2539 09CC F027 B 


SKNE 


R0,K3 


2540 09CD 21DC A 


JMP 


$2 


2541 09CE ; 


TRY 


INDIRECT 


2542 09CE 8132 A $TRYI: 


LD 


R0,$IFLAG 


2543 09CF 1506 A 


BOC 


NZ, $IOK 


2544 09D0 ; 


INDIRECT NOT OK 


2545 09D0 4C0C A $AERR: 


LI 


R0,12; 


2546 09D1 2CAD I 


JSR 


ERROR 


2547 09D2 21F4 A 


JMP 


SERET 


2548 09D3 ; 






2549 09D3 4C00 A $MERR: 


LI 


R0,0; 


2550 09D4 2CAD I 


JSR 


ERROR 


2551 09D5 0200 A 


RTS 




2552 09D6 ? 






2553 09D6 ; 


INDIRECT OK - GENE 


2554 09D6 ; 


GENERATE POINTER 


2555 09D6 $IOK: 






2556 09D6 8072 B 


LD 


R0,IVAL 


2557 09D7 C129 A 


ADD 


R0,$IFLAG 


2558 09D8 A072 B 


ST 


R2,IVAL 


2559 09D9 8145 A 


LD 


R0,$CI 


2560 09DA B0B1 I 


ST 


R0,RELTB+3 


2561 09DB 2CE0 I 


JSR 


P1P2 


2562 09DC 2117 A 


JMP 


SIOK1 


2563 09DD 8D25 A 


LD 


R3,PTABF 


2564 09DE 847C B 


LD 


R1,EXPREL 


2565 09DF ; 


TOP 


OF LOOP 


2566 09DF 8B01 A $I0K5: 


LD 


R2,1(R3) 


2567 09E0 8300 A 


LD 


R0,0(R3) 


2568 09E1 1108 A 


BOC 


Z, $IOK2 


2569 09E2 3482 A 


PXOR R1,R0 



; INPUT CHAR PTR 



; INDEX VALUE ERROR 



;SET INDEX FIELD 



VALUE ERROR 



; VALUE ERROR 



j EXPRESSION RELOCATION MODE 



;SECT = TSECT? 
;YES 



; INDIRECT OK 

ADDRESS ERROR 
; ADDRESSING ERROR 
; ERROR RETURN 



MISSING ARG. ERROR 



[REPLACE B WITH I IN REL TABLE 

fPASSl 

: EXPRESSION RELOCATION MODE 



;ADD NEW ENTPY 
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2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 

2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 



09E3 
09E4 
09E5 
09E6 
09E6 
09E6 
09E7 
09E8 
09E9 
09EA 
09EA 
09EB 
09EC 
09ED 
09EE 
09EF 
09EF 
09F0 
09F1 
09F2 
09F3 
09F4 
09F4 
09F5 
09F6 
09F7 
09F8 
09F8 
09F9 
09FA 

09FB 
09FB 
09FB 
09FB 
09FB 
09FB 
09FB 
09FB 
09FC 
09FD 
09FE 
09FF 
0A00 
0A01 
0A01 
0A02 
0A03 
0A04 
0A05 
0A06 
0A06 
0A06 
0A06 
0A06 
0A06 
0A07 
0A08 
0A09 
0A0A 
0A0B 
0A0C 
0A0D 
0A0E 



1502 A 
F87A S 
2109 A 



SI0K3 



4E02 A 
FD1C A 
210F A 
21F5 A 

A700 A $I0K2; 
807A B 
A301 A 
4C00 A 
A302 A 



$I0K4i 



DD13 A 
5FFF A 
CC5A 3 
CC72 B 
AC72 B 



4D02 A SI0K1: 
A47C B 
B4F6 I 
0200 A 

4C24 A $I0K6: 
2CAD I 
21F9 A 



$EXT: 



807A B SBSECT: 
1201 A 
21D2 A 
E024 B $10: 
21AD A 
21CF A 

0A02 A $IFLAG: 
0A0 3 A $XFLAG: 
0199 A PTABF: 
01D9 A PTABL: 
FF7F A KM129: 



2C9C I SPADR 
2103 A 
7C5E B 
F046 B 
0200 A 
806B B $50: 
F07C B 
2101 A 
0200 A 



BOC NZ,$IOK3 
SKNE R2,EXPVAL 
JMP $IOK4 
NEXT3ENTRY 

AISZ R3,2 
SKNE R3 r PTABL 
JMP $IOK6 
JMP $IOK5 
ADD3NEW3ENTRY 
ST R1,0(R3) 
LD R0,EXPVAL 
ST R0,1(R3) 
LI R0,0 
ST R0,2(R3) 
ENTRY 3 FOUND 



;NEXT 

; EXPRESSION VALUE 

; FOUND 



;TABLE30VERFLOW 
;GOT03TOP30F3LOOP 



; EXPRESSION VALUE 



SUB 

SHR 

ADD 

ADD 

ST 

RETURN 

LI 

ST 

ST 

RTS 

TABLE30VERFLOW 

LI R0,36; 

JSP ERROR 

JMP SIOK1 



R3, PTABF 

R3,l 

R3 f BMAX 

P3,IVAL 

R3,IVAL 

Rl,2 

R1,EXPREL 

R1,IREL 



; EXPRESSION RELOCATION MODE 

ERROR TABLE OVERFLOW 
; RETURN 



END OF POINTER GENERATION 



EXP REL = EXTERNAL 



EXP REL 

LD 

BOC 

JMP 

SKG 
JMP 
JMP 

. = .+1 
. = .+1 

.WORD 
.WORD 
.WORD 



= BSECT 

R0,EXPVAL 

P,$10 

$AERR 

F.0,K255 

$ADROK 

$AERR 



PTRTAB 

PTREND-1 

-129 



EXPRESSION VALUE 



;OK - ADR IN RANGE TO 2 55 



; INDIRECT FLAG - 0=NOT ALLOWED 
; INDEX FLAG - 0=NOT ALLOWED 



SPECIAL ADR ? 



JSR 

JMP 

DSZ 

SKNE 

RTS 

LD 

SKNE 

JMP 

RTS 



GNVC 

$50 

INPTR 

R0 f LPAREN 

R0,SECT 

R0,EXPPEL 

$51 



JSR SPADR 
NO 
YES 



? INPUT CHAR PTR 



jEYPPESSION RELOCATION MODE 
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2633 0A0F 807A B 


$51: 


LD 


R0,EXPVAL 


2634 0A10 D05C B 




SUB 


P0,LOCCTR 


2635 0A11 D026 B 




SUB 


R0,K1 


2636 0A12 E1F2 A 




SKG 


R0,KM129 


2637 0A13 0200 A 




RTS 




2638 0A14 E03A B 




SKG 


R0,HEX7F 


2639 0A15 2101 A 




JMP 


$52 


2640 0A16 0200 A 




RTS 




2641 0A17 6024 B 


$52: 


AND 


R0 f K255 


2642 0A18 C03F B 




ADD 


R0,K256 


2643 0A19 C072 B 




ADD 


R0,IVAL 


2644 0A1A A072 B 




ST . 


R0,IVAL 


2645 0A1B 4D01 A 




LI 


Rl,l 


2646 0A1C A47C B 




ST 


R1,EXPREL 


2647 0A1D B4F6 I 




ST 


R1,IREL 


2648 0A1E 0201 A 




RTS 


1 


2649 0A1F 


; 






2650 0A1F 2049 A 


$CI: 


.WORD 


' I ' 


2651 0A20 




.PAGE 


'SPECIAL E 


2652 0A20 




. LOCAL 




2653 0A20 








2654 0A20 








2655 0A20 








2656 0A20 4C00 A 


EXPABS: 


LI 


R0,0 


2657 0A21 


$4: 






2658 0A21 4D01 A 




LI 


Rl,l 


2659 0A22 2112 A 




JMP 


$EXPN 


2660 0A23 


r 






2661 0A23 8030 B 


EXPP: 


LD 


R0,X8000 


2662 0A24 4D00 A 


$5: 


LI 


R1,0 


2663 0A25 210F A 




JMP 


$EXPK 


2664 0A26 


9 






2665 0A26 802E B 


EXP4: 


LD 


R0,XFFF0 


2666 0A27 21F9 A 




JMP 


$4 


2667 0A28 


t 






2668 0A28 8042 B 


EXP8: 


LD 


R0,XFF00 


2669 0A29 21F7 A 




JMP 


$4 


2670 0A2A 


t 






2671 0A2A 4CFE A 


EXPP1: 


LI 


R0,-2 


2672 0A2B 21F8 A 




JMP 


$5 


2673 0A2C 


t 






2674 0A2C 4CFC A 


EXPP2: 


LI 


R0,-4 


2675 0A2D 21F6 A 




JMP 


$5 


2676 0A2E 


r 






2677 0A2E 4CF8 A 


EXPP3: 


LI 


R0,-8 


2678 0A2F 21F4 A 




JMP 


$5 


2679 0A30 


t 






2680 0A30 4CF0 A 


EXPP4: 


LI 


R0,-16 


2681 0A31 21F2 A 




JMP 


$5 


2682 0A32 


t 






2683 0A32 4C80 A 


EXPP7: 


LI 


R0,-128 


2684 0A33 21F0 A 




JMP 


$5 


2685 0A34 


; 






2686 0A34 


; 


EXP WITH MASK IN 


2687 0A34 4D01 A 


EXPFRM 


: LI 


Rl,l 


2688 0A35 








2689 0A35 




MASK 


IN R0, FLAG 


2690 0A35 








2691 0A35 A11E A 


$EXPN: 


ST 


R0,$MASK 


2692 0A36 A51E A 




ST 


Rl,$FLAG 


2693 0A37 2CBB I 




JSR 


EXP 


2694 0A38 0200 A 




RTS 





2695 0A39 847C B 




LD 


R1,EXPREL 



EXPRESSION VALUF 



; -129 



EXPRESSION RELOCATION MODE 



;POS/NEG OK 

;POS ONLY 
;0FFF0 



;0=POS 

;NO EXP 

EXPRESSION RELOCATION MODE 
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2696 0A3A E426 B 


SKG 


R1,K1 


2697 0A3B 2109 A 


JMP 


$1 


2698 0A3C ; 


ERROR - 


SIZE 


2699 0A3C 4C06 A $2: 


LI 


R0,6; 


2700 0A3D 2CAD I 


JSR 


ERROR 


2701 0A3E 4C00 A 


LI 


R0,0 


2702 0A3F 4E01 A 


LI 


R2,l 


2703 0A40 A07A B 


ST 


R0 f EXPVAL 


2704 0A41 A87B B 


ST 


R2,EXPPD 


2705 0A42 A07C B 


ST 


R0,EXPREL 


2706 0A43 847C B 


LD 


Rl,EXPREL 


2707 0A44 0201 A 


RTS 


1 


2708 0A45 ; 






2709 0A45 850E A $1: 


LD 


R1,$MASK 


2710 0A46 3483 A 


RAND 


R1,R0 


2711 0A47 1106 A 


BOC 


Z,$3 


2712 0A48 810C A 


LD 


R0,$FLAG 


2713 0A49 11F2 A 


BOC 


Z,$2 


2714 0A4A ; 


NEGATIVE OK 


2715 0A4A 807A B 


LD 


R0,EXPVAL 


2716 0A4B 3483 A 


RAND 


R1,R0 


2717 0A4C 3482 A 


RXOR 


Rl r R0 


2718 0A4D 15EE A 


BOC 


NZ,$2 


2719 0A4E ; 


VALUE OK 


2720 0A4E 8105 A $3: 


LD 


R0,$MASK 


2721 0A4F 5000 A 


CAI 


R0,0 


2722 0A50 607A B 


AND 


R0,EXPVAL 


2723 0A51 847C B 


LD 


R1,EXPREL 


2724 0A52 887B B 


LD 


R2,EXPPD 


2725 0A53 0201 A 


RTS 


1 


2726 0A54 ; 






2727 0A54 0A55 A $MASK: 


. = .+1 




2728 0A55 0A56 A $FLAG: 


. = .+1 




2729 0A56 


.PAGE 


'OUTPUT DJ 


2730 0A56 


. LOCAL 




2731 0A56 ; 






2732 0A56 A12B A OUTWRD: 


ST 


R0 , $WRD 


2733 0A57 A52B A 


ST 


Rl , $REL 


2734 0A58 805D B 


LD 


R0,PASS 


2735 0A59 1301 A 


BOC 


ODD, .+2 


2736 0A5A 2116 A 


JMP 


$3 


2737 0A5B 806A B 


LD 


R0,MOFLAG 


2738 0A5C 1106 A 


BOC 


Z,$l 


2739 0A5D 7C71 B 


DSZ 


PGRL 


2740 0A5E 2102 A 


JMP 


.+3 


2741 0A5F 4F07 A 


LI 


R3,7 


2742 0A60 2CD9 I 


JSR 


OPGSTR 


2743 0A61 2972 A 


JSR 


NEWLIN 


2744 0A62 2943 A 


JSR 


06B 


2745 0A63 805C B SI: 


LD 


R0,LOCCTR 


2746 0A64 2931 A 


JSR 


OBEX 


2747 0A65 2944 A 


JSR 


OIB 


2748 0A66 811B A 


LD 


R0,$WRD 


2749 0A67 292E A 


JSR 


OHEX 


2750 0A6R 8D1A A 


LD 


R3,$REL 


2751 0A69 EC2C B 


SKG 


R3,K4 


2752 0A6A 2101 A 


JMP 


.+2 


2753 0A6B DC2C B 


SUB 


R3,K4 


2754 0A6C CD0C A 


ADD 


R3,$RELTB 


2755 0A6D 8300 A 


LD 


R0,0(R3) 


2756 0A6E 2966 A 


JSR 


02CH 


2757 0A6F 293A A 


JSR 


OIB 



;ABS OR UNDEF 
VALUE ERROR 



EXPRESSION VALUE 
PREV.DEF. 1=YES 
EXPRESSION RELOCATION MODE 
EXPRESSION RELOCATION MODE 



;OK 

; ERROR - WE NEED POSITIVE 
; EXPRESSION VALUE 

; ERROR 



EXPRESSION VALUE 
EXPRESSION RELOCATION MODE 
PREV.DEF. 1=YES 



; 0=POS NZ=POS/NEG 
'OUTPUT DATA WORD TO LIST AND BINARY 



JSR OUTWRD 



; MULTIPLE OUTPUT FLAG 
; PAGE REMAINING LINES 

^OUTPUT PAGE STRING 



'1ST NZ=SUBS£^ 
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2758 0A70 2CF7 I 

2759 0A71 785C B $3: 

2760 0A72 3081 A 

2761 0A73 810E A 

2762 0A74 890E A 

2763 0A75 2D02 A 

2764 0A76 3081 A 

2765 0A77 0200 A 

2766 0A78 0C6F A $L00WRD; 

2767 0A79 ; 

2768 0A79 y 

2769 0A79 RELTB: 

2770 0A79 0A7A A $RELTB: 

2771 0A7A 2055 A 
0A7B 2041 A 
0A7C 2042 A 
0A7D 2054 A 
0A7E 2058 A 
0A7F 4741 A 
0A80 4742 A 
0A81 4754 A 

2772 0A82 0A83 A $WRD: 

2773 0A83 0A84 A $REL: 



JSR 
ISZ 
NOP 
LD 
LD 
JSR 
NOP 
RTS 
.WORD 



.WORD 
.ASCII 



OIBUF 
LOCCTR 

R0, $WRD 
R2,$REL 
@$LOOWRD 



OOWORD 



yOUTPUT INPUT BUFFER 



? OUTPUT OBJECT WORD 



+ 1 



U A B T XGAGBGT' 



. = .+1 
, = .+1 



2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 



0A84 
0A84 
0A84 
0A84 
0A85 
0A86 
0A87 
0A88 
0A89 
0A8A 
0A8B 
0A8C 
0A8D 
0A8E 
0A8E 
0A8E 
0A8E 
0A8F 
0A90 
0A91 
0A92 
0A93 
0A94 
0A95 
0A96 
0A96 
0A96 
0A96 
0A97 
0A98 
0A99 
0A99 
0A9A 
0A9B 
0A9C 
0A9D 
0A9E 
0A9F 
0AA0 
0AA1 



OUTPUT VALUE FROM ASSIGN OR END DIRECTIVES 



2909 A OVAL: 
805D B 
1301 A 
0200 A 
8089 B 
13FD A 
291D A 
291E A 
2CF7 I 
0200 A 



4000 A OHEXIF 

805D B 

1302 A 

4400 A 

0200 A 

2913 A 

2915 A 

4400 A 



2903 A OHEX: 
2901 A 
2900 A 



810A A 
5804 A 
A108 A 
602D B 
E02B B 
2103 A 
C039 B 
290A A 
0200 A 



SOIX: 
$01X1: 



$01X3: 



JSR 

LD 

BOC 

RTS 

LD 

BOC 

JSR 

JSR 

JSR 

RTS 



OHEXIF 
R0,PASS 
ODD, .+2 

R0,INDEV 
ODD, .-2 
02B 
01B 
OIBUF 



yINPUT DEVICE 0=CR , 1=KB , 2=PT 



OUTPUT HEX IF PASS2 ELSE IGNORE 



PUSH 

LD 

BOC 

PULL 

RTS 

JSR 

JSR 

PULL 



R0 

P0,PASS 
ODD,. +3 
R0 

043 
01B 
R0 



OUTPUT 4 HEX DIGITS 



JSR 



OHEX 



JSR 
JSR 
JSR 

LD 

ROL 

ST 

AND 

SKG 

JMP 

ADD 

JSR 

RTS 



$01X1 

$01X 

$01X 

R0,$TEMP 

R0,4 

R0,$TEMP 

R0,K15 

P0,K9 

$01X2 

R0,HEX37 

01CH 



•4 6 



IMPASM 



2814 0AA2 ; 






2815 0AA2 C038 B $01X2: 


ADD 


R0,HEX30 


2816 0AA3 21FC A 


JMP 


S01X3 


2817 0AA4 ; 






2818 0AA4 0AA5 A $TEMP: 


. = .+1 




2819 0AA5 0D0A A HEXD0A: 


.WORD 


0D0A 


2820 0AA6 ; 






2821 0AA6 ; 


OUTPUT 


6 /4 BLANKS 


2822 0AA6 ; 






2823 0AA6 2901 A 06B: 


JSP 


02B 


2824 0AA7 2900 A 04B: 


JSR 


02B 


2825 0AA8 ; 






2826 0AA8 ; 


OUTPUT 


2 BLANKS ,1 


2827 0AA8 ; 






2828 0AA8 4C20 A 02B: 


LI 


R0,' 7256 


2829 0AA9 2901 A 


JSR 


01CH 


2830 0AAA 4C20 A 01B: 


LI 


R0 f ' '/256 


2831 0AAB 






2832 0AAB ; 


PUT CHAR OUT IF IN 


2833 0AAB ; 






2834 0AAB 4000 A 01CH: 


PUSH 


R0 


2835 0AAC 800C A 


LD 


R0,PNCHMD 


2836 0AAD 1506 A 


BOC 


NZ f $PUT3 


2837 0AAE 805D B 


LD 


R0,PASS 


2838 0AAF 1306 A 


BOC 


0DD,$PUT2 


2839 0AB0 8097 B $PUTl: 


LD 


R0,TYPMOD 


2840 0AB1 1502 A 


BOC 


NZ, .+3 


2841 0AB2 4400 A 


PULL 


R0 


2842 0AB3 241A B 


JMP 


@HSPRT 


2843 0A.B4 4400 A $PUT3: 


PULL 


R0 


2844 0AB5 2410 B 


JMP 


@PUTC 


2845 0AB6 808E B $PUT2: 


LD 


R0,LISTMD 


2846 0AB7 15F8 A 


BOC 


NZ,$PUT1 


2847 0AB8 808B B 


LD 


R0,ERRPT 


2848 0AB9 F055 B 


SKNE 


R0,ERRBAS 


2849 0ABA 2101 A 


JMP 


.+2 


2850 0ABB 21F4 A 


JMP 


$PUT1 


2851 0ABC 4400 A 


PULL 


R0 


^OJi unuis XJ4.VJJ £-» 


RTS 








2853 0ABE ; 






2854 0ABE ; 






n n I- r- rt * r> n O/HiTJi r> <~\110. 


r n 


da Miner. &a. 


/ODO K<nD£< OBUfl £> \j±4.ui 


JUU 


uu I i J VI. Ui *V-P 


2856 0ABF 1502 A 


BOC 


NZ,$RET 


2857 0AC0 29E5 A 


JSR 


06B 


2858 0AC1 29E4 A 


JSR 


06B 


2859 0AC2 0200 A $RET: 


RTS 




2860 0AC3 ; 






2861 0AC3 ; 


OUTPUT 


N CR AND LF 


2862 0AC3 ; 






2863 0AC3 EC3B B MANYNL 


: SKG 


R3,HEX3F 


2864 0AC4 FC23 B 


SKNE 


R3,ZER0 


2865 0AC5 0200 A 


RTS 




2866 0AC6 8096 B 


LD 


R0,HSPR 


2867 0AC7 1508 A 


BOC 


NZ,$MAN1 


2868 0AC8 EC71 B 


SKG 


R3,PGRL 


2869 0AC9 2106 A 


JMP 


$MAN1 


2870 0ACA 8091 B 


LD 


R0,NOLIST 


2871 0ACB 1104 A 


BOC 


Z,$MAN1 


2872 0ACC 4C0D A 


LI 


R0,0D 


2873 0ACD 2C1A B 


JSR 


@HSPRT 


2874 0ACE 4C0C A 


LI 


R0,0C 


2875 0ACF 241A B 


JMP 


@HSPRT 


2876 0AD0 $MAN1: 







;TEMP 



;OUTPUT 2 BLANKS 
; OUTPUT 1 BLANK 
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2877 0AD0 2903 A 



2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 



0AD1 
0AD2 
0AD3 
0AD4 
0AD4 
0AD4 
0AD4 
0AD5 
0AD5 
0AD6 
0AD7 
0AD8 
0AD9 
0ADA 
0ADB 
0ADB 
0ADB 
0ADB 
0ADB 
0ADC 
0ADD 
0ADE 
0ADF 
0AE0 
0AE1 
0AE2 
0AE3 
0AE4 
0AE5 
0AE6 
0AE7 
0AE7 
0AE7 
0AE7 
0AE7 
0AE7 
0AE8 
0AE9 
0AEA 
0AEB 
0AEC 
0AED 
0AEE 
0AEF 
0AF0 
0AF0 
0AF1 



4BFF A 
21FD A 
0200 A 



A1CE A 
5CF8 A 
29D3 A 
81CB A 
6024 B 
21D0 A 



02CH: 



29F8 
8300 
11E4 
5C01 
5CFF 
29F4 
8300 A 
1201 A 
0200 A 
4B01 A 
21F6 A 
0200 A 



ONLMSG: 
OMSG: 



OPGSTP: 



29DB A 
4C37 A 
A071 B 
8D06 A 
29EF A 
8D03 A 
29ED A 
4F02 A 
21D3 A 



0170 A $EQPG: 
01DE A $EQTTL: 



JSR 


NEWLIN 


AISZ 


R3,-l 


JMP 


.-2 


RTS 





OUTPUT CR AND LF 



OUTPUT 2 CHARS 



81D0 A NEWLIN: LD 



ST 
SHR 
JSR 
LD 

AND 
JMP 



R0,HEXD0A 

R0,$TEMP 

R0,8 

01CH 

R0,$TEMP 

R0,K255 

OICH 



;OUT CHAR AND RETURN 



OUTPUT NEW LINE AND MESSAGE 

P3 POINTS TO MESSAGE WORD ENDS MESSAGE 



JSR 

LD 

BOC 

SHL 

SHR 

JSR 

LD 

BOC 

RTS 

AISZ 

JMP 

RTS 



NEWLIN 

R0,0(R3) 

Z,$RET 

R0,1 

R0,1 

02CH 

R0,0(R3) 

P, .+2 

F3,l 
OMSG 



;LAST WORD NEG, 



OUTPUT PAGE STRING 



JSR 

LI 

ST 

LD 

JSR 

LD 

JSR 

LI 

JMP 

.WORD 
. WORD 



MANYNL 

R0 r 55 

R0,PGRL 

R3,SEOTTL 

ONLMSG 

R3,SEQPG 

ONLMSG 

R3, 2 

MANYNL 

PGSTRG 
TTLBUF+4 



;= PGSTRG 



2925 0AF2 

2926 0AF2 

2927 0AF2 

2928 0AF2 

2929 0AF2 

2930 0AF2 

2931 0AF2 2C9C I 

2932 0AF3 0200 A 

2933 0AF4 808B B 

2934 0AF5 D055 B 

2935 0AF6 1502 A 

2936 0AF7 4C1E A 

2937 0AF8 2CAD I 

2938 0AF9 0200 A 



XARGCK: 



.PAGE 
.LOCAL 



'REPORT ERRORS' 



CHECK EXCESS ARGUMENTS 



JSP 

RTS 

LD 

SUB 

BOC 

LI 



GNVC 

R0,ERRPT 
R0,ERRBAS 
NZ,.+3 
P0,30; 



JSR ERROR 
RTS 



EXCESS ARGUMENTS ERROR 
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2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 

2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 



0AFA 
0AFB 
0AFB 
0AFB 
0AFB 
0AFB 
0AFC 
0AFD 
0AFE 
0AFF 
0B00 
0B01 
0B02 
0B03 
0B04 
0B05 
0B05 
0B06 
0B07 
0B07 
0B07 
0B07 
0B07 
0B08 
0B09 
0B0A 
0B0B 
0B0C 
0B0D 
0B0D 
0B0E 
0B0F 
0B10 
0B11 
0B12 
0B13 
0B14 
0B15 

0B16 
0B17 
0B18 
0B18 
0B18 
0B18 
0B19 
0B1A 
0B1B 
0B1C 
0B1D 
0B1E 
0B1F 
0B20 
0B21 
0B22 
0B23 
0B24 
0B25 
0B26 
BB27 
0B28 
0B29 
0B2A 
0B2B 



0C35 A PR2PTR: .WORD PRMPT2 

OUTPUT INPUT BUFFER AND REPORT ERRORS 



OIBREP; 



8096 B 
A097 B 
805D B 
1301 A 
0200 A 
8089 B 
1303 A 
2DF7 A 
29BA A 
297A A 



8096 B 
A097 B 



808B B 
F055 B 
0200 A 
805D B 
1301 A 
0200 A 

7888 B 
4EFC A 
8488 B 
3481 A 
602D B 
1501 A 
C428 B 
5904 A 
4A01 A 

21F9 A 
A488 B 



8855 B 

A922 A 

8921 A 

F88B B 

211C A 

7C71 B 

3081 A 

8071 B 

1B01 

2102 

4F07 

29C3 

8D18 

29B5 

8915 

8E00 

CD19 

29B2 

8911 



REPERR! 



$102: 



$103: 



$100: 



LD 

ST 

LD 

BOC 

RTS 

LD 

BOC 

JSR 

JSR 

JSR 

LD 
ST 



R0,HSPR 
R0,TYPMOD 
R0,PASS 
ODD, .+2 

R0, INDEV 
ODD,. +4 
@PR2PTR 
012B 
OIBUF 

R0 r HSPR 
R0,TYPMOD 



7 INPUT DEVICE 0=CP, 1=KB, 2=PT 



;OUTPUT INPUT BUFFER IF NOT YET OUT 



ANY ERRORS TO REPORT 



LD 


R0,ERRPT 


SKNE 


R0,ERRBAS 


RTS 




LD 


R0,PASS 


BOC 


ODD,. +2 


RTS 




INCREMENT ERROR COUNT 


ISZ 


EC 


LI 


R2,-4 


LD 


R1,EC 


RCPY 


R1,R0 


AND 


R0,K15 


BOC 


NZ,.+2 


ADD 


R1,K6 


ROL 


Rl,4 


AISZ 


R2,l 


JMP 


$103 


ST 


R1,EC 


OUTPUT 


ERROR MESSAGE 


LD 


R2,ERRBAS 


ST 


R2,$TMP 


LD 


R2,$TMP 


SKNE 


R2,ERRPT 


JMP 


$104 


DSZ 


PGRL 


NOP 




LD 


R0,PGRL 


BOC 


LEZ,.+2 


JMP 


.+3 


LI 


R3,7 


JSR 


OPGSTR 


LD 


R3,ERRMSG 


JSR 


ONLMSG 


LD 


R2,$TMP 


LD 


R3,0(R2) 


ADD 


R3,MSGTAB 


JSR 


OMSG 


LD 


R2,$TMP 


OUTPUT 


CHAR PTR 



;PAGE REMAINING LINFS 



;OUTPUT PAGE STRING 

; OUTPUT NEW LINE AND MESSAGE 
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3002 


0B2B 


•8E09 


A 


LD 


P3,ELIM+1(R2) 


3003 


0B2C 


EC39 


B 


SKG 


R3,HEX37 


3004 


0B2D 


2101 


A 


JMP 


.+2 


3005 


0B2E 


2108 


A 


JMP 


$200 


3006 


0B2F 


2CE7 


I 


JSR 


OIB 


3007 


0B30 


4BFF 


A 


AISZ 


R3,-l 


3008 


0B31 


21FD 


A 


JMP 


.-2 


3009 


0B32 


4C40 


A 


LI 


R0, '@'/256 


3010 


0B33 


2CE5 


I 


JSR 


OICH 


3011 


0B34 


808E 


B 


LD 


R0,LISTMD 


3012 


0B35 


1501 


A 


BOC 


NZ,.+2 


3013 


0B36 


299D 


A 


JSR 


NEWLIN 


3014 


0B37 


7904 


A $200: 


ISZ 


$TMP 


3015 


0B38 


21E1 


A 


JMP 


$100 


3016 


0B39 


8055 


B $104: 


LD 


R0,ERRBAS 


3017 


0B3A 


A08B 


B 


ST 


R0,ERRPT 


3018 


0B3B 


0200 


A 


RTS 




3019 


0B3C 




t 






3020 


0B3C 


0B3D 


A STMP: 


. = .+1 




3021 


0B3D 


0B3E 


A ERRMSG: 


.WORD 


.+1 


3022 


0B3E 


4552 


A 


.ASCII 


'ERROR' 




0B3F 


524F 


A 








0B40 


5220 


A 






3023 


0B41 


0000 


A 


.WORD 





3024 


0B42 


0B43 


A MSGTAB: 


.WORD 


.+1 


3025 


0B43 


4D49 


A 


.ASCII 


'MISSING AR' 




0B44 


5353 


A 








0B45 


494E 


A 








0B46 


4720 


A 








0B47 


4152 


A 






3026 


0B4P 


C72E 


A 


.WORD 


'G. '+S 


3027 


0B49 


5641 


A 


.ASCII 


'VALUE 




0B4A 


4C55 


A 








0B4B 


4520 


A 








0B4C 


2020 


A 








0B4D 


2020 


A 






3028 


0B4E 


A020 


A 


.WORD 


0A020 


3029 


0B4F 


4144 


A 


.ASCII 


'ADDRESS 




0B50 


445? 


A 








0B51 


4553 


A 








0B52 


5320 


A 








0B53 


2020 


A 






3030 


0B54 


A020 


A 


.WORD 


0A020 


3031 


0B55 


5553 


A 


.ASCII 


'USAGE 




0B56 


4147 


A 








0B57 


4520 


A 








0B58 


2020 


A 








0B59 


2020 


A 






3032 


0B5A 


A020 


A 


.WORD 


0A020 


3033 


0B5B 


5359 


A 


.ASCII 


'SYNTAX 




0B5C 


4E54 


A 








0B5D 


4158 


A 








0B5E 


2020 


A 








0B5F 


2020 


A 






3034 


0B60 


A020 


A 


.WORD 


0A020 


3035 


0B61 


4558 


A 


.ASCII 


'EXCESS ARG' 




0B62 


4345 


A 








0B63 


5353 


A 








BB64 


2041 


A 








0B65 


5247 


A 






3036 


0B66 


AE20 


A 


.WORD 


'. '+S 


3037 


0B67 


5442 


A 


.ASCII 


'TBL OVERFL' 




0B68 


4C20 


A 
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0B69 4F56 A 












0B6A 4552 A 












0B6B 464C A 










3038 


0B6C CF57 A 




.WORD 


'ow'+s 




3039 


0B6D 554E A 
0B6E 4445 A 
0B6F 4649 A 
0B70 4E45 A 
0B71 4420 A 




.ASCII 


'UNDEFINED ' 




3040 


0B72 A020 A 




.WORD 


0A020 




3041 


0B73 4455 A 
0B74 502E A 
0B75 2044 A 
0B76 4546 A 
0B77 2E20 A 




.ASCII 


'DUP. DEF. ' 




3042 


0B78 A020 A 




.WORD 


0A020 




3043 


0B79 4558 A 
0B7A 5444 A 
0B7B 2E20 A 
0B7C 494E A 
0B7D 5354 A 




.ASCII 


'EXTD. INST' 




3044 


0B7E AE20 A 




.WORD 


\'+S 




3045 


0B7F 




.PAGE 


'OUTPUT INPUT 


BUFFER' 


3046 


0B7F 




. LOCAL 






3047 


0B7F 


# 






JSR OIBUF 


3048 


0B7F 806A B 


OIBUF: 


LD 


R0,MOFLAG 




3049 


0B80 1101 A 




BOC 


Z,$l 




3050 


0B81 0200 A 




RTS 






3051 


0B82 805D B 


$1: 


LD 


R0,PASS 




3052 


0B83 1301 A 




BOC 


ODD,. +2 




3053 


0B84 2120 A 




JMP 


$2 




3054 


0B85 8089 B 




LD 


R0 f INDEV 


; INPUT DE 


3055 


0B86 131E A 




BOC 


ODD, $2 




3056 


0B87 


i 


NOT KB 


INPUT AND IS PASS2 


3057 


0B87 8012 B 


$8: 


LD 


R0,INBUFB 




3058 


0B88 A11F A 




ST 


R0,$IPTR 




3059 


0B89 2CE7 I 




JSR 


OIB 




3060 


0B8A 8D1D A 


$5: 


LD 


R3,$IPTR 




3061 


0B8B ED1D A 




SKG 


R3,$IBEND 




3062 


0B8C 2101 A 




JMP 


$3 




3063 


0B8D 2117 A 




JMP 


$2 


;FINISHED 


3064 


0B8E 


? 








3065 


0B8E 8300 A 


$3: 


LD 


R0,0(R3) 




3066 


0B8F F034 B 




SKNE 


R0, BLANK 




3067 


0B90 2107 A 




JMP 


$4 




3068 


0B91 F047 B 


$7: 


SKNE 


R0,CR 




3069 


0B92 2112 A 




JMP 


$2 




3070 


0B93 F092 B 




SKNE 


R0,NOCOM 


;NO COMME1 


3071 


0B94 2110 A 




JMP 


$2 




3072 


0B95 2CE5 I 




JSR 


OICH 




3073 


0B96 7911 A 




ISZ 


$IPTR 




3074 


0B97 21F2 A 




JMP 


$5 




3075 


0B98 4B01 A 


$4: 


AISZ 


R3,l 




3076 


0B99 ED0F A 




SKG 


R3,$IBEND 




3077 


0B9A 2101 A 




JMP 


$6 




3078 


0B9B 2109 A 




JMP 


$2 


;FINISHED 


3079 


0B9C 


i 








3080 


0B9C 8300 A 


$6: 


LD 


R0,0(R3) 




3081 


0B9D F034 B 




SKNE 


R0, BLANK 




3082 


0B9E 21F9 A 




JMP 


$4 




3083 


0B9F F092 B 




SKNE 


R0,NOCOM 


;NO COMMEf 


3084 


08A0 2104 A 




JMP 


$2 





)=CR,1=KB,2=PT 



IF NO COMMENTS) 



IF HO COMMENTS) 
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I MP ASM 



3085 


0BA1 


F047 


B 




SKNE 


R0,CR 


3086 


0BA2 


2102 


A 




JMP 


$2 


3087 


0BA3 


9104 


A 




LD 


R0,@$IPTR 


3088 


0BA4 


21EC 


A 




JMP 


$7 


3089 


0BA5 




i 




FINISHED OUTPUT OF INPUT BUFFER 


3090 


0BA5 




$2: 






3091 


0BA5 


4C0D 


A 




LI 


R0,0D 


3092 


0BA6 


A06A 


B 




ST 


R0,MOFLAG ;SET MOFLAG 


3093 


0BA7 


0200 


A 




RTS 




3094 


0BA8 


0BA9 


A $IPTR: 


. = .+1 




3095 


0BA9 


0154 


A $IBEND: 


.WORD 


INBUF+52 


3096 


0BAA 








.PAGE 


'INPUT ROUTINES' 


3097 


0BAA 








. LOCAL 




3098 


0BAA 




READ: 






3099 


0BAA 


8012 


B 




LD 


R0,INBUFB 


3100 


0BAB 


A05E 


B 




ST 


R0,INPTR ; INPUT CHAR 


3101 


0BAC 


A05F 


B 




ST 


R0,LCPTR 


3102 


0BAD 


805D 


B 




LD 


R0,PASS 


3103 


0BAE 


1303 


A 




BOC 


ODD,$PRM 


3104 


0BAF 






PASS = 







3105 


0BAF 


8089 


B $61: 


LD 


R0,INDEV 


3106 


0BB0 


1301 


A 




BOC 


ODD,$PRM 


3107 


0BB1 


2106 


A 




JMP 


$NOPRT 


3108 


0BB2 












3109 


0BB2 








EITHER 


KB INPUT OR 2ND PASS OR BOTH 


3110 


0BB2 








BUT NOT 


(DSKTMP AND KB AND PASS.NE. 


3111 


0BB2 












3112 


0BB2 


788D 


B $ 


?PRM: 


ISZ 


LCNT2 


3113 


0BB3 


2103 


A 




JMP 


$50 


3114 


0BB4 


8031 


B 




LD 


R0,X6666 


3115 


0BB5 


A08D 


5 




ST 


R0,LCNT2 


3116 


0BB6 


788C 


B 




ISZ 


LCNT1 


3117 


0BB7 


2D1A 


A 5 


?50: 


JSR 


@$PROMPT 


3118 


0BB8 












3119 


0BB8 








FINISHED PRINTING LINE NUM AND PROM 


3120 


0BB8 












3121 


0BB8 




i 


?NOPRT: 






3122 


0BB8 








TTY INPUT 


3123 


0BB8 


291A 


A ! 


?10: 


JSR 


RDTTY 


3124 


0BB9 


2114 


A 




JMP 


$10A 


3125 


0BBA 








COMPUTE 


SOURCE CHECKSUM 


3126 


0BBA 


805D 


B « 


?10B: 


LD 


R0,PASS 


3127 


0BBB 


1504 


A 




BOC 


NZ, .+5 


3128 


0BBC 


8020 


B 




LD 


R0, DSKTMP 


3129 


0BBD 


5000 


A 




CAI 


R0,0 


3130 


0BBE 


1201 


A 




BOC 


P, .+2 


3131 


0BBF 


2C16 


B 




JSR 


@WDSKTM 


3132 


0BC0 


9012 


B 




LD 


R0,@INBUFB 


3133 


0BC1 


F092 


B 




SKNE 


R0,NOCOM 


3134 


0BC2 


21F5 


A 




JMP 


$NOPRT 


3135 


0BC3 


4C0D 


A 




LI 


R0 f 0D 


3136 


0BC4 


94AA 


I 




LD 


Rl,SOUCK 


3137 


0BC5 


8C12 


B 




LD 


R3,INBUFB 


3138 


0BC6 


F300 


A 


S11C: 


SKNE 


R0,0(F3) 


3139 


0BC7 


0200 


A 




RTS 




3140 


0BC8 


C700 


A 




ADD 


R1,0(R3) 


3141 


0BC9 


B4AA 


I 




ST 


Rl,SOUCK 


3142 


0BCA 


4B01 


A 




AISZ 


R3,l 


3143 


0BCB 


FD5C 


A 




SKNE 


R3,$IBL 


3144 


0BCC 


0200 


A 




RTS 




3145 


0BCD 


21F8 


A 




JMP 


$11C 


3146 


0BCE 






p 






3147 


0BCE 






t 







NZ=SOUPCE ALREADY OUTPUT 
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3148 


0BCE 


8089 


B 


$10A: 


LD 


R0, INDEV 


; INPUT DEVICE 0=CR,1=KB 


, 2=PT 


3149 


0BCF 


1301 


A 




BOC 


ODD,. +2 






3150 


0BD0 


21E7 


A 




JiMP 


$10 






3151 


0BD1 






t 


INPUT 


DEVICE IS KB, MUST 


REPROMPT 




3152 


0BD1 


21E5 


A 




JMP 


$50 






3153 


0BD2 


0C3E 


A 


$ PROMPT 


: . WORD 


PROMPT 






3154 


0BD3 
















3155 


0BD3 








READ TELETYPE 






3156 


0BD3 
















3157 


0BD3 


4EB8 


A 


RDTTY : 


LI 


R2,-72 






3158 


0BD4 


8C12 


B 




LD 


R3,INBUFB 






3159 


0BD5 


AC5E 


B 




ST 


R3,INPTR 


; INPUT CHAR PTR 




3160 


0BD6 


8089 


B 


$12: 


LD 


R0, INDEV 






3161 


0BD7 


1302 


A 




BOC 


0DD,$12B 






3162 


0BD8 


2C0F 


B 


$GC: 


JSR 


@GETC 






3163 


0BD9 


2104 


A 




JMP 


$12A 






3164 


0BDA 


805D 


B 


$12B: 


LD 


R0,PASS 






3165 


0BDB 


D040 


B 




SUB 


R0,K2 






3166 


0BDC 


11FB 


A 




BOC 


Z,$GC 






3167 


0BDD 


2C14 


B 




JSR 


@ECHOGC 






3168 


0BDE 


603A 


B 


$12A: 


AND 


R0,HEX7F 






3169 


0BDF 


11F6 


A 




BOC 


Z,$12 






3170 


0BE0 


F047 


B 




SKNE 


R0,CR 






3171 


0BE1 


210F 


A 




JMP 


$11B 






3172 


0BE2 


F134 


A 




SKNE 


R0,$LF 






3173 


0BE3 


21F2 


A 




JMP 


$12 






3174 


0BE4 


F03A 


B 




SKNE 


R0,HEX7F 


; RUBOUT 




3175 


0BE5 


21F0 


A 




JMP 


$12 






3176 


0BE6 


F12E 


A 




SKNE 


R0,HEX5F 


; BACKSPACE ARROW 




3177 


0BE7 


212A 


A 




JMP 


$BKSP 






3178 


0BE8 


F12D 


A 




SKNE 


R0,HEX7D 


;ALT KEY 




3179 


0BE9 


0200 


A 




RTS 








3180 


0BEA 


F02B 


B 




SKNE 


R0,K9 






3181 


0BEB 


210E 


A 




JMP 


$TAB 






3182 


0BEC 


A330 


A 




ST 


R0,0(P3) 






3183 


0BED 


4B01 


A 




AISZ 


R3,l 






3184 


0BEE 


4A01 


A 




AISZ 


R2,l 






3185 


0BEF 


n 1 r>r 














£. J. DO 


rt 




J Mi 7 


:?jlz 






3186 


0BF0 


0201 


A 




RTS 


1 






3187 


0BF1 


A300 


A 


$11B: 


ST 


R0,0(R3) 






3188 


0BF2 


8089 


B 




LD 


R0, INDEV 


; INPUT DEVICE 0=CR,1=KB, 


2=PT 


3189 


0BF3 


605D 


B 




AND 


R0,PASS 






3190 


0BF4 


1301 


A 




BOC 


ODD,. +2 






3191 


0BF5 


0201 


A 




RTS 


1 






3192 


0BF6 






i 


INPUT 


IS KB AND THIS IS 


PASS2 THEREFORE BACKUP CA 


RRAGE 


3193 


0BF6 


4C0D 


A 




LI 


R0,0D 






3194 


0BF7 


2CE5 


I 




JSR 


01CH 






3195 


0BF8 


2CCF 


I 




JSR 


06B 






3196 


0BF9 


0201 


A 




RTS 


1 






3197 


0BFA 






i 










3198 


0BFA 


E914 


A 


$TAB: 


SKG 


R2,KM41 






3199 


0BFB 


2101 


A 




JMP 


.+2 






3200 


0BFC 


21D9 


A 




JMP 


$12 


; IGNORE IF > COL. 32 




3201 


0BFD 


4D28 


A 




LI 


Rl,40 






3202 


0BFE 


E911 


A 




SKG 


R2,KM57 






3203 


0BFF 


4D38 


A 




LI 


Rl r 56 






3204 


0C00 


E910 


A 




SKG 


R2,KM65 






3205 


0C01 


4040 


A 




LI 


Rl,64 






3206 


0C02 


3900 


A 




RADD 


R2,R1 






3207 


0C03 


8034 


B 


$TAB1: 


LD 


R0, BLANK 






3208 


0C04 


A300 


A 




ST 


R0,0(R3) 






3209 


0C05 


8089 


B 




LD 


R0, INDEV 
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3210 


0C06 


D040 


B 




SUB 


R0,K2 




3211 


0C07 


1102 


A 




BOC 


Z,.+3 




3212 


0C08 


8034 


B 




LD 


R0, BLANK 




3213 


0C09 


2C10 


B 




JSR 


@PUTC 




3214 


0C0A 


4B01 


A 




AISZ 


R3,l 




3215 


0C0B 


4A01 


A 




AISZ 


R2, 1 




3216 


0C0C 


4901 


A 




AISZ 


Rl,l 




3217 


0C0D 


21F5 


A 




JMP 


$TAB1 




3218 


0C0E 


21C7 


A 




JMP 


$12 




3219 


0C0F 


FFD7 


A KM41: 


.WORD 


-41 




3220 


0C10 


FFC7 


A KM57: 


.WORD 


-57 




3221 


0C11 


FFBF 


A KM65: 


.WORD 


-65 




3222 


0C12 














3223 


0C12 


4BFF 


A $BKSP: 


AISZ 


R3,-l 




3224 


0C13 


4AFF 


A 




AISZ 


R2,-l 




3225 


0C14 


21C1 


A 




JMP 


$12 




3226 


0C15 


005F 


A HEX5F: 


.WORD 


05F 




3227 


0C16 


007D 


A HEX7D: 


. WORD 


07D 




3228 


0C17 


000A 


A $LF: 


.WORD 


0A 




3229 


0C18 


0C19 


A LCNT2A: 


.=.+1 






3230 


0C19 














3231 


0C19 








GET NEXT VALID CHAR 




3232 


0C19 














3233 


0C19 










JSR GNVC 




3234 


0C19 










NONE 




3235 


0C19 










CHAR. IN 


R0 


3236 


0C19 














3237 


0C19 


4D01 


A ( 


3NVC: 


LI 


Rl,l 




3238 


0C1A 


8C5E 


B ! 


?1: 


LD 


R3, INPTR 




3239 


0C1B 


FD0C 


A 




SKNE 


R3,$IBL 




3240 


0C1C 


0200 


A 




RTS 






3241 


0C1D 


8300 


A 




LD 


R0,0(R3) 




3242 


0C1E 


F047 


B 




SKNE 


R0,CR 




3243 


0C1F 


0200 


A 




RTS 






3244 


0C20 


F049 


B 




SKNE 


R0,SEMI 




3245 


0C21 


2109 


A 




JMP 


$2 




3246 


0C22 


F034 


B 




SKNE 


R0, BLANK 




3247 


0C23 


210A 


A 




JMP 


$3 




3248 


0C24 




< 


?RETC: 








3249 


0C24 


785E 


B 




ISZ 


INPTR 




3250 


0C25 


0201 


A 




RTS 


1 




3251 


0C26 






' 








3252 


0C26 






: 


GET NEXT CHAR - 




3253 


0C26 






1 








3254 


0C26 






■ 




JSR GNC 




3255 


0C26 






1 




NONE 




3256 


0C26 






! 




CHAR IN 


R0 


3257 


0C26 






' 








3258 


0C26 


4D00 


A ( 


5NC: 


LI 


R1,0 




3259 


0C27 


21F2 


A 




JMP 


$1 




3260 


0C28 














3261 


0C28 


0168 


A 


5IBL: 


. WORD 


INBUF+72 




3262 


0C29 














3263 


0C29 


4D02 


A ( 


3NCVC: 


LI 


Rl,2 




3264 


0C2A 


21EF 


A 




JMP 


$1 




3265 


0C2B 






> 


SEMICOLAN 




3266 


0C2B 


7427 


B 


52: 


SKAZ 


R1,K3 




3267 


0C2C 


0200 


A 




RTS 






3268 


0C2D 


21F6 


A 




JMP 


$RETC 




3269 


0C2E 






' 


BLANK 






3270 


0C2E 


785E 


B 


S3: 


ISZ 


INPTR 




3271 


0C2F 


F423 


B 




SKNE 


Rl, ZERO 




3272 


0C30 


0201 


A 




RTS 


1 





; INPUT CHAR PTR 
;INBUF LAST ADR + 
;STAT. END 
;LOAD NEXT CHAP 
;CHAR. RET. CHAR. 

;SEMICOLAN 



; INPUT CHAR PTR 



GNC 



GNVC 1 



GNCVC 2 



:SEMI IS TERMINATOR 



; INPUT CHAP PTR 



GNVC, GNCVC 
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3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 

3304 
3305 
3306 
3307 
3308 
3309 

JOJ.I3 

3311 
3312 



0C31 
0C32 
0C33 
0C34 
0C35 
0C35 
0C35 
0C35 
0C36 
0C37 
0C38 
0C39 
0C3A 
0C3B 
0C3C 
0C3D 
0C3E 
0C3F 
0C40 
0C41 
0C42 
0C43 
0C44 
0C45 
0C46 
0C47 
0C48 
0C49 
0C4A 
0C4B 
0C4C 

0C4D 
0C4D 
0C4E 
0C4F 
0C50 
0C51 

n /-* r* o 

0C53 
0C54 



F426 B SKNE Rl,Kl 

21E7 A JMP $1 

7C5E B DSZ INPTR 

0200 A RTS 



PROMPT SUBROUTINE 



;SKIP BLANK GNVC 

; INPUT CHAR PTR ; BLANK TERMINATES GNCV 



808E B PRMPT2: LD 

2101 A JMP 
808F B PRMPT1: LD 

1101 A BOC 

0200 A RTS 

805D B LD 

F026 B SKNE 

2101 A JMP 
0200 A RTS 
4200 A PROMPT: PUSH 
4100 A PUSH 
2CA8 I JSR 
7C71 B DSZ 

2102 A JMP 
4F07 A LI 
2CD9 I JSR 
808C B LD 
4D20 A LI 
F038 B SKNE 

2103 A JMP 
4D30 A LI 
2CE5 I JSR 
2101 A JMP 
2CE7 I $51: JSR 



3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 



0C56 
0C57 
0C58 
0C58 
0C59 
0C5A 
0C5B 
0C5B 
0C5C 
0C5D 
0C5E 
0C5F 



888D B $52: 
A9C9 A 
2CCA I 
A88D B 
2CE7 I 
8089 B 
605D B 
1301 A 
2102 A 
2CCF I 
2CCF I 

8089 B $NK2: 
1301 A 
2102 A 

4C2A A 

2CE5 I 

4500 A 

4600 A 

0200 A 



3326 0C60 

3327 0C60 

3328 0C60 

3329 0C60 

3330 0C60 

3331 0C60 8179 

3332 0C61 A177 

3333 0C62 810B 

3334 0C63 A163 



R0 f LISTMD 
.+2 

R0,ERRLST 
Z, .+2 

R0,PASS 

R0,K1 

.+2 

R2 

Rl 

NEWLIN 

PGRL 

.+3 

R3,7 

OPGSTR 

R0,LCNT1 

Rl,' 7256 

R0,CZERO 

$51 

Rl, '0'/256 

OICH 

$52 

OIB 



;OUTPUT PAGE STRING 



; '07256 



NOW OUTPUT LAST 4 CHAP OF LINE NUMBER 



LD 

ST 

JSR 

ST 

JSR 

LD 

AND 

BOC 

JMP 

JSR 

JSR 



R2,LCNT2 

R2,LCNT2A 

OSPDEC 

R2,LCNT2 

OIB 

R0, INDEV 

R0,PASS 

ODD,. +2 

$NK2 

06B 

06B 



LD R0, INDEV 

BOC ODD,. +2 

JMP .+3 

KB INPUT , ISSUE PROMPT 



; OUTPUT SPECIAL DECIMAL 4 TIMES 



; INPUT DEVICE 0=CR, 1=KB, 2=PT 



;NOT KB INPUT AND PASS2 BOTH 



; INPUT DEVICE 0=CP, 1=KB, 2=PT 



LI 

JSR 

PULL 

PULL 

RTS 

.PAGE 
. LOCAL 



R0, '*'/256 

OICH 

Rl 

R2 



'OBJECT MODULE ROUTINES' 



INITIALIZE OBJECT RECORD 



INITOR: LD 
ST 
LD 
ST 



R0 f OBJPTl 
R0,OBJPTR 
R0,X8004 
R0,OBJREC 
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3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 



0C64 
0C65 
0C66 
0C67 
0C68 
0C69 
0C6A 
0C6B 
0C6C 
0C6D 
0C6E 
0C6F 
0C6F 
0C6F 
0C6F 
0C6F 
0C70 
0C71 
0C72 
0C73 
0C74 
0C75 
0C76 
0C77 
0C78 
0C79 
0C7A 
0C7B 
0C7C 
0C7D 
0C7D 
0C7D 
0C7D 
0C7D 
0C7D 
0C7E 
0C7F 
0C80 
0C80 
0C81 
0C82 
0C83 
0C84 



806B 
D026 
A162 
805C 
A161 
4C00 
A160 
4C03 
A15F 
0200 
8004 



B169 
E82C 
2101 
4E04 
F823 
4E01 
D826 
2913 
7961 
794E 
815F 
F160 
2101 
0200 



X8004: 



OOWORD: 



815B 
F15B 
21E0 

4E00 
8149 
1204 
2906 
8D04 



OOREC: 
A 
A 
A 

A 

A $22: 

A 

A 

A 



LD 


R0,SECT 


SUB 


R0,K1 


ST 


R0,OBJREC+2 


LD 


R0,LOCCTR 


ST 


R0,OBJREC+3 


LI 


R0,0 


ST 


R0,WORD5 


LI 


R0,3 


ST 


R0,WORD6 


RTS 




.WORD 


iSB004 



; ND RELOCATION WORD 



OUTPUT OBJECT WORD (WORD IN R0, REL IN R2) 



ST 

SKG 

JMP 

LI 

SKNE 

LI 

SUB 

JSR 

ISZ 

ISZ 

LD 

SKNE 

JMP 

RTS 



R0,@OBJPTR 

R2,K4 

.+2 

R2,4 

R2,ZERO 

R2,l 

R2,K1 

SHIFT 

OBJPTR 

OBJREC 

R0, OBJPTR 

R0,OBJPT2 

OOREC 



; STORE REL BITS 



OUTPUT OBJECT RECORD 

IF ANY AND SET UP NEW RECORD 



LD 

SKNE 

JMP 



R0, OBJPTR 
R0,OBJPT1 
INITOR 



; RECORD EMPTY , INIT AND RETURN 



NOT EMPTY, SHIFT REL BITS 

LI R2,0 

LD R0,WORD5 

BOC P,$21 

JSR SHIFT 

LD R3,$OR 



3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 



0C85 
0C86 
0C87 
0C88 
0C89 
0C8A 
0C8A 
3C8A 
0C8A 
0C8A 
0C8A 
0C8B 
0C8C 
0C8D 
0C8E 
0C8F 
0C90 
0C91 
0C92 
0C93 



2910 A 

21D9 A 

2902 A $21: 

21F8 A 

0CC7 A $OR: 



8541 
813F 
5C02 
5902 
6427 B 
3400 A 
A13A A 
853A A 
5D02 A 
3900 A 



SHIFT: 



JSR 
JMP 
JSR 
JMP 
.WORD 

SHIFT 



CKPNCH 

INITOR 

SHIFT 

$22 

OBJREC 



^CHECKSUM AND PUNCH 

;INIT NEW RECORD AND RETURN 



SHIFT WORD5,WORD6 LEFT 2 
FILLING FPOM R2 BITS 2.. 



LD 


Rl,WORD6 


LD 


R0,WORD5 


SHL 


R0,2 


ROL 


Rl,2 


AND 


R1,K3 


RADD 


R1,R0 


ST 


R0,WORD5 


LD 


Rl,WORD6 


SHL 


Rl,2 


RADD 


R2 f Rl 
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3398 


0C94 


A537 


A 




ST 


Rl,WORD6 






3399 


0C95 


0200 


A 




RTS 








3400 


0C96 
















3401 


0C96 








CHECKSUM AND PUNCH 


RECORD POINTED TO BY R3 




3402 


0C96 
















3403 


0C96 




( 


ZKPNCH: 










3404 


0C96 


AD2F 


A 




ST 


R3,$TMP 






3405 


0C97 


805D 


B 




LD 


R0,PASS 






3406 


0C98 


1401 


A 




BOC 


BlEQl,.+2 






3407 


0C99 


0200 


A 




RTS 




;NOT PASS 2 




3408 


0C9A 


801E 


B 




LD 


R0,DSKOBJ 






3409 


0C9B 


1204 


A 




BOC 


P,$33 


; NO LEADER IF DISK 


OBJ 


3410 


0C9C 






' 


PUNCH 


LEADER AND STX CHAR 




3411 


0C9C 


2922 


A 




JSR 


LEAD8 






3412 


0C9D 


4C0 2 


A 




LI 


R0,2 






3413 


0C9E 


A00C 


A 




ST 


R0,PNCHMD 


; SET PUNCH MODE 




3414 


0C9F 


2CE5 


I 




JSR 


01CH 






3415 


0CA0 






' 


COMPUTE CHECKSUM 






3416 


0CA0 




< 


?33: 










3417 


0CA0 


8700 


A 




LD 


R1,0(R3) 






3418 


0CA1 


643B 


B 




AND 


Rl,HEX3F 






3419 


0CA2 


4C00 


A 




LI 


R0,0 






3420 


0CA3 


C302 


A 




ADD 


R0,2(R3) 






3421 


0CA4 


4B01 


A 




AISZ 


R3,l 






3422 


0CA5 


49FF 


A 




AISZ 


Rl,-1 






3423 


0CA6 


21FC 


A 




JMP 


.-3 






3424 


0CA7 


8D1E 


A 




LD 


R3 f $TMP 






3425 


0CA8 


A301 


A 




ST 


R8,1(R3) 


; STORE CHECKSUM 




3426 


0CA9 


9111 


A 




LD 


R0 f @$ENDBUF 






3427 


0CAA 


F300 


A 




SKNE 


R0,0(R3) 






3428 


0CAB 


2103 


A 




JMP 


.+4 






3429 


0CAC 


90AB 


I 




LD 


R0,OBJCK 






3430 


0CAD 


C301 


A 




ADD 


R0,1(R3) 






3431 


0CAE 


B0AB 


I 




ST 


R0,OBJCK 






3432 


0CAF 








FINISHED CHECKSUM , 


NOW PUNCH 




3433 


0CAF 


8700 


A 




LD 


R1,0(R3) 






3434 


0CB0 


643B 


B 




AND 


R1,HEX3F 






3435 


0CB1 


C440 


Q 




Rrvrs 
nuu 








3436 


0CB2 








TOP OF 


' PUNCH LOOP 






3437 


0CB2 


8300 


A $30: 


LD 


R0,0(R3) 












± 




MOJV 


02CH 






3439 


0CB4 




$31: 










3440 


0CB4 


4B01 


A 




AISZ 


R3,l 






3441 


0CB5 


49FF 


A 




AISZ 


Rl f -1 






3442 


0CB6 


21FB 


A 




JMP 


$30 






3443 


0CB7 


2CA8 


I 




JSR 


NEWLIN 






3444 


0CB8 


4C00 


A ENDPCH; 


LI 


R0,0 






3445 


0CB9 


A00C 


A 




ST 


R0,PNCHMD 






3446 


0CBA 


0200 


A 




RTS 








3447 


0CBB 


0402 


A $ENDBUF 


: . WORD 


ENDBUF 






3448 


0CBC 
















3449 


0CBC 








PUNCH 


2 CHARACTERS 






3450 


0CBC 
















3451 


0CBC 
















3452 


0CBC 








PUNCH 


LEADER 






3453 


0CBC 
















3454 


0CBC 


2900 


A i 


,EAD: 


JSR 


.+1 






3455 


0CBD 


2900 


A 




JSR 


.+1 






3456 


0CBE 


2900 


A 




JSR 


.+1 






3457 


0CBF 


2900 


A L 


EAD8: 


JSR 


.+1 






3458 


0CC0 


2900 


A 




JSR 


.+1 






3459 


0CC1 


4C01 


A 




LI 


R0,1 






3,460 


0CC2 


A00C 


A 




ST 


R0 r PNCHMD 
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3461 


0CC3 


4C00 


A 




LI 


R0, 


3462 


0CC4 


2CC9 


I 




JSR 


02CH 


3463 


0CC5 


21F2 


A 




JMP 


ENDPCH 


3464 


0CC6 






/ 






3465 


0CC6 


0CC7 


A 


$TMP: 


. = .+1 




3466 


0CC7 












3467 


0CC7 








OBJECT 


MODULE DATA RECORD 


3468 


0CC7 












3469 


0CC7 


0CC9 


A 


OBJREC: 


. = .+2 




3470 


0CC9 


0CCA 


A 


WORD3: 


. = .+1 




3471 


0CCA 


0CCB 


A 


WORD 4: 


. = .+1 




3472 


0CCB 


0CCC 


A 


WORD 5: 


. = .+1 




3473 


0CCC 


0CD9 


A 


WORD 6: 


.=.+13 




3474 


0CD9 






/ 






3475 


0CD9 


0CCD 


A 


OBJPTR: 


.WORD 


WORD6+1 


3476 


0CDA 


0CCD 


A 


OBJPT1: 


.WORD 


WORD6+1 


3477 


0CDB 


0CD9 


A 


OBJPT2: 


.WORD 


OBJREC+18 


3478 


0CDC 








.PAGE 


'MISC SUBROUTINES' 


3479 


0CDC 








.LOCAL 




3480 


0CDC 












3481 


0CDC 








IFBYP 


GO TO DIREND IF IN IFSKIP MODE 


3482 


0CDC 












3483 


0CDC 


8070 


B 


IFBYP: 


LD 


R0,IFMODE 


3484 


0CDD 


1507 


A 




BOC 


NZ,$2 


3485 


0CDE 


24C8 


I 




JMP 


NEXTST 


3486 


0CDF 












3487 


0CDF 








JSR IFSKIP 


3488 


0CDF 








SUSPEND ASSEMBLY RET 


3489 


0CDF 








ASSEMBLE RETURN 


3490 


0CDF 


8070 


B 


IFSKIP: 


LD 


R0,IFMODE 


3491 


0CE0 


1501 


A 




BOC 


NZ,$1 


3492 


0CE1 


0200 


A 




RTS 


;SUSPEND 


3493 


0CE2 


0201 


A 


$1: 


RTS 


1 ;ASSEMBLE 


3494 


0CE3 












3495 


0CE3 












3496 


0CE3 








SKIP IF 


PASS 1 


3497 


0CE3 












3498 


0CE3 


805D 


B 


P2P1: 


LD 


R0,PASS ;PASS1=0 PASS2=NZ 


3499 


0CE4 


11FD 


A 




BOC 


Z,$l 


3500 


0CE5 


0200 


A 


$2: 


PTS 




3501 


0CE6 












3502 


0CE6 








SKIP IF 


PASS 2 


3503 


0CE6 












3504 


0CE6 


805D 


B 


P1P2: 


LD 


R0,PASS 


3505 


0CE7 


15FA 


A 




BOC 


NZ,$1 


3506 


0CE8 


0200 


A 




RTS 




3507 


0CE9 












3508 


0CE9 








OUTPUT 


SPECIAL DECIMAL DIGIT 


3509 


0CE9 












3510 


0CE9 






OSPDEC: 






3511 


0CE9 


4FFC 


A 




LI 


R3,-4 


3512 


0CEA 


5A04 


A 




P.OL 


R2,4 


3513 


0CEB 


4C0F 


A 




LI 


R0,0F 


3514 


0CEC 


3883 


A 




RAND 


R2,R0 


3515 


0CED 


F02P 


B 




SKNE 


R0,K6 


3516 


0CEE 


2106 


A 




JMP 


$60 ;ZERO REPRESENTED 


3517 


0CEF 


1502 


A 




BOC 


NZ,$61 


3518 


0CF0 


C828 


B 




ADD 


R2,K6 


3519 


0CF1 


8028 


B 




LD 


R0,K6 


3520 


0CF2 


C03C 


B 


$61: 


ADD 


R0,HEX2A 


3521 


0CF3 


4D30 


A 




LI 


Rl, '0'/256 


3522 


0CF4 


2101 


A 




JMP 


.+2 


3523 


0CF5 


3481 


A 


$60: 


RCPY 


R1,R0 
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3524 0CF6 2CE5 I 

3525 0CF7 4B01 A 

3526 0CF8 21F1 A 

3527 0CF9 0200 A 

3528 0CFA 

3529 0CFA 



3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 



0CFA 
0CFA 
0CFA 
0CFA 
0CFA 
0CFA 
0CFA 
0CFB 
0CFC 
0CFD 
0CFE 
0CFF 
0D00 
0D01 
0D02 
0D03 
0D04 
0D05 
0D06 
0D07 
0D08 
0D08 
0D09 
0D0A 
0D0B 
0D0C 
0D0D 
0D0E 
0D0F 
0D10 
0D11 
vu± z. 
0D16 
0D17 
3564 0D18 



A117 
A517 
A917 
AD17 
2C9C 
2103 
F04F B 
2106 A 
7C5E B 
810E A 
850E A 
890E A 
8D0E A 
0200 A 



2C9C 
2102 
7C5E 
2101 
2D09 
8104 
8504 
8904 



8D04 A 



0201 
0D16 
0979 
0000 



JSR 


OICH 


AISZ 


R3,l 


J MP 


OSPDEC+1 


RTS 




. LOCAL 




GET COMMA 




JSR GCOMMA 




NO COMMA OR END RETURN 




YES COMMA RETURN 



GCOMMA: 



ST 

ST 

ST 

ST 

JSR 

JMP 

SKNE 

JMP 

DSZ 

LD 

LD 

LD 

LD 

RTS 

YES-COMMA 



R0 f $T0 

Rl, $T0+1 

R2 f $T0+2 

R3, $T0+3 

GNVC 

.+4 

R0, COMMA 

$1 

INPTR 

R0,$T0 

R1,$T0+1 

R2,$T0+2 

R3,$T0+3 



;NO MORE 



; INPUT CHAR PTR 



;NOT A COMMA 



$1 



JSR 
JMP 
DSZ 
JMP 
JSR 
LD 
LD 
LD 
LD 
RTS 
$T0 i . -. +4 

$MERROR: .WORD 
DSKERR: HALT 

.ENDIF 



3565 0D18 

3566 0D18 

3567 0D18 

3568 0D18 

3569 0D18 

3570 0D18 PRCTRL: 

3571 0D18 2915 A 

3572 0D19 210F A 

3573 0D1A 8D20 A 

3574 0D1B 8300 A $3: 

3575 0D1C 1104 A 

3576 0D1D F07D B 

3577 0D1E 2103 A 

3578 0D1F 4B03 A 

3579 0D20 21FA A 

3580 0D21 0200 A $1: 

3581 0D22 ; 

3582 0D22 8301 A $2: 

3583 0D23 B302 A 

3584 0D24 2C9C I 

3585 0D25 2103 A 



.PAGE 
.LOCAL 



GNVC 

.+3 

INPTR 

.+2 

@$MERROR 

R0, $T0 

R1,$T0+1 

R2, ST0+2 

R3,$T0+3 

1 

MERROR 



'PROCESS CONTROL STATEMENT' 



PROCESS CONTROL STATEMENT 



JSR 

JMP 

LD 

LD 

BOC 

SKNE 

JMP 

AISZ 

JMP 

RTS 

FOUND 

LD 

ST 

JSR 

JMP 



$GNAM 

$4 

R3, $CTAB 

R0,0(R3) 

Z,$l 

R0 f NAM0 

$2 

R3,3 

$3 



R0,1(R3) 

R0,@2(R3) 

GNVC 

$4 



FINISHED SEARCH AND NOT FOUND 
1ST 2 CHARACTERS OF NAME 



LOOP 
ILLEGAL NAME 
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3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 



0D26 

0D27 

0D28 

0D29 

0D2A 

0D2B 

0D2C 

0D2D 

0D2E 

0D2E 

0D2E 

0D2E 

0D2F 

0D30 

0D31 

0D32 

0D33 

0D34 

0D35 

0D36 

0D37 

0D38 

0D39 

0D3A 

0D3B 

0D3B 

0D3B 

0D3B 

0D3C 

0D3D 

0D3E 



F04F B 
21F0 A 

0200 A 
808F B $4: 
1501 A 
A091 B 

0201 A 

027F A K639: 



$GNAMi 
2C9C I 

0200 A 
5C08 A 
A07D B 
2C9C I 
4C20 A $10: 
F04F B 
2103 A 
C07D B 
A07D B 

0201 A 
7C5E B $11: 
21F8 A 



0D3C A $CTAB: 

4B42 A 

0001 A 
0089 B 

5054 A 

0002 A 

0089 B 
4F4D A 
0001 A 

0090 B 
5820 A 
0001 A 
0069 B 
4E4C A 
0000 A 

0091 B 
4E43 A 
003B A 

0092 B 
454C A 
0000 A 
008F B 
4E4D A 
0000 A 

0093 B 
0000 A 



3615 0D3F 
0D40 
0D41 

3616 0D42 
0D43 
0D44 

3617 0D45 
0D46 
0D47 

3618 0D48 
0D49 
0D4A 

3619 0D4B 
0D4C 
0D4D 

3620 0D4E 
0D4F 
0D50 

3621 0D51 
0D52 
0D53 

3622 0D54 

3623 0D55 

3624 0D55 

3625 0D55 ERROR; 

3626 0D55 A92D A 

3627 0D56 4000 A 

3628 0D57 805E B 

3629 0D58 A05F B 

3630 0D59 7C5F B $3: 

3631 0D5A 905F B 



SKNE 

JMP 

RTS 

LD 

BOC 

ST 

RTS 

.WORD 



JSR 

RTS 

SHL 

ST 

JSR 

LI 

SKNE 

JMP 

ADD 

ST 

RTS 

DSZ 

JMP 



P0 f COMMA 
PRCTRL 

R0,ERRLST 

NZ, .+2 

R0,NOLIST 

1 

639 



GNVC 

R0 f 8 

R0,NAM0 

GNVC 

R0,' '/256 

R0 f COMMA 

$11 

R0,NAM0 

R0,NAM0 

1 

INPTR 

$10 



;1ST 2 CHARACTERS OF NAME 



;1ST 2 CHARACTERS OF NAME 
;1ST 2 CHARACTERS OF NAME 

; INPUT CHAR PTP 



CONTROL STATEMENT TABLE 

.WORD .+1 

.WORD 'KB',1,INDEV 



.WORD 'PT',2,INDEV 



.WORD 'OM',l,OBJMOD 



.WORD 'X ',l,XINOK 



.WORD 'NL',0,NOLIST 



■ WORD 'NC', '; '/256,NOCOM 



.WORD 'EL',0,ERRLST 



.WORD 'NM',0,NOMAP 



.WORD 



.PAGE 


'ERROR SUBROUTINE 


. LOCAL 




ST 


R2,$TR2 


PUSH 


R0 


LD 


R0,INPTR 


ST 


R0,LCPTP 


DSZ 


LCPTR 


LD 


R0,@LCPTR 



60 



IMPASM 



3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 



0D5B 
0D5C 
0D5D 
0D5E 
0D5F 
0060 
0D61 
0D62 
0D63 
0D64 
0D65 
0D66 
0D67 
0D68 
0D69 
0D6A 
0D6B 
0D6C 
0D6D 
0D6D 
0D6E 
0D6F 
0D70 
0D70 
0D71 
0D79 
0D7A 
0D82 
0D83 
0D84 



F034 B 
21FC A 
785F B 
4400 A 
4000 A 
888B B 
F90E A 
210A A 
A200 A 
805F B 
D012 B 
F208 A 
2105 A 
A209 A 
808B B 
788B B 
F055 B 
2D17 A 



4400 A 
8914 A 
0200 A 



0D79 
0D79 
FFFF 
0D82 
2A2A 
0D84 



$1: 
S2: 



$ERRMX: 
ERBUF: 



?E1: 
$TR2: 



SKNE R0, BLANK 

JMP $3 

ISZ LCPTR 

PULL R0 

PUSH R0 

LD R2,ERRPT 

SKNE R2,$ERRMX 

JMP $1 

ST R0,0(R2) 

LD R0 f LCPTR 

SUB R0 f INBUFB 

SKNE R0 f ELIM(R2) 

JMP $1 

ST R0,ELIM+1(R2) 

LD R0,ERRPT 

ISZ ERRPT 

SKNE R0 r ERRBAS 

JSR @$PRMPT1 

PULL R0 

LD R2,$TR2 

RTS 

.WORD ERBUF+ELIM 

.=.+ELIM 

.WORD -1 

.=.+ELIM 

.WORD '**' 

. = .+1 



0C37 A $PRMPT1:.W0RD PRMPTl 



3662 0D85 



3663 
3664 
3665 
3666 
3667 



3669 



3670 



3671 



3672 



3673 



0D85 
0D85 
0D85 
0D85 
0D85 



0£ c o rtr\o c 

0D86 
0D87 



0000 A 
04E5 A 
AE57 A 



BUOO tr3i rt 



0D89 
0D8A 
0D8B 
0D8C 
0D8D 
0D8E 
0D8F 
0D90 
0D91 
0D92 
0D93 
0D94 
0D95 
0D96 
0D97 
0D98 
0D99 
0D9A 
0D9B 
0D9C 
0D9D 
0D9E 



4420 

0000 

04B9 

AE45 

5854 

4420 

0000 

0527 

AE4C A 

4953 A 

5420 

0000 

048E 

AE45 

4C53 

4520 

0000 

04FC 

AE50 

4147 

4520 

0000 



.PAGE 'SPECIAL DEBUGGING DIRECTIVES' 
.PAGE 'DIRECTIVE / INSTRUCTION TABLE 
DIRECTIVE / INSTRUCTION TABLE 



DITBLB: 



JORD 



.WORD 



ffl t.JApn * fir ' 



v i AvjRu f . f<i +S , OR i 



0,EXTD, '.E'+S, 'XT', 'D 



.WORD 0,LIST, .L'+S,'lS','T 



.WORD 0,ELSE, '.E'+S, 'LS', 'E 



.WORD 0,PAGE, '.P'+S, 'AG', 'E 



.WORD 0,IF, '.I', 'F' 
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0D9F 


0474 


A 




0DA0 


2E49 


A 




0DA1 


4620 


A 


3674 


0DA2 


0000 


A 




0DA3 


0379 


A 




0DA4 


2E45 


A 




0DA5 


4E44 


A 


3675 


0DA6 


0000 


A 




0DA7 


053D 


A 




0DA8 


AE54 


A 




0DA9 


4954 


A 




0DAA 


4C45 


A 


3676 


0DAB 


0000 


A 




0DAC 


04A6 


A 




0DAD 


AE41 


A 




0DAE 


5345 


A 




0DAF 


4354 


A 


3677 


0DB0 


0000 


A 




0DB1 


04B5 


A 




0DB2 


AE42 


A 




0DB3 


5345 


A 




0DB4 


4354 


A 


3678 


0DB5 


0000 


A 




0DB6 


04B7 


A 




0DB7 


AE54 


A 




0DB8 


5345 


A 




0DB9 


4354 


A 


3679 


0DBA 


0000 


A 




0DBB 


0513 


A 




0DBC 


AE53 


A 




0DBD 


5041 


A 




0OBE 


4345 


A 


3680 


0DBF 


0000 


A 




0DC0 


04C8 


A 




0DC1 


AE47 


A 




0DC2 


4C4F 


A 




0DC3 


424C 


A 


3681 


0DC4 


0000 


A 




0DC5 


04DB 


A 




0DC6 


AE4C 


A 




0DC7 


4F43 


A 




0DC8 


414C 


A 


3682 


0DC9 


0000 


A 




0DCA 


04EE 


A 




0DCB 


AE41 


A 




0DCC 


5343 


A 




0DCD 


4949 


A 


3683 


0DCE 


0000 


A 




0DCF 


049B 


A 




0DD0 


AE45 


A 




0DD1 


4E44 


A 




0DD2 


4946 


A 


3684 


0DD3 


0000 


A 




0DD4 


0539 


A 




0DD5 


2E41 


A 




0DD6 


534D 


A 


3685 


0DD7 






3686 


0DD7 






3687 


0DD7 






3688 


0DD7 


8000 


A 


3689 


0DD8 


08A7 


A 




0DD9 


4C44 


A 




0DDA 


2020 


A 



.WORD 0,END, '.E', 'ND' 



• WORD 0, TITLE, '.T'+S, 'IT', 'LE 



.WORD 0,ASECT, '.A'+S, 'SE', 'CT 



.WORD 0,BSECT, '.B'+S, 'SE', 'CT 



.WORD 0,TSECT, '.T'+S, 'SE', 'CT 



,WORD 0, SPACE, '.S'+S, 'PA', 'CE 



.WORD 0,GLOBL, '.G'+S, 'LO', 'BL 



WORD 0, LOCAL, '.L'+S, 'OC, 'AL 



.WORD 0, ASCII, '.A'+S, 'SC', 'II 



.WORD 0,ENDIF, '.E'+S, 'ND', 'IF 



.WORD 0,ASMDIP, '.A', 'SM 



INSTRUCTIONS 

LD 0,0 

.WORD IC1,'LD',' ' 
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36S0 0DDB 

3691 0DDC 
0DDD 
0DDE 

3692 0DDF 

3693 0DE0 
0DE1 
0DE2 

3694 0DE3 

3695 0DE4 



A000 A 
08A7 A 
5354 A 
2020 A 
C000 A 
08BB A 
4144 A 
4420 A 
D000 A 
08BB A 



ST 0,0 

.WORD IC1,'ST',' 



ADD 
.WORD 



SUB 
.WORD 



0,0 

IC2, 'AD', 'D 



0,0 

IC2, 'SU', 'B 



3696 
3697 



3698 
3699 



3700 
3701 



3702 
3703 



3704 
3705 



3706 
3707 



3708 
3709 



3710 
3711 



3712 
3713 



3714 
3715 



3716 
3717 



3718 
3719 



0DE5 
0DE6 
0DE7 
0DE8 
0DE9 
0DEA 
0DEB 
0DEC 
0DED 
0DEE 
0DEF 
0DF0 
0DF1 
0DF2 
0DF3 
0DF4 
0DF5 
0DF6 
0DF7 
0DF8 
0DF9 
0DFA 
0DFB 
0DFC 
0DFD 
0DFE 
0DFF 
0E00 
0E01 
0E02 
0E03 
0E04 
0E05 
0E06 
0E07 
0E0S 
0E09 
0E0A 
0E0B 
0E0C 
0E0D 
0E0E 
0E0F 
0E10 
0E11 
0E12 
0E13 
0E14 
0E15 
0E16 
0E17 
0E18 



5355 
4220 
E000 
08BB 
534B 
4720 
F000 
08BB 
534B A 
4E45 A 
6000 A 
08C6 A 
414E A 
4420 A 
6800 A 
08C6 A 
4F52 A 
2020 A 
7000 A 
08C6 A 
534B A 
415A A 
7800 A 
08C2 A 
4953 A 
5A20 A 
7C00 A 
08C2 A 
4453 A 
5A20 
3081 
08CA 
4E4F 
5020 
0080 A 
08CA A 
D055 A 
5348 A 
4620 A 
0280 A 
08CA A 
D055 A 
4C4C A 
4620 A 
0000 A 
08CA A 
4841 
4C54 
0510 
08CC 
C953 A 
4341 A 



SKG 0,0 

.WORD IC2,'SK','G ' 



SKNE 0,0 

.WORD IC2,'SK','NE 



AND 0,0 

.WORD IC3,'AN','D ' 



OR 0,0 

.WORD IC3,'OR',' 



SKAZ 
.WORD 


0,0 

IC3, 'SK', 'AZ 


ISZ 

.WORD 




IC4, 'IS', 'Z 


DSZ 
.WORD 




IC4, 'DS', 'Z 


NOP 
• WORD 


IC5, 'NO', 'P 


PUSHF 
.WORD 


IC5,08000+'P 



PULLF 

.WORD IC5,08000+'PU', 'LL', 'F 



HALT 
.WORD 



.WORD 
.WORD 



IC5, 'HA', 'LT' 



0510 ;ISCAN 

IC5A, 08000+ 'IS', 'CA', 'N 
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0E19 


4E20 


A 


3720 


0E1A 


4000 


A 


3721 


0E1B 


08CF 


A 




0E1C 


5055 


A 




0E1D 


5348 


A 


3722 


0E1E 


4400 


A 


3723 


0E1F 


08CF 


A 




0E20 


5055 


A 




0E21 


4C4C 


A 


3724 


0E22 


5400 


A 


3725 


0E23 


08CF 


A 




0E24 


D843 


A 




0E25 


4852 


A 




0E26 


5320 


A 


3726 


0E27 


4800 


A 


3727 


0E28 


08D4 


A 




0E29 


4149 


A 




0E2A 


535A 


A 


3728 


0E2B 


4C00 


A 


3729 


0E2C 


08D4 


A 




0E2D 


4C49 


A 




0E2E 


2020 


A 


3730 


0E2F 


5000 


A 


3731 


0E30 


08D4 


A 




0E31 


4341 


A 




0E32 


4920 


A 


3732 


0E33 


5800 


A 


3733 


0E34 


08D4 


A 




0E35 


524F 


A 




0E36 


4C20 


A 


3734 


0E37 


5C00 


A 


3735 


0E38 


08D4 


A 




0E39 


5348 


A 




0E3A 


4C20 


A 


3736 


0E3B 


5800 


A 


3737 


0E3C 


08DF 


A 




0E3D 


524F 


A 




0E3E 


5220 


A 


3738 


0E3F 


5C00 


A 


3739 


0E40 


08DF 


A 




0E41 


5348 


A 




0E42 


5220 


A 


3740 


0E43 


3000 


A 


3741 


0E44 


08EC 


A 




0E45 


5241 


A 




0E46 


4444 


A 


3742 


0E47 


3080 


A 


3743 


0E48 


08EC 


A 




0E49 


5258 


A 




0E4A 


4348 


A 


3744 


0E4B 


3081 


A 


3745 


0E4C 


08EC 


A 




0E4D 


5243 


A 




0E4E 


5059 


A 


3746 


0E4F 


3082 


A 


3747 


0E50 


08EC 


A 




0E51 


5258 


A 




0E52 


4F52 


A 


3748 


0E53 


3083 


A 


3749 


0E54 


08EC 


A 




0E55 


5241 


A 




0E56 


4E44 


A 


3750 


0E57 


2000 


A 



PUSH 

.WORD IC6, 'PU', 'SH' 



PULL 

.WORD IC6, 'PU', 'LL' 



.WORD 05400 

.WORD IC6,08000+'XC', 'HR', 'S 



AISZ 0,0 

.WORD IC7,'Al','SZ 



LI 0,0 

.WORD IC7,'LI',' 



CAI 0,0 

.WORD IC7,'CA','I 



ROL 0,0 

.WORD IC7,'RO','L 



SHL 0,0 

.WORD IC7,'SH','L 



ROR , 

•WORD IC7A,'RO','F 



SHR 0,0 

.WORD IC7A,'SH','R 



RADD , 

.WORD IC8,'RA','DD 



RXCH 0,0 

.WORD IC8,'RX','CH 



PCPY 0,0 

.WORD IC8,'RC','PY 



RXOR 0,0 

.WORD IC8,'RX','OR 



RAND , 

.WORD IC8,'RA','ND 



JMP 
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3751 0E58 08FB A .WORD IC9,'JM','P 
0E59 4A4D A 

0E5A 5020 A 

3752 0E5B 2800 A JSR 

3753 0E5C 08FB A .WORD IC9,'JS','R 
0E5D 4A53 A 

0E5E 5220 A 

3754 0E5F 0800 A SFLG 

3755 0E60 0908 A .WORD IC10 , 'SF ' , 'LG ' 
0E61 5346 A 

0E62 4C47 A 

3756 0E63 0880 A PFLG 

3757 0E64 0908 A .WORD IC10 , 'PF ' , 'LG ' 
0E65 5046 A 

0E66 4C47 A 

3758 0E67 1000 A BOC 0,.+l 

3759 0E68 0913 A .WORD ICll,'BO','C ' 
0E69 424F A 

0E6A 4320 A 

3760 0E6B 0200 A RTS 

3761 0E6C 0925 A .WORD IC12,'RT','S ' 
0E6D 5254 A 

0E6E 5320 A 

3762 0E6F 0400 A RIN 

3763 0E70 0925 A .WORD IC12 , 'RI ' , 'N ' 
0E71 5249 A 

0E72 4E20 A 

3764 0E73 0600 A ROUT 

3765 0E74 0925 A .WORD IC12, 'RO ' , 'UT ' 
0E75 524F A 

0E76 5554 A 

3766 0E77 0100 A RTI 

3767 0E78 0925 A .WORD IC12,'RT' f 'l ' 
0E79 5254 A 

0E7A 4920 A 

3768 0E7B 0300 A .WORD 0300 ;JSRP 

3769 0E7C 0929 A .WORD IC12A, 'JS ' , 'RP ' 
0E7D 4A53 A 

0E7E 5250 A 

3770 0E7F 0520 A .WORD 0520 ;JINT 

3771 0E80 092F A .WORD IC13A, 'JI ' , 'NT ' 

0E81 4A49 A 
0E82 4E54 A 

3772 0E83 0700 A .WORD 0700 ;SETST 

3773 0E84 092F A .WORD IC13A, 08000+ 'SE ', 'TS ' , 'T 
0E85 D345 A 

0E86 5453 A 
0E87 5420 A 

3774 0E88 0710 A .WORD 0710 ;CLRST 

3775 0E89 092F A .WORD IC1 3A, 08000+ 'CL ', 'RS ', 'T ' 
0E8A C34C A 

0E8B 5253 A 
0E8C 5420 A 

3776 0E8D 0720 A .WORD 0720 ;SETBIT 

3777 0E8E 092F A .WORD IC1 3A, 08000+ 'SE ' , 'TB ', 'IT 
0E8F D345 A 

0E90 5442 A 
0E91 4954 A 

3778 0E92 0730 A .WORD 0730 ;CLRBIT 

3779 0E93 092F A .WORD IC13A, 08000+ 'CL ', 'RB ', 'IT 
0E94 C34C A 

0E95 5242 A 
0E96 4954 A 
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3780 


0E97 


0750 


A 


3781 


0E98 


092F 


A 




0E99 


D34B 


A 




0E9A 


4249 


A 




0E9B 


5420 


A 


3782 


0E9C 


0740 


A 


3783 


0E9D 


092F 


A 




0E9E 


D34B 


A 




0E9F 


5354 


A 




0EA0 


4620 


A 


3784 


0EA1 


0760 


A 


3785 


0EA2 


092F 


A 




0EA3 


C34D 


A 




0EA4 


5042 


A 




0EA5 


4954 


A 


3786 


0EA6 


0500 


A 


3787 


0EA7 


092F 


A 




0EA8 


4A4D 


A 




0EA9 


5050 


A 


3788 


0EAA 


0480 


A 


3789 


0EAB 


0935 


A 




0EAC 


4050 


A 




0EAD 


5920 


A 


3790 


0EAE 


0490 


A 


3791 


0EAF 


0935 


A 




0EB0 


4449 


A 




0EB1 


5620 


A 


3792 


0EB2 


04A0 


A 


3793 


0EB3 


0935 


A 




0EB4 


4441 


A 




0EB5 


4444 


A 


3794 


0EB6 


04B0 


A 


3795 


0EB7 


0935 


A 




0EB8 


4453 


A 




0EB9 


5542 


A 


3796 


0EBA 


04C0 


A 


3797 


0EBB 


0937 


A 




0EBC 


4C44 


A 




0EBD 


4220 


A 


3798 


0EBE 


04D0 


A 


3799 


0EBF 


0937 


A 




0EC0 


5354 


A 




0EC1 


4220 


A 


3800 


0EC2 


04C0 


A 


3801 


0EC3 


0937 


A 




0EC4 


4C4C 


A 




0EC5 


4220 


A 


3802 


0EC6 


04D0 


A 


3803 


0EC7 


0937 


A 




0EC8 


534C 


A 




0EC9 


4220 


A 


3804 


0ECA 


04C0 


A 


3805 


0ECB 


093A 


A 




0ECC 


4C52 


A 




0ECD 


4220 


A 


3806 


0ECE 


04D0 


A 


3807 


0ECF 


093A 


A 




0ED0 


5352 


A 




0ED1 


4220 


A 


3808 


0ED2 


0380 


A 


3809 


0ED3 


0941 


A 




0ED4 


4A53 


A 




0ED5 


5249 


A 



.WORD 0750 ;SKBIT 

.WORD IC13A,S+'SK', 'BI ', 'T ' 



.WORD 0740 ySKSTF 

.WORD IC13A,S+'SK', 'ST', 'F ' 



.WORD 0760 ;CMPBIT 

.WORD IC13A, 08000+ 'CM', 'PB', 'IT 



.WORD 0500 yJMPP 

.WORD IC13A, 'JM', 'PP' 



.WORD 0480 ;MPY 

.WORD IC14,'MP','Y ' 



.WORD 0490 

.WORD IC14,'DI','V 



WORD 


04A0 


WORD 


IC14, 'DA', 'DD 


WORD 


04B0 


WORD 


IC14, 'DS', 'UB 


WORD 


04C0 


WORD 


IC15, 'LD', 'B' 



;DIV 



;DADD 



;DSUB 



;LDB 



.WORD 04D0 ;STB 

.WORD IC15, 'ST', 'B' 



.WORD 04C0 ;LLB 

.WORD IC15, 'LL', 'B' 



.WORD 04D0 ;SLB 

.WORD IC15, 'SL', 'B' 



;LRB 



;SRB 



.WORD 0380 ;JSRI 

.WORD IC17, 'JS', 'RI' rJSRI 



WORD 


04C0 




WORD 


IC16, 'LR', 


'B 


WORD 


04D0 




WORD 


IC16, 'SR', 


'B 
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3810 0ED6 




DITBL2: 






3811 0ED6 




r 


END IF IMP 16 


ASSEMBLER 


3812 0ED6 




t 






3813 0ED6 




BADSTB: 






3814 0ED6 






.ENDIF 




3815 0ED6 




STBAS : 






3816 0ED6 


02B0 


A 


.END START 




0098 


0427 


A 






0099 


0ADB 


A 






009A 


0BD3 


A 






009B 


0CFA 


A 






009C 


0C19 


A 






009D 


0651 


A 






009E 


0199 


A 






009F 


01D9 


A 






00A0 


01E1 


A 






00A1 


01DA 


A 






00A2 


01DE 


A 






00A3 


01DF 


A 






00A4 


01E0 


A 






00A5 


0AC3 


A 






00A6 


0438 


A 






00A7 


0D18 


A 






00A8 


0AD4 


A 






00A9 


0170 


A 






00AA 


0406 


A 






00AB 


0407 


A 






00AC 


0C60 


A 






00 AD 


0D55 


A 






00AE 


0A56 


A 






00AF 


0AFB 


A 






00B0 


0B05 


A 






00B1 


0A7C 


A 






00B2 


0BAA 


A 






00B3 


06E7 


A 






00B4 


0571 


A 






00B5 


058D 


A 






00B6 


0CDC 


A 






00B7 


5AC 


A 






00B8 


06F5 


A 






00B9 


07A0 


A 






00BA 


0C7D 


A 






00BB 


05C2 


A 






00BC 


04BD 


A 






00BD 


0A84 


A 






00BE 


044A 


A 






00BF 


07F5 


A 






00C0 


031B 


A 






00C1 


07F7 


A 






00C2 


0454 


A 






00C3 


0CBC 


A 






00C4 


01DD 


A 






00C5 


01DC 


A 






00C6 


0C96 


A 






00C7 


07F3 


A 






00C8 


034C 


A 






00C9 


0AD5 


A 






00CA 


0CE9 


A 






00CB 


046C 


A 






00CC 


0ADC 


A 






00CD 


0A96 


A 






00CE 


02E5 


A 






00CF 


0AA6 


A 
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00D0 


0A03 


A 


00D1 


0A20 


A 


00D2 


0A8E 


A 


00D3 


0347 


A 


00D4 


06D4 


A 


00D5 


0342 


A 


00D6 


034A 


A 


00D7 


07B7 


A 


00D8 


07E1 


A 


00D9 


0AE7 


A 


00DA 


0A23 


A 


00DB 


033F 


A 


00DC 


0359 


A 


00DD 


0CE3 


A 


00DE 


0340 


A 


00DF 


0743 


A 


00E0 


0CE6 


A 


00E1 


0C29 


A 


00E2 


07E4 


A 


00E3 


0343 


A 


00E4 


0C26 


A 


00E5 


0AAB 


A 


00E6 


0AA8 


A 


00E7 


0AAA 


A 


00E8 


0A2C 


A 


00E9 


0970 


A 


00EA 


0983 


A 


00EB 


0982 


A 


00EC 


0345 


A 


00ED 


0A2A 


A 


00EE 


0344 


A 


00EF 


0975 


A 


00F0 


0A28 


A 


00F1 


0979 


A 


00F2 


0A2E 


A 


00F3 


0A32 


A 


00F4 


0A30 


A 


00F5 


0A06 


A 


00F6 


0924 


A 


00F7 


0B7F 


A 



ERRORS IN ASSEMBLY 



****** 



$1S $1' $1( $1) $1* $1+ $1, $1- $1. $1/ 
0482 A 04A7 A 04CB A 050E A 0555 A 05A6 A 05CF A 0688 A 06EE A 074D A 

$10( $10+ $10. $10/ $100- $1007 $101 $1027 $1037 $104 
04F9 A 05A3 A 073D A 078C A 0685 A 0B1A A 07E0 A 0B07 A 0B10 A 09FE A 

$1047 $109 $10= $10A9 $10B9 $11 $11( $11, $11. $111 
0B39 A 0BB8 A 0D33 A 0BCE A 0BBA A 07DE A 04F6 A 061D A 073E A 07EF A 

$1113 $113 $11= $11B9 $11C9 $12 $12( $12, $12. $121 
0921 A 08B3 A 0D39 A 0BF1 A 0BC6 A 087B A 04F1 A 061E A 0740 A 07ED A 

$123 $129 $12A9 $12B9 $13, $14, $15 $15, $16 $18 
08B6 A 0BD6 A 0BDE A 0BDA A 0608 A 0605 A 0A45 A 05FA A 0A63 A 0B82 A 

$19 $1; $1< $1= $1> $1A( $1A, $2" $2( $2) 
0C1A A 0CE2 A 0D08 A 0D21 A 0D6D A 04D1 A 05D9 A 02CB A 04D7 A 0503 A 

$2* $2+ $2- $2. $2/ $20 $20+ $20, $2007 $21 
055D A 05B8 A 068A A 06F5 A 076E A 07A3 A 057A A 062F A 0B37 A 07BE A 
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$213 $21: $22 $22: $24 $25 $28 $29 $2; $2= 
08BE A 0C87 A 088F A 0C81 A 09AA A 0A3C A 0BA5 A 0C2B A 0CE5 A 0D22 A 

$2> $2A/ $2A1 $2A2 $2B0 $2B2 $3" $3( $3) $3* 
0D6D A 0773 A 07BC A 0893 A 07AA A 0898 A 02DB A 04D6 A 0505 A 0562 A 

$3+ $3- $3. $3/ $30 $30, $30- $3002 $30: $31 
05BA A 068B A 06F8 A 0751 A 07AE A 064F A 067D A 080F A 0CB2 A 07CD A 

$31: $32 $33: $34 $35 $36 $38 $39 $3= $3> 
0CB4 A 08A6 A 0CA0 A 09AE A 0A4E A 0A71 A 0B8E A 0C2E A 0D1B A 0D59 A 

$3A2 $4( $4) $4* $4- $4. $4/ $40 $41 $413 
081F A 04D9 A 050A A 055E A 0692 A 0712 A 0755 A 07AF A 07C9 A 08C3 A 

$45 $48 $4= $4A. $4B. $5( $5* $5+ $50% $504 
0A21 A 0B98 A 0D29 A 071B A 0717 A 04E3 A 0567 A 05A4 A 03C4 A 0A0B A 

$509 $51 $51% $514 $519 $52 $524 $529 $55 $58 
0BB7 A 07C0 A 03A3 A 0A0F A 0C4C A 0828 A 0A17 A 0C4D A 0A24 A 0B8A A 

$5A$ $6( $6+ $6/ $60; $61 $619 $61; $62 $68 
0376 A 04E8 A 05BC A 076A A 0CF5 A 07D2 A 0BAF A 0CF2 A 0841 A 0B9C A 

$7+ $7/ $71 $72 $78 $8/ $803 $81 $88 $9/ 
057D A 076C A 07C4 A 08A1 A 0B91 A 0784 A 08F8 A 07D9 A 0B87 A 0774 A 

$91 $913 $923 $ABS14 $ABS4 $ADR4 $ADR04 $AERR4 $AND, $APEN/ 
07D7 A 0900 A 0903 A 09A5 A 099A A 0984 A 09AD A 09D0 A 062C A 0758 A 



$APPE/ $BKSP9 $BLNK* $BS0- $BSEC4 $BSPR- $BYP1) $CB$ SCBZ2 $CI4 

0758 A 0C12 A 0560 A 06D1 A 09FB A 0677 A 0523 A 033E A 0850 A 0A1F A 

$CK+ $COM, $C0NV2 $CT2 $CTAB= $DEC- $DEF4 $DIV, $DL. $DOT$ 

0586 A 0635 A 0849 A 085C A 0D3B A 06A2 A 0991 A 0626 A 0720 A 0365 A 

$DOT- $DT. $E1> $EB% $EERR, $EL% $EL0K& SEND! $ENDB: $EQPG6 

06C6 A 071F A 0D82 A 0401 A 05F9 A 03D1 A 0494 A 07F2 A 0CBB A 0AF0 A 

$EQTT6 $ERET4 $ERR- $ERRM> $EX0 f $EXPN, $EXPN5 $EXT4 $FIN, $FINl% 

0AF1 A 09C7 A 06CE A 0D70 A 0640 A 0636 A 0A35 A 09FB A 063C A 03FA A 

$FINI% $FLAG2 $FLAG5 $F02 $GAN. $GC9 $GDEC" $GL. $GL1. $GLBN2 

03FA A 0860 A 0A55 A 085D A 0735 A 0BD8 A 02DD A 072A A 072B A 0859 A 

$GNAM= $GP. $GP1. $GR. $GS1. $GS2. $KEX- $IBEN8 $IBL9 $IFLA4 

0D2E A 0721 A 0722 A 0730 A 06E4 A 06D7 A 06«D A 0BA9 A 0C28 A 0A01 A 

$I0K14 $IOK24 $IOK34 $I0K4 $IOK44 $IOK54 $IOK64 SIPTR8 $LAST2 $LF9 

09F4 A 09EA A 09E6 A 09D6 A 09EF A 09DF A 09F8 A 0BA8 A 07FA A 0C17 A 

$L0NG2 $L00P2 $L00W6 $LP4 $MAIN# $MAN16 $MASK5 $MERR4 $MERR< $MG2 

088D A 0809 A 0A78 A 09BA A 033A A 0AD0 A 0A54 A 09D3 A 0D16 A 0861 A 

$MIN1- $MINU, $MINU- $MPY, $MPY1, $NAME- $NERR& SNEXT2 $NK29 SNLCL2 

0698 A 05FE A 0697 A 0620 A 0624 A 06B6 A 0491 A 085A A 0C58 A 0877 A 

$N0% $NOEX& $N0PR9 $NOT- $NOUN- $N0X3 $NP% $NXT, $NXTA/ $NXTB/ 

03E0 A 048B A 0BB8 A 0695 A 067E A 0968 A 041D A 05D7 A 079C A 079D A 

$01X16 $01X26 $01X36 $01X6 $0E% $0P, $0R, $0R: $0V& $PGBF) 

0A9A A 0AA2 A 0AA0 A 0A99 A 03E4 A 05F0 A 0631 A 0C89 A 0488 A 0538 A 
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$PLUS, $PMRE f $PRM9 $PRMP> $PR0M9 $PT2 $PTR* $PTR1* SPTRL* $PUT16 
05F1 A 0612 A 0BB2 A 0D84 A 0BD2 A 085B A 056E A 056F A 0570 A 0AB0 A 

$PUT26 $PUT36 $QNXT/ $QUOT- $REL, $REL3 $REL6 $RELT6 $REND/ $RETl- 
0AB6 A 0AB4 A 079E A 069E A 0644 A 096F A 0A83 A 0A79 A 078E A 0678 A 

$RET6 $RETC9 $RM2 $ROV/ $RSER/ $RTB2 $SAME ' $SERC$ $SETB/ $SORF 
0AC2 A 0C24 A 085E A 0788 A 074A A 085F A 04C4 A 036D A 0794 A 06E6 A 

$STR12 $STRT2 $SYRE- $T0. $T0< $T1) $T1. $TAB19 $TAB9 $TEMP6 
07FD A 07F8 A 06C9 A 0728 A 0D12 A 0537 A 0729 A 0C03 A 0BFA A 0AA4 A 

$TEST- $TMP" $TMP% $TMP ' $TMP7 $TMP: $TR2> $TRYI4 $TSEC4 $TTL# 
0658 A 02E2 A 03DF A 04C7 A 0B3C A 0CC6 A 0DP3 A 09CE A 09CB A 031A A 

$TTL% $UM- $UNOT- $UOP- $VAL3 $VERR4 $W0RD1 $WRD6 $X- $X203% 
0400 A 0681 A 067C A 0684 A 096E A 09C5 A 07F1 A 0A82 A 06B1 A 0378 A 

$XARG$ $XERR, $XERR3 $XFLA4 $X0K4 ABST ACTR ADRERR AMAX ASCII 
033D A 060F A 097D A 0A02 A 09B4 A 0021 B 0056 B 0977 A 0059 B 04EE A 

ASECT ASMDIR ASSIGN BlEQl BADSTB BASE BASEA BASEB BCTR BEGP34 
04A6 A 0539 A 058D A 0004 A 0ED6 A 0060 B 0063 B 0066 B 0057 B 03BA A 

BLANK BLANKS BLDDIR BLDNAM BMAX BSECT CAND CAT CDIV CHARX 
0034 B 0048 B 06F5 A 06E7 A 005A B 04B5 A 0053 B 0032 B 0035 B 0044 B 

CKPNCH CLOSEO CLOSET CMINUS CMPY CNAM0 CNAM1 CNOT COLAN COMMA 
0C96 A 001D B 001C B 0051 B 003C B 0080 B 0081 B 0052 B 004B B 004F B 

COR CPLUS CR CZERO DBGVER DBWIN DIREND DISER DITBL2 DITBLB 
0054 B 0050 B 0047 B 0038 B 0000 A 0950 A 0347 A 07A0 A 0ED6 A 0D85 A 

DITBLF DITBLL DIVD DOLLAR DOT DOTASN DSKERR DSKIN DSKOBJ DSKTMP 
07B6 A 07B5 A 000E B 004E B 004A B 05AC A 0D17 A 001F B 001E B 0020 B 

EC ECHOGC ELIM ELSE END ENDBUF ENDIF ENDP1 ENDP2 ENDP3 
0088 B 0014 B 0008 A 048E A 0379 A 0402 A 049B A 0395 A 03B1 A 03E3 A 

ENDP4 ENDPCH ENDST E?UAL ERBUF ERRBAS ERRLST ERRMSG ERROR ERRPT 
03FB A 0CB8 A 034A A 004C B 0D71 A 0055 B 008F B 0B3D A 0D55 A 008B B 

ERRST EXP EXP4 EXP8 EXPABS EXPFRM EXPP EXPP1 EXPP2 EXPP3 
0342 A 05C2 A 0A26 A 0A28 A 0A20 A 0A34 A 0A23 A 0A2A A 0A2C A 0A2E A 

EXPP4 EXPP7 EXPPD EXPREL EXPVAL EXTD FORMB FORMBN FORMM FORMPT 
0A30 A 0A32 A 007B B 007C B 007A B 04B9 A 0075 B 0078 B 0077 B 0074 B 

FORMT FORMTN GADR GADRI GADRIX GADRX GCOMMA GCSTRG GETC GFORM 
0076 B 0079 B 097F A 0980 A 0983 A 0982 A 0CFA A 07E1 A 000F B 06D6 A 

GITEM GLBUF GLOBL GNC GNCVC GNSTRG GNVC GSIZE GSTCON GSYM 
0651 A 0863 A 04C8 A 0C26 A 0C29 A 07B7 A 0C19 A 02CE A 07E4 A 06D4 A 

HEX20 HEX2A HEX2F HEX30 HEX37 HEX39 HEX3F HEX40 HEX400 HEX46 
0034 B 003C B 0035 B 0038 B 0039 B 0036 B 003B B 0032 B 003D B 0037 B 

HEX5A HEX5F HEX760 HEX7D HEX7F HEXD0A HSPR HSPRT IC1 IC10 
0033 B 0C15 A 02E3 A 0C16 A 003A B 0AA5 A 0096 B 001A B 08A7 A 0908 A 

IC11 IC12 IC12A IC13 IC13A IC14 IC15 IC16 IC16A IC17 
0913 A 0925 A 0929 A 0931 A 092F A 0935 A 0937 A 093A A 093D A 0941 A 
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IC2 IC3 IC4 IC5 IC5A IC6 IC7 IC7A IC8 IC9 

08BB A 08C6 A 08C2 A 08CA A 08CC A 08CF A 08D4 A 08DF A 08EC A 08FB A 

ICLASS IDSKIN IDSKTM IF IFBYP IFMODE IFPTR IFPTRA IFSKIP IFSTAT 

0073 B 0094 B 0095 B 0474 A 0CDC A 0070 B 006D B 006E B 0CDF A 006F B 



IFTAB IFTBL INABS INBUF INBUFB INBUFE INDEV INERR INERR1 INITOR 
018F A 04A5 A 0344 A 0120 A 0012 B 0013 B 0089 B 0970 A 0971 A 0C60 A 

INOUT INPTR IREL ITREL ITVAL IVAL Kl Kll K15 K16 
0345 A 005E B 0924 A 0087 B 0086 B 0072 B 0026 B 0025 B 002D B 0041 B 

K2 K255 K256 K3 K4 K6 K639 K7 K8 K9 
0040 B 0024 B 003F B 0027 B 002C B 0028 3 0D2D A 002A B 0029 B 0026 B 

KM129 KM41 KM57 KM65 LABEL LABST LBLPT LCNT1 LCNT2 LCNT2A 
0A05 A 0C0F A 0C10 A 0C11 A 0571 A 02E4 A 008A B 008C B 008D B 0C18 A 

LCPTR LEAD LEAD8 LEZ LINIT LIST LISTMD LOCAL LOCCTR LOCREG 
005F B 0CBC A 0CBF A 000B A 0015 B 0527 A 008E B 04DB A 005C B 006C B 

LPAREN MANYNL MAPLIN MAXR1 MERROR MESS MOFLAG MSGBEG MSGEP MSGNOE 
0046 B 0AC3 A 086A A 04BD A 0979 A 001B B 006A B 0427 A 0445 A 046C A 

MSGNXT MSGOCK MSGP MSGSOV MSGTAB MSGTO MULT NAM0 NAMl NAM2 
0438 A 0465 A 044A A 044C A 0B42 A 0454 A 000D B 007D B 007E B 007F B 

NEWASM NEWLIN NEXT NEXTA NEXTB NEXTLB NEXTST NOCOM NOLIST NOMAP 
02E5 A 0AD4 A 0062 B 0065 B 0068 B 0359 A 034C A 0092 B 0091 B 0093 B 

NZ 012B OIB OICH 02B 02CH 04B 06B OBJCK OBJMOD 
0005 A 0ABE A 0AAA A 0AAB A 0AA8 A 0AD5 A 0AA7 A 0AA6 A 0407 A 0090 B 

OBJPT1 OBJPT2 OBJPTR OBJREC ODD OEPM OGLOB OHEX OHEXIF OIBREP 
0CDA A 0CDB A 0CD9 A 0CC7 A 0003 A 0408 A 07F3 A 0A96 A 0A8E A 0AFB A 

OIBUF OLAST OMAP OMAPNR OMSG ONLMSG OOREC OOWORD OPGSTR OPTRS 
0B7F A 03E2 A 07F7 A 07FB A 0ADC A 0ADB A 0C7D A 0C6F A 0AE7 A 0414 A 

OSPDEC OUTWRD OVAL P PIP2 P2P1 PAGE PASS PGRL PGSTRG 
0CE9 A 0A56 A 0A84 A 0002 A 0CE6 A 0CE3 A 04FC A 005D B 0071 B 0170 A 

PINIT PNCHMD PR2PTR PRCTRL PREPLB PRMPT1 PRMPT2 PROMPT PTABF PTABL 
031B A 000C A 0AFA A 0D18 A 05BE A 0C37 A 0C35 A 0C3E A 0A03 A 0A04 A 

PTREND PTRTAB PUTC QERROR QUOTE R0 Rl R2 R3 RDCPD 
01DA A 0199 A 0010 B 0975 A 0045 B 0000 A 0001 A 0002 A 0003 A 0011 B 

RDSKIN RDSKTM RDTTY READ RELTB REPERR RESETP RPAREN S SCANST 
0018 B 0019 B 0BD3 A 0BAA A 0A79 A 0B05 A 07F5 A 0043 B 8000 A 0808 A 

SECT SEMI SHIFT SHLIN SIZE4 SIZE8 SOUCK SPACE SPADR START 
006B B 0049 B 0C8A A 004D B 0001 A FFFF A 0406 A 0513 A 0A06 A 02B0 A 

STBAS STPDEF STPT STREL STSER STTOP STVAL TCTR TITLE TLAST 
0ED6 A 0083 B 0085 B 0084 B 0743 A 0FFF A 0082 B 0058 B 053D A 03E1 A 

TMAX TOP TOPA TOPB TSECT TTLBUF TYPMOD VERROR WDSKOB WDSKTM 
005B B 0061 B 0064 B 0067 B 04B7 A 01DA A 0097 B 097B A 0017 B 0016 B 
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WORD WORD3 WORD4 WORD5 WORD6 X1000 X2020 X2031 X6666 X8000 
04E5 A 0CC9 A 0CCA A 0CCB A 0CCC A 003E B 0858 A 03FF A 0031 B 0030 B 

X8004 XARGCK XERRl XERROR XF000 XFF00 XFFF0 XFFF7 XFFFB XINOK 
0C6E A 0AF2 A 0340 A 033F A 06D3 A 0042 B 002E B 002F B 079F A 0069 E 

Z ZERO 
0001 A 0023 B 

EB4E 8B8E 
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REVISION-G 05/16/74 
CRD16P 00313C 7/12/74 



CRD16P 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 

24 0000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 0000 

31 0000 

32 0000 

33 0000 

34 0000 

35 0000 

36 0000 

37 0000 

38 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 

44 0000 

45 0000 

46 0000 

47 0000 

48 0000 

49 0000 

50 0000 

51 0000 

52 0000 

53 0000 

54 0000 

55 0000 

56 7F00 

57 7F00 

58 7F00 

59 7F00 



.TITLE CRD16P, '00313C 7/12/74' 

THIS IS AN ABSOLUTE LOADER FOR THE IMP-16P SYSTEM 

THIS PROGRAM READS RLM(S) FROM THE CARD READER AND 
LOADS THE DATA INTO MEMORY. THE CARDS MUST HAVE BEEN 
PUNCHED INTO CARD COLUMNS 1-72, AND CAN CONTAIN PUNCH 
CODES ONLY FOR THE CHARACTERS 0,1,...,9,A,B,...,F, OR 
BLANK. BLANKS WILL BE TREATED AS 0. 

RLM(S) MUST BE IN STANDARD RLM FORMAT. TITLE CARDS 
AND SYMBOL CARDS ARE IGNORED. DATA FROM DATA CARDS IS 
MOVED TO THE SPECIFIED LOAD LOCATIONS WITHOUT ANY 
RELOCATION PERFORMED. AT LEAST ONE END CARD MUST 
CONTAIN AN ENTRY POINT ADDRESS (SEE ERROR CODE 5, BELOW). 
THE ORDER OF THE INPUT CARDS IS UNIMPORTANT. 

A CHECKSUM TEST IS PERFORMED ON ALL DATA CARDS. (SEE 
ERROR CODE 3, BELOW.) 

THERE ARE NO RESTRICTIONS ON THE ADDRESSES THAT MAY BE 
LOADED, SINCE NO MAIN MEMORY IS USED BY THIS PROGRAM. 

THE DECK(S) TO BE LOADED MUST BE FOLLOWED BY A '!GO' CARD 
(EXCLAMATION-POINT IN COLUMN 1; 'G ' IN COLUMN 2). 
EXECUTION WILL BEGIN AT THE LAST NON-ZERO ENTRY POINT. 



ERROR MEANING 



ACTION 



I/O ERROR 

INV. CHARACTER 



CHECKSUM ERROR 



TNV. ENTRY PDTNT 1 



REPLACE CARD IN READER AND PUSH STAR 

CORRECT CARD, REPLACE IN READER, AND 
PUSH START. THE INVALID HOLLERIT 
CODE IS IN AC1. (ONLY CODES 
0,.,,,F AND BLANK ARE ALLOWED.) 

CORRECT CARD, REPLACE IN READER, AND 
PUSH START. 

SET CORRECT ENTRY POINT INTO AC1 
AND PUSH START. 



ALL ERROR CODES ARE LOADED INTO AC0 BEFORE HALTING. 

THIS PROGRAM FITS INTO 2 8X256-BIT PROMS ON THE 
IMP-16P CARD READER/TELETYPE INTERFACE CARD: 



IMP 
NUMBER 



PROM 
NUMBER 



ROM 
NUMBER 



IMP-16F/004A 4600313C 4100313C 
IMP-16F/004B 4610313C 4110313C 
.PAGE 'ABSCR ROUTINE - IMP-16P' 



BOARD 
CO-ORDINATE 

4G 
6G 



7F00 A 



0000 A AC0 



.ASECT 
.=07F00 

DEFINITIONS 



; STARTING ADDRESS = 7F00 



CRD16P 



60 


7F00 


0001 


A 


AC1 


61 


7F00 


0002 


A 


AC 2 


62 


7F00 


0003 


A 


AC 3 


63 


7F00 






/ 


64 


7F00 


0001 


A 


ZRO 


65 


7F00 


0003 


A 


BIT0 


66 


7F00 


0004 


A 


BIT1 



67 7F00 0005 A NZRO 

68 7F00 000B A RLE0 

69 7F00 ; 

70 7F00 0010 A CRADR 

71 7F00 0001 A READ 

72 7F00 0002 A PICK 

73 7F00 0003 A RESET 

74 7F00 

75 7F00 4C00 A ABSCR: 

76 7F01 4000 A 

77 7F02 4F10 A FIRST: 

78 7F03 0603 A 

79 7F04 0602 A 

80 7F05 4E50 A 

81 7F06 2924 A 

82 7F07 F521 A 

83 7F08 2107 A 

84 7F09 150A A 

85 7F0A 3481 A 

86 7F0B 5CFE A 

87 7F0C 1401 A 

88 7F0D 2103 A 

89 7F0E 136A A 

90 7F0F 216A A 

91 7F10 

92 7F10 291A A 

93 7F11 4C00 A 

94 7F12 F517 A 

95 7F13 4C06 A 

96 7F14 

97 7F14 4000 A 

98 7F15 4100 A 

99 7F16 2914 A 

100 7F17 4A00 A 

101 7F18 21FD A 

102 7F19 4500 A 

103 7F1A 4400 A 

104 7F1B 11E6 A 

105 7F1C F101 A 

106 7F1D 2102 A 

107 7F1E 0006 A SIX: 

108 7F1F 21E2 A 

109 7F20 4400 A GO: 

110 7F21 3281 A 

111 7F22 4F01 A 

112 7F23 1101 A 

113 7F24 2200 A 

114 7F25 4C05 A 

115 7F26 0000 A ZERO: 

116 7F27 3481 A 

117 7F28 21F8 A 

118 7F29 

119 7F29 4820 A EXCLAM: 

120 7F2A 8040 A G: 

121 7F2B 

122 7F2B : 



COMMAND 
SKIP: 



IGNORE 



.PAGE 

LI 

PUSH 

LI 

ROUT 

ROUT 

LI 

JSR 

SKNE 

JMP 

BOC 

RCPY 

SHR 

BOC 

JMP 

BOC 

JMP 

:JSR 
LI 

SKNE 
LI 

PUSH 

PUSH 

JSR 

AISZ 

JMP 

PULL 

PULL 

BOC 

SKNE 

JMP 

HALT 

JMP 

PULL 

RCPY 

LI 

BOC 

JMP 

LI 

HALT 

RCPY 

JMP 

.WORD 
.WORD 
.PAGE 



1 
2 
3 

1 
3 
4 
5 
11 

2*8 
1 
2 
3 

AC0,0 

AC0 

AC 3 , CRADR 

RESET 

PICK 

AC2,80 

RDCOL 

AC 1, EXCLAM 

COMMAND 

NZRO, IGNORE 

AC1,AC0 

AC0,2 

BITl,.+2 

SKIP 

BIT0,GOEND 

GODATA 

RDCOL 
AC0,0 
AC1,G 
AC0,6 

AC0 
AC1 
RDCOL 
AC2,0 
.-2 
AC1 
AC0 

ZRO, FIRST 
AC0,SIX 
GO 
6 

FIRST 
AC0 

AC0,AC2 
AC3,1 
ZRO, .+2 
(AC2) 
AC0,5 

AC1,AC0 
GO+1 

04820 
08040 



AC0 = 
AC0(0) = 1 
AC0(1) = 1 
AC0 ~= 
AC0 <= 

; CARD READER ADDRESS 

; READ DATA 

; PICK COMMAND 

; RESET PICK & INDEX MARK FLIP-FLOPS 

; SET ENTRY POINT 

READ A NEW CARD 

BE SURE INDEX MARK IS RESET 

GET CARD 

SET COLUMN COUNTER 

GET DATA 

CHECK FOR COMMAND CARD 

IGNORE REST OF CARD IF ERROR 

CHECK RECORD TYPE 

IGNORE TITLE & SYMBOL RECORDS 
PROCESS END RECORD 
PROCESS DATA RECORD 



; COMMAND: CHECK 2ND COLUMN 

; NO ERROR FOR COMMAND/TITLE/SYMBOL CARD 

; CHECK FOR '!G' (GO CARD) 

; SET FLAG 6 TO SIGNIFY GO CARD 

; SAVE CARD STATUS 

; READ REST OF COLUMNS 

; LOOP UNTIL DONE 

; DONE: RECOVER STATUS 

; GO TO NEXT CARD IF NO FLAGS SET 

; GO COMMAND 

; HALT IF ERROR: CODE IN AC0 

; RECOVER ENTRY POINT 

SIGNAL INPUT DEVICE IS CARDREADER 

CHECK FOR PROPER ENTRY POINT 

GO! 

INVALID ENTRY POINT: ERROR 5 



; EXCLAMATION POINT 



CRD16P 



123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 

1 -J o 

J. J J 

140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 



7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 4300 



7F2C 4F10 
7F2D 0401 



/ Hfl l\ 



7F32 

7F33 

7F34 

7F35 

7F36 

7F37 

7F38 

7F39 

7F3A 

7F3B 

7F3C 

7F3D 

7F3E 

7F3F 

7F3F 

7F3F 

7F3F 

7F3F 

7F3F 

7F3F 

7F3F 

7F3F 

7F40 

7F41 

7F42 

7F43 

7F44 

7F45 

7F46 

7F47 

7F48 

7F49 

7F4A 

7F4B 

7F4C 

7F4D 

7F4E 

7F4F 

7F50 

7F51 

7F52 

7F53 

7F54 

7F55 

7F56 

7F57 



2101 
21F9 
3181 
4C01 
4E01 
2102 
5CFC 
2905 
0603 
4700 
4AFF 
2100 
0200 



RDCOL - READ AND CONVERT A SINGLE COLUMN 
REGISTER USAGE: 



A 
A 
A 

7F2E 1401 A 
7F2F 21FD A 
7F30 1307 A 



4D00 

1122 

F127 

2120 

F126 

4D01 

F125 

4D02 A 

F124 A 

4D03 A 

F123 A 

4D04 A 

F122 A 

4D05 A 

F121 

4D06 

F120 

4D07 

F11F 

4D08 

F11E 

4D09 

F11D 

4D0A 

F11C 



AC0 
AC1 
AC 2 
AC 3 



RDCOL: PUSH 
LI 

$STRT: RIN 
BOC 
JMP 
BOC 
SKAZ 
JMP 
JMP 

$MOTERR:RCPY 
LI 
LI 
JMP 

$COL: SHR 
JSR 

$DONE : ROUT 
PULL 
AISZ 
JMP 
RTS 
.PAGE 



STATUS ON EXIT (0 IS NORMAL) 

DATA (BINARY IF NO ERROR; OTHERWISE UNCONVERTED) 

DECREMENTED COUNTER 

UNALTERED 



CVT: 



AC 3 

AC3,CRADR 

READ 

BIT1, .+2 

$STRT 

BIT0,$COL 

AC0 , HC 

$ MOT ERR 

$STRT 

AC0,AC1 

AC0,1 

AC2,1 

$DONE 

AC0,4 

CVT 

RESET 

AC 3 

AC2,-1 

.+1 





GET DATA 

LOOP UNTIL READY 

TEST FOR INDEX MARK 

TEST FOR HOPPER/MOTION CHECK 

I/O ERROR STATUS IN AC1 

ERROR CODE 1 

SIGNAL END OF CARD IF I/O ERROR 

STRIP STATUS BITS 
CONVERT TO BINARY 
CLEAR FLIP-FLOPS 
RESTORE AC 3 
DECREMENT THE COUNTER 

; RETURN 



CVT - CONVERT HOLLERITH TO HEX 

ON ENTRY: AC0 HAS HOLLERITH 

ON EXIT: AC0 HAS STATUS (0 = NORMAL; 2 = INVALID CHARACTER) 
AC1 HAS DATA (BINARY; UNCONVERTED IF ERROR) 



LI 

BOC 

SKNE 

JMP 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 



AC1.0 

ZRO^ BLANK 

AC0,TBL 

BLANK 

AC0,TBL+1 

ACl f l 

AC0,TBL+2 

AC1,2 

AC0,TBL+3 

AC1,3 

AC0,TBL+4 

AC1,4 

AC0,TBL+5 

AC1,5 

AC0,TBL+6 

AC1,6 

AC0,TBL+7 

AC1,7 

AC0,TBL+8 

AC1,8 

AC0,TBL+9 

AC1,9 

AC0,TBL+10 

AC1,10 

AC0,TBL+11 



CHECK FOR BLANK COLUMN 
CONVERT HEX TO BINARY 



CRD16P 



186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 



207 



208 



209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 



7F58 

7F59 

7F5A 

7F5B 

7F5C 

7F5D 

7F5E 

7F5F 

7F60 

7F61 

7F62 

7F63 

7F64 

7F65 

7F66 

7F67 

7F68 

7F69 

7F69 

7F69 

7F69 

7F6A 

7F6B 

7F6C 

7F6D 

7F6E 

7F6F 

7F70 

7F71 

7F72 

7F73 

7F74 

7F75 

7F76 

7F77 

7F78 

7F79 

7F79 

7F7A 

7F7B 

7F7C 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7D 

7F7E 

7F7F 

7F80 



4D0B 
F11B 
4D0C 
F11A 
4D0D 
F119 
4D0E 
F118 
4D0F 
F5C4 
2102 
4C00 
0200 
3181 
5D04 
4C02 
0200 



0200 
0100 
0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 
0900 
0880 
0840 
0820 
0810 
0808 

211A 
212A 
2198 
000C 



BLANK : 



INVCAR: 



LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

LI 

SKNE 

JMP 

LI 

RTS 

RCPY 

SHL 

LI 

RTS 



AC1,11 

AC0,TBL+12 

AC1,12 

AC0,TBL+13 

AC1,13 

AC0,TBL+14 

AC1,14 

AC0,TBL+15 

AC1,15 

AC1,ZER0 

INVCAR 

AC0,0 



AC0,AC1 

AC1,4 

AC0,2 





WAS CONVERSION ACCOMPLISHED? 

NO - INVALID CHARACTER 
GOOD CONVERSION: CLEAR STATUS 

PUT UNCONVERTED INVALID CHAR INTO AC1 
HOLLERITH WILL BE BITS 4-15 
SET ERROR CODE 2 
RETURN 



TBL: .WORD 0200,0100,0080,0040,0020 



.WORD 0010,0008,0004,0002,0001 



.WORD 0900,0880,0840,0820,0810,0808 



; THESE ARE FOR LONG JUMPS 



GOEND: JMP END 

GODATA: JMP DATA 

LAST: JMP IGNORE 

HC: .WORD 0C 

.PAGE 

. LOCAL 



RDWD - READ AND CONVERT A 16-BIT WORD 

REGISTER USAGE: 

AC0 STATUS ON EXIT (0 IS NORMAL) 

AC1 DATA 

AC2 DECREMENTED COUNTER 

AC3 UNALTERED 

RETURN: 

RTS ERROR (AC0 HAS STATUS) 
RTS 1 NORMAL RETURN 



4C04 
4D00 
4100 
4000 



A RDWD: LI AC0,4 

A RD1: LI AC1,0 

A PUSH AC1 

A MORE: PUSH AC0 



SET 4-COL COUNTER 

SAVE TEMP 
SAVE COUNTER 



CRD16P 



236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 



7F81 

7F82 

7F83 

7F84 

7F85 

7F86 

7F87 

7F88 

7F89 

7F8A 

7F8B 

7F8C 

7F8D 

7F8D 

7F8E 

7F8F 

7F90 

7F91 

7F92 

7F92 

7F92 

7F92 

7F93 

7F94 

7F94 

7F94 

7F94 

7F94 

7F94 

7F95 

7F96 

7F97 

7F98 

7F99 

7F9A 

7F9B 

7F9C 

7F9D 

7F9E 

7F9F 

7FA0 

7FA0 

7FA1 

7FA2 

7FA3 

7FA3 

7FA4 

7FA5 

7FA5 

7FA5 

7FA5 

7FA5 

7FA6 

7FA7 

7FA8 

7FA9 

7FAA 

7 FAB 

7FAC 

7FAD 

7FAE 

7FAF 

7FB0 



29A9 
150A 
4400 
5400 
5C04 
3482 
5400 
48FF 
21F6 
4500 
4C00 
0201 



5400 A $ERR: 
4400 A 
5400 A 
4400 A 
0200 A 



4C03 A RDLEN: 
21EA A 



29FD 
210D 
29E6 
210B 
29E4 
2109 
29E2 
2107 
F589 
21DD 
5500 
21DB 

4700 
4700 
4700 

21D7 
219A 



29EC 

21FC 

4100 

29D4 

21F8 

5500 

410£ A 

4F00 A 

29CF 

21F2 

3700 

29CC 



END; 



ERR3: 

ERR2: 

ERR1: 

$ERR: 

VALID; 

XCVT: 



DATA 



JSR 

BOC 

PULL 

XCHRS 

SHL 

RXOR 

XCHRS 

AISZ 

JMP 

PULL 

LI 

RTS 

XCHRS 

PULL 

XCHRS 

PULL 

RTS 



RDCOL 

NZRO, $ERR 

AC0 

AC0 

AC0,4 

AC1,AC0 

AC0 

AC0,-1 

MORE 

AC1 

AC0,0 

1 

AC0 
AC0 
AC0 
AC0 




; READ A COLUMN 

; GET TEMP 

; MERGE 4 BITS 

; DECREMENT COUNTER 

; LOOP FOR 4 COLUMNS 

; DATA NOW IN AC1 

; ZERO STATUS 

; NORMAL RETURN 

; SAVE ERROR STATUS 

; PULL COUNTER AND TEMP 



; RETURN WITH ERROR 
RDLEN - READ RECORD LENGTH (CARD COLUMNS 2-4) 



LI 
JMP 
.PAGE 
. LOCAL 



AC0,3 
RD1 



END CARD PROCESSING 



JSR 

JMP 

JSR 

JMP 

JSR 

JMP 

JSR 

JMP 

SKNE 

JMP 

XCHRS 

JMP 

PULL 
PULL 
PULL 

JMP 
JMP 
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RDLEN 

$ERR 

RDWD 

$ERR 

RDWD 

$ERR 

RDWD 

$ERR 

ACl,ZERO 

LAST 

AC1 

LAST 

AC 3 
AC 3 
AC 3 

LAST 
CVT 



DATA CARD PROCESSING 



JSR 


RDLEN 


JMP 


$ERR 


PUSH 


AC1 


JSR 


RDWD 


JMP 


ERR1 


XCHRS 


AC1 


PUSH 


AC1 


LI 


AC3,0 


JSR 


RDWD 


JMP 


ERR2 


RADD 


AC1,AC3 


JSR 


RDWD 



READ AND MERGE NEXT 3 COLUMNS 



SKIP OVER RECORD LENGTH 

SKIP CHECKSUM 

SKIP ADDRESS MODE 

READ LOAD ADDRESS 

STORE ONLY NON-ZERO ENTRY POINT 

ENTRY POINT IS ON TOP OF THE STACK 
IGNORE REST OF CARD 

RETURN WITH PROPER NO. OF PULLS 



AC0 TELLS STATUS 
IGNORE REST OF CARD 
LONG SUBROUTINE JUMP 



; GET RECORD LENGTH 
; SAVE BODY LENGTH 



SAVE CHECKSUM 

SAVE LENGTH COUNTER IN STACK 
INITIALIZE READ CHECKSUM 
SKIP ADDRESS MODE 



; READ LOAD ADDRESS 



CRD16P 



299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 



7FB1 
7FB2 
7FB3 
7FB4 
7FB5 
7FB6 
7FB7 
7FB8 
7FB9 
7FBA 
7FBB 
7FBC 
7FBD 
7FBE 
7FBF 
7FBF 
7FC0 
7FC1 
7FC2 
7FC3 
7FC4 
7FC5 
7FC6 
7FC7 
7FC8 
7FC9 
7FCA 
7FCB 
7FCC 
7FCD 
7FCE 
7FCF 
7FD0 
7FD1 
7FD2 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD3 
7FD4 
7FD5 
7FD6 
7FD7 
7FD8 
7FD9 
7FDA 
7FDB 
7FDC 



21EF 
3700 
4100 
29C8 
21EA 
3700 
29C5 
21E7 
3700 
4400 
5400 
48FC 
2100 
1B0D 

5400 
4000 
29BB 
21DD 
4400 
3380 
A700 
4B01 
3380 
3700 
5400 
48FF 
21F3 
4400 
4400 
11D4 
3C82 
11D2 
4C03 
21D0 



A JMP ERR2 

A RADD AC1,AC3 

A PUSH AC1 

A JSR RDWD 

A JMP ERR3 

A RADD AC1,AC3 

A JSR RDWD 

A JMP ERR3 

A RADD AC1,AC3 

A PULL AC0 

A XCHRS AC0 

A AISZ AC0,-4 

A JMP .+1 

A BOC RLE0,TCKSM 

A $LOOP: XCHRS AC0 

A PUSH AC0 

A JSR RDWD 

A JMP ERR3 

A PULL AG0 

A RXCH AC0,AC3 

A ST AC1,(AC3) 

A AISZ AC3,1 

A RXCH AC0,AC3 

A RADD AC1,AC3 

A XCHRS AC0 

A AISZ AC0,-1 

A JMP $LOOP 

A TCKSM: PULL AC0 

A PULL AC0 

A BOC ZRO, VALID 

A RXOR AC3,AC0 

A BOC ZRO, VALID 

A LI AC0,3 

A JMP $ERR 

.PAGE 'USER ROUTINES 



; SAVE LOAD ADDRESS 

; SKIP 1ST RELOC FIELD 



; SKIP 2ND RELOC FIELD 

; GET LOOP COUNTER 

; DECREMENT LENGTH COUNTER 

; NO MORE DATA - CHECK THE CHECKSUM 

PUT LOOP COUNTER BACK ON STACK 
PUT LOAD ADDRESS ON TOP OF STACK 
READ DATA 



; STORE THE DATA 

; INCREMENT THE ADDRESS 

; UPDATE READ CHECKSUM 
; GET LOOP COUNTER 

LOOP UNTIL DONE 

PULL ADDRESS 

PULL CARD CHECKSUM 

IF CHECKSUM = 0, DATA IS VALID 

COMPARE CHECKSUMS 

; CHECKSUM ERROR: CODE 3 



****************************************************************** 



READCARD ROUTINE - READ 

(NO 

CALLING SEQUENCE: 



AN 80 COLUMN CARD INTO A BUFFER 
CONVERSION) 



LD 
JSR 



* RETURN: 



AC2,BUFAD 
RDCARD 

RTS 
RTS 1 



; LOAD BUFFER ADDRESS 

; READ CARD INTO THE BUFFER 

ERROR (MOTION/HOPPER/OFFLINE) 
NORMAL RETURN 



ALL REGISTERS ARE SAVED AND RESTORED 



* * 

*********************************************************************** 



4000 A RDCARD: 
4100 A 



4300 
4200 
4F10 
4D50 
0A80 
0603 
0602 
0401 



$STRT: 



PUSH 

PUSH 

PUSH 

PUSH 

LI 

LI 

PFLG 

ROUT 

ROUT 

RIN 



AC0 

AC1 

AC 3 

AC 2 

AC3 f CRADR 

ACl f 80 

2 

RESET 

PICK 

READ 



; SAVE REGISTERS 



BUFFER ADDRESS IS IN AC2 
LOAD CARD READER ADDRESS 

RESET SELECT FLAG 
RESET INDEX MARK FF 
GET CARD 
GET DATA 



CRD16P 



362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 



7FDD 
7FDE 
7FDF 
7FE0 
7FE1 
7FE2 
7FE3 
7FE4 
7FE5 
7FE6 
7FE7 
7FE8 
75E9 
7FEA 
7FEB 
7FEC 



1401 
210F 
1303 
719B 
210C 
21F9 
0603 
5CFC 
A200 
4A01 
49FF 
21F3 
4600 
4700 
4500 
4400 



0603 
4600 
4700 
4500 
4400 
0200 



i r uu v i. v J. n 

7FEE 
7FEE 
7FEF 
7FF0 
7FF1 
7FF2 
7FF3 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF4 
7FF5 
7FF6 
7FF7 
7FF8 
7FF9 
7FFA 
7FFB 
7FFC 
7FFD 
7FFE 
7FFF 
8000 
8000 



BOC 
JMP 
BOC 
SKAZ 
JMP 
JMP 
COL: ROUT 

SHR 
ST 

AISZ 
AISZ 
JMP 
PULL 
PULL 
PULL 
PULL 



4000 
4100 
4300 
4200 
4F50 
8200 
29A9 
A600 
4A01 
4BFF 
21FA 
21EF 



MOTERR: ROUT 
RETURN: PULL 
PULL 
PULL 
PULL 
RTS 
.PAGE 



BIT1, .+2 

MOTERR 

BIT0,COL 

AC0 f HC 

MOTERR 

$STRT 

RESET 

AC0,4 

AC0, (AC2) 

AC2 f l 

AC1,-1 

$STRT 

AC 2 

AC 3 

AC1 

AC0 



RESET 
AC 2 
AC 3 
AC1 
AC0 




CHECK FOR READY 

ERROR RETURN IF CRDR IS OFFLINE 

TEST FOR INDEX MARK 

TEST FOR HOPPER/MOTION CHECK 



RESET FLIP-FLOPS 
STRIP STATUS BITS 
SAVE DATA IN BUFFER 
INCREMENT BUFFER ADDRESS 
DECREMENT COLUMN COUNT 



; MOTION ERROR / HOPPER CHECK 



. LOCAL 

* * 

* CNVRT - CONVERT BUFFER TO HEX 
* 

* CALLING SEQUENCE: 



LD 
JSR 



AC2,BUFAD 
CNVRT 



LOAD BUFFER ADDRESS 
CONVERT THE BUFFER TO HEX 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

CNVRT: 



* 

* EACH WORD OF THE BUFFER IS CONVERTED TO ITS BINARY EQUIVALENT. 

* IF THE HOLLERITH CODE IS NOT A VALID HEX CHARACTER, THE HOLLERITH 

* CODE IS STORED INSTEAD (BITS 4-15; BITS 0-3 ARE 0) 
* 

* ALL REGISTERS ARE SAVED AND RESTORED 
* 



$LOOP: 



7F00 A 



PUSH 

PUSH 

PUSH 

PUSH 

LI 

LD 

JSR 

ST 

AISZ 

AISZ 

JMP 

JMP 

.END 



AC0 

AC1 

AC 3 

AC 2 

AC3,80 

AC0, (AC2) 

XCVT 

AC1, (AC2) 

AC2 f l 

AC3,-1 

$LOOP 

RETURN 

ABSCR 



; SAVE REGISTERS 

; BUFFER ADDRESS IS IN AC 2 

; STORE BINARY VALUE (UNLESS ERROR) 



ERRORS IN ASSEMBLY 



CRD16P 



$COL! $DONE! $ERR" $ERR# $LOOP# $LOOP$ $MOTE ! $STRT! $STRT# ABSCR 

7F38 A 7F3A A 7F8D A 7FA3 A 7FBF A 7FF9 A 7F34 A 7F2D A 7FDC A 7F00 A 

AC0 AC1 AC2 AC3 BIT0 BITl BLANK CNVRT COL COMMAN 

0000 A 0001 A 0002 A 0003 A 0003 A 0004 A 7F63 A 7FF4 A 7FE3 A 7F10 A 

CRADR CVT DATA END ERR1 ERR2 ERR3 EXCLAM FIRST G 

0010 A 7F3F A 7FA5 A 7F94 A 7FA2 A 7FA1 A 7FA0 A 7F29 A 7F02 A 7F2A A 

GO GODATA GOEND HC IGNORE INVCAR LAST MORE MOTERR NZRO 

7F20 A 7F7A A 7F79 A 7F7C A 7F14 A 7F65 A 7F7B A 7F80 A 7FEE A 0005 A 

PICK RD1 RDCARD RDCOL RDLEN RDWD READ RESET RETURN RLE0 

0002 A 7F7E A 7FD3 A 7F2B A 7F92 A 7F7D A 0001 A 0003 A 7FEF A 000B A 

SIX SKIP TBL TCKSM VALID XCVT ZERO ZRO 
7F1E A 7F11 A 7F69 A 7FCC A 7FA3 A 7FA4 A 7F26 A 0001 A 

F220 B6B3 



OS 



PNL16P 



REVISION-G 05/16/74 
PNL16P 00311A 12/11/73 



0000 
0000 
OOCO 
COCO 
OOOO 
0000 

ccco 

8 0000 

9 0000 

10 0000 

11 0000 

12 COOO 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 OCOO 

19 0000 

20 0000 

21 OCCO 

22 0300 

23 0000 

24 OCCO 

25 0000 

26 CCOO 

27 0300 

28 0000 

29 0000 
3C COOO 

31 0000 

32 OOOO 

33 OOOO 

34 OOOO 

35 OOCO 



.TITLE PNL16P T , C0311A 
.ASECT 



12/11/73' 



36 3QQg 

37 OOOO 

38 OOCO 

39 OOOO 

40 OOOO 

41 OOOO 

42 OOOO 

43 OCCO 

44 CCOO 

45 OOOO 

46 OOOO 

47 OCOO 

48 OOOO 

49 OOOO 



7E00 
CCOO 
FFCO 
FF01 
FF7F 
FF80 



0001 A 

0003 A 

0004 A 
00C8 A 
0009 A 
0008 A 



0002 A 
0001 A 



OOCO A 

0001 A 

0002 A 

0003 A 



*********************************************************************** 



IMP-16P CCNTROL PANEL ROUTINE 

THIS PROGRAM FITS INTO 2 8X256-BIT PROMS CN THE 
IMP16P CCNTPCL PANEL INTERFACE CARD: 

PROM DIAGRAM 
ADDRESSES BITS CESIG CO-ORDINATE 



4600311 LOW FFOO-FFFF 0-7 BIU 
4610311 HIGH FFOO-FFFF 8-15 BIV 



6H 
7H 



*********************************************************************** 



*** DEFINITIONS *** 

RLOADER = X«7E00 

SORET = C 

ROMORG = X'FFOO 

RAM = RCMCRG ♦ 1 

IENS = C2 

SELS = D4 

; JUMP CONDITIONS 

REQO = 1 

RBITO = 3 

RBIT1 = 4 

STKFULL = 8 

IEN = 9 

RLEO = 11 

HARDWARE FLAGS 

SELF = 2 
IENF = 1 

REGISTERS 

ACO = 

AC1 = 1 

XR2 = 2 

XR3 = 3 



PAPER TAPE LOADER ENTRY 
STACK OFLO RETURN ACDR 



(ACO) = 
ACO(O) = 1 
AC0<1) = 1 
STACK FULL 
INTERRUPTS 
(ACO) <= 



ENABLED 



SELX FLAG 
INTERRUPTS ENABLE FF 



50 OOOO 

51 OOOO 

52 OOOO 

53 OCOO 

54 OOOO 

55 OOOO 

56 OCOO 

57 OOOO 

58 OCOO 

59 OOOO 

60 OOOO 



.PAGE 'SOFTWARE DESCRIPTION' 

CONTROL CONSOLE COMMANDS: 

NOTE: THESE COMMANDS ARE VALID ONLY WHEN SENT DURING THE 
CONTROL PANEL SERVICE ROUTINE. THEY CANNOT BE USED 
BY USER PROGRAMS (HARCWARE RESTRICTION). 

1. TO EXECUTE CONTROL PANEL COMMANDS* AC3 MUST 
CONTAIN THE CCNTROL PANEL ADDRESS (CPAD): 



PNL16P 



61 OCOO ; LD £C3,CPAC 

62 OOOO 

63 0000 

64 0000 

65 DOOO 

66 0000 

67 COOO 

68 0000 ; 3. 

69 0000 
7C COOO 

71 0000 

72 0000 

73 0000 ; 4. 

74 0000 

75 OCOO 

76 COOO 

77 0000 ; 5. 

78 0000 

79 OOOO 

80 OOOO 

81 COOO 

82 OOOO ; 6. 

83 OCCO 

84 OCOO 

85 OOOO 

86 OCCO 

87 COOO 

88 OOOO FF85 A CPAC = H760 

89 OCOO 

90 OOOO OOOO A LPCDR = X'OO 

91 COOO 

92 OCCO 0CC8 A LDR = X«08 

93 OOOO 

94 COOO 001C A GDS = X'10 

95 OOOO 

96 OOOO 0018 A GPCS = X»18 
<57 OOOO 
98 OOOO 0001 A EUM ~ X'Ol 



TO LOAD THE PROGRAM COUNTER DISPLAY REGISTER 
WITH THE CONTENTS CF ACO : 

ROUT LPCCR 

TO LOAD THE DATA REGISTER WITH THE CONTENTS 
OF ACO: 

ROUT LDR 

TO GET THE CATA SWITCHES AND LOAD THEM INTO ACO: 

RIN GCS 

TO GET THE PANEL COMMAND SWITCH AND LOAD IT 
INTO ACO: 

RIN GPCS 

TO ALLOW THE NEXT INSTRUCTION TC ACCESS USER MEMORY 
(FOR ONE LOAD/STORE ONLY): 

ROUT EUM 



(H760 IS THE ADDRESS OF 

A WORO THAT CONTAINS X'760i 

LCAD PC DISPLAY REG 

LOAD CATA OISPLAY REG 

GET DATA SWITCHES 

GET PNL CONT SWITCHES 

ENABLE USER MEMORY 



99 OOOO 

100 OOOO 

101 OCOO 

102 OOOO 

103 OCOO 

104 OOOO 

105 OOOO 

106 OOOO 

107 COOO 

108 OOOO 

109 OCOO 

110 OOOO 

111 OOOO 

112 OOOO 

113 OOOO 

114 OOOO 

115 OCOO 

116 OOOO 

117 OCOO 

118 OOOO 

119 OOOO 
12C OOOO 

121 OOOO 

122 OOOO 

123 OOOO 

124 COOO 

125 OOOO 



.PAGE 
CC^MAND WCRO BIT ASSIGNMENTS: 
BIT INDICATICN 

15 A ZERO INDICATES THAT THE CONSOLE HAS 
BEEN SERVICED AT LEAST CNCE SINCE THE 
LAST BLTTON WAS DEPRESSED. 

14 LOAD DATA PUSHBUTTON 

13 INCREMENT MEMORY ADDRESS PUSHBUTTON 

12 LCAC PROGRAM PUSHBUTTON 

11 (NOT USED) 

10 ACO SELECTED 

9 AC1 SELECTED 

8 AC2 SELECTED . 

7 AC3 SELECTED 



PNL16P 



126 


0003 


127 


ccco 


126 


ccco 


129 


300 


13C 


0000 


131 


ocoo 


132 


0000 


133 


03C0 


134 


0000 


135 


0330 


136 


oooc 


137 


0330 


138 


cooo 



6 PROGRAM COUNTER SELECTED 

5 NEXT INSTRUCTION SELECTED 

4 FLAGS SELECTED 

3 STACK SELECTED 

2 MEMORY ADDRESS POINTER SELECTED 

1 MEMORY DATA SELECTED 

PROGRAMMED DATA SELECTED 



139 


OCCO 


14C 


OCOO 


141 


0000 


142 


0000 


143 


0000 


144 


cooo 


145 


OCCO 


146 


0000 


147 


OCOO 


148 


3000 


149 


0000 


150 


OCCO 


151 


0000 


152 


OOCO 


153 


OCOO 


154 


3000 


i 55 


QCCQ 


156 


CCOO 


157 


0000 


158 


OCOO 


159 


0003 


160 


cooo 


161 


3CC0 


162 


0033 


163 


0300 


164 


oooc 


165 


0000 


166 


0000 


167 


0003 


168 


0000 


169 


OCCO 


170 


0000 


171 


OCOO 


172 


OCOO 


173 


0000 


174 


OCOO 


175 


3000 


176 


0000 


177 


OCCO 


178 


30C3 


179 


OCOO 


18C 


OCCO 


181 


0000 


182 


CCOO 


183 


000 3 


184 


0003 


185 


OCOO 



.PAGE 
CONTROL PANEL SERVICE IN TRANSPARENT MEMORY 
STORAGE ASSIGNMENTS AND DISPLACEMENT TABLE 







AC2 DISPLACEMENT 




LOCA- 




(IN D 


ECIMAL) 




T I ON 




ENTRY 


CONSOLE 




IHEX) 


USAGE 


EXIT 


SERVICE 


NOTES 


*00 




-3 


-19 




*01 


ACO 


-2 


-18 




*02 


AC1 


-1 


-17 




*03 


AC2 





-16 




#04 


AC3 


\ 


-15 




*05 


PC 


2 


-14 


CURRE 


*06 


STACK 


3 


-13 


TOP 


*07 


STK1 


4 


-12 




*08 


STK2 


5 


-11 




*09 


STK3 


6 


-10 




*0A 


STK4 


7 


-9 




*0B 


STK5 


8 


-8 




*0C 


STK6 


9 


-7 




*0D 


STK7 


10 


-6 




*0E 


STK8 


11 


-5 




*0F 


S7K9 


12 


-4 




*10 


STK10 


13 


-3 




*li 


STKH 


14 


-2 




*12 


STK12 


15 


-1 




*13 


STK13 


16 







*14 


STK14 


17 


1 




*15 


DISPLAYED C LAGS 18 


2 




*16 


RALU FLAGS 


19 


3 




*17 


MEM ADDRESS 


PTR 20 


4 




♦ 18 




21 


5 




*19 




22 


6 




*1A 




23 


7 




*18 




24 


8 




*1C 




25 


9 




*1D 




26 


10 




*1E 




27 


11 




*1F 




28 


12 








* ACTUAL ADDRESS PAGE = FFOO; CONTROL PANEL 

INTERFACE HARCWARE CNLY LOOKS AT LOWER EIGHT BITS. 



pnl:.6p 



186 


occo 






187 


0000 






188 


0000 


FF40 


A 


189 


FF40 




R 


190 


FF40 


B941 


A 


191 


FF41 


8940 


A 


192 


FF42 


A2FE 


A 


193 


FF43 


A6FF 


A 


194 


FF44 


AE01 


A 


195 


FF45 






196 


FF45 


44C0 


A 


197 


FF46 


008C 


A 


198 


FF47 


540C 


A 


199 


FF48 






200 


FF48 


4D04 


A 


201 


FF49 


4700 


A $ 


202 


FF4A 


AEC2 


A 


203 


FF4B 


4700 


A 


204 


FF4C 


AE03 


A 


205 


F^4D 


4700 


A 


206 


FF4E 


AE04 


A 


207 


FF4F 


47C0 


A 


208 


FF50 


AE05 


A 


209 


FF51 






210 


FF51 


4A04 


A 


211 


FF52 


49FF 


A 


212 


FF53 


21F5 


A 


213 


FF54 






214 


FF54 






215 


FF54 






216 


FF54 






217 


FF54 






218 


FF54 






219 


FF54 






220 


FF54 






221 


FF54 






222 


FF54 


A203 


A 


223 


FF55 






224 


FF55 


692B 


A 


225 


FF56 


19 01 


A 


226 


FF57 






227 


FF57 


48FE 


A 


228 


FF58 


3381 


A 


229 


FF59 


4CC1 


A 


230 


FF5A 


58EF 


A 


231 


FF5B 


1302 


A 


232 


FF5C 


4BFC 


A 


233 


FF50 






234 


FF50 


21C0 


A 


235 


FF5E 






236 


FF5E 


AE02 


A L 


237 


FF5F 






238 


FF5F 






239 


FF5F 






240 


FF5F 






241 


FF5F 


8D25 


A 


242 


FF60 


0418 


A 


243 


FF61 


3181 


A 


244 


FF62 


0410 


A 


245 


FF63 


3180 


A 


246 


FF64 


4F01 


A 


247 


FF65 






248 


FF65 






249 


FF65 


0A80 


A 


250 


FF66 


5803 


A 


251 


FF67 






252 


FF67 






253 


FF67 







.PAGE 'CONTROL CONSOLE SERVICE 1 



.LOCAL 

.=ROMORG*040 
RCCNSOLE: 

ST XR2,3AC2P 

LD XR2,AC2P 

ST AC0,-2(XR2) 

ST AC1,-1(XR2> 

ST XR3,1(XR2) 



SAVE ACCUMULATORS 

XR2 POINTS TO THE XR2 
SAVE LOCATION. 



SAVE THE RALU FLAGS 
IN ACO. 

SAVE THE STACK - 
4 PASS STACK SAVE 
SEQUENCE REQUIRES 6 
MORE WORDS THAN A 16 
PASS SEQUENCE. 
EXECUTION TIME FOR 
THIS SEQUENCE IS 255 
MICROCYCLES VS. 
440 MICROCYCLES FOR 
THE 16 PASS CASE. 

INCREMENT XR2 BY 4 
DECREMENT PASS COUNTER 
JUMP BACK TO $C IF NOT 
DONE. 



ON EXIT XR2 CCNTAINS X'*13 - (AC2P) + 16. 

PUT THE SELECT ANC INTERRUPT ENABLE FLAGS INTC BIT 

POSITIONS 2 ANC 1 OF THE FLAG WORD TO BE DISPLAYED, 

FIRST SET BITS 1 AND 2 



SAVE THE RALU FLAGS 

IN MEMORY LOCATION X»*16 

SET BITS 1 AND 2 TO ONE 

BRANCH IF THE INTERRUPT 

ENABLE IS SET 

IT IS NOT SET, CLEAR BIT 

TEST SEL FLAG 

BRANCH IF SET 
IT IS NOT SET, CLEAR 
BIT 2. SKIP MAY OCCUR 
SO DO A HIGH SPEED NOP 



PULL 


ACO 


PUSHF 




XCHRS 


ACO 


LI 


AC1,4 


PULL 


XR3 


ST 


XF3,2(XR2) 


PULL 


XR3 


ST 


XR3,3(XR2J 


PULL 


XR3 


ST 


XR3,4(XR2) 


PULL 


XR3 


ST 


XR3,5(XR2) 


AISZ 


XR2,4 


AISZ 


AC 1,-1 


JMP 


$0 



ST 


AC0,3(XR2) 


OR 


AC0,D6 


BCC 


IEN,.*2 


AISZ 


ACO ,-2 


RCPY 


AC0,XR3 


LI 


AC0,1 


ROR 


ACO, 17 


BCC 


RBITOtLSEL 


AISZ 


XR3,-4 



LSEL: 



JMP 



ST 



. + 1 



XR3,2(XR2) 



STORE THE DISPLAYEC 
FLAGS IN LOCATION X«*15. 



INPUT THE COMMAND AND DATA WORDS FROM THE CONSOLE 



LD 


XR3,CPAD 


RIN 


GPCS 


RCPY 


AC0,AC1 


RIN 


GDS 


RXCH 


AC0.AC1 


LI 


XR3,1 


PFLG 


SELF 


ROL 


ACO, 3 



XP3 := CONTROL PANEL ADDRESS 
FETCH THE PANEL CONTROL WORD 
NOTE: GPCS MUST BE READ FIRST 
FETCH THE DATA SWITCHES 

XR3 WILL INDICATE WHETHER 
OR NOT THE LOAD DATA 
SWITCH HAS BEEN DEPRESSED 
MAKE SURE SELX FLAG IS OFF 
RIGHT JUSTIFY BITS 15,14,13 



***ACTIVE SWITCH IS 'ZERO* AT THIS POINT*** 



PNL16P 



254 


FP67 


7118 


A 




SKAZ 


AC0,D4 


255 


FF68 


2101 


A 




JMP 


.+2 


256 


FF69 


2109 


A 




JMP 


$3 


257 


FF6A, 












258 


FF6A 


1B03 


A 




BOC 


RLEC,$l 


259 


PF6B 


8D18 


A 




LO 


XR3, LOADER 


260 


FF6C 












261 


FF6C 












262 


FF6C 


AEF2 


A 




ST 


XR3t-14(XR2) 


263 


FF6D 


4F01 


A 




LI 


XR3,1 


264 


FF6E 


1302 


A 


$l: 


BOC 


RBIT0t$2 


26 5 


FF6F 


7AC4 


A 




ISZ 


4(XR2) 


266 


FF70 












267 


FF70 


2100 


A 




JMP 


. + 1 


268 


FF71 


1401 


A 


$2: 


BOC 


RBIT1,$3 


269 


FF72 


4F00 


A 




LI 


XR3,0 


270 


FF73 












271 


FF73 












272 


FF73 


CDOF 


A 


$3i 


AOD 


XR3,ADD1 


273 


FF74 


5CC0 


A 




CAI 


AC0,0 


274 


FF75 












275 


FF75 






; ***NOW ACTIVE 


SWITCH IS '0 


276 


FF75 












277 


FF75 


5CFE 


A 




SHR 


AC0,2 


278 


FF76 


61CF 


A 




AND 


ACO,HFFC 


279 


FF77 


5CFE 


A 


$6: 


SHR 


AC0t2 


280 


FF78 


13C4 


A 




BOC 


RBIT0,$7 


281 


FF79 


1404 


A 




BOC 


RBIT1,$8 


282 


FF7A 


4B06 


A 




AISZ 


XR3,6 


283 


FF7B 


112E 


A 




BOC 


REQO, RESTORE 


284 


FF7C 












285 


FF7C 


21FA 


A 




JMP 


$6 


286 


FF7D 


23C0 


A 


$7: 


JMP 


(XR3) 


287 


FF7E 


2303 


A 


$8: 


JMP 


3(XR3) 


288 


FF7F 






» 






289 


FF7F 






» 






290 


FF7F 


0002 


A 


02: 


• WORD 


2 


291 


FF80 


0004 


A 


04: 


.WORD 


4 


292 


FF81 


CCC6 


A 


C6: 


.WORD 


6 


293 


FF82 


FFG3 


A 


AC2P: 


.WORD 


RAM + 2 


294 


FF83 


FF88 


A 


ADOl: 


.WORD 


DMD 


295 


FF84 


7EC0 


A 


LCADER: 


.WORD 


RLCADER 


296 


FF85 


0760 


A 


H76Q: 


,WORD 


X»0760 


297 


FF86 


OFFC 


A 


FFFC: 


.WORD 


X'OFFC 


298 


F<=87 


FFF9 


A 


HFFF9: 


• WORD 


X«FFF9 


299 


FF88 






t 






300 


FF88 






« 






301 


FF88 


2149 


A 


DMD: 


JMP 


LOMD 


302 


FF89 


4C00 


A 




LI 


AC 0,0 


303 


FF8A 


2147 


A 




JMP 


LDKC 


304 


FF8B 


A604 


A 


DMAR: 


ST 


AClt4(XR2) 


305 


FF8C 












3C6 


PF8C 












307 


FF8C 


8604 


A 




LO 


AC1»4(XR2) 


3C8 


FF8D 












309 


FF8D 












310 


FF8D 


2117 


A 




JMP 


PCDEX 


311 


FF8E 


A6F3 


A 


DSTACK: 


ST 


AC1,-13<XR2) 


312 


FF8F 


86F3 


A 




LO 


AC1,-13(XR2) 


313 


FF90 


2114 


A 




JMP 


PCDEX 


314 


FF91 


A602 


A 


CFLAGS: 


ST 


AC1,2(XR2) 


315 


FF92 


8602 


A 




LD 


AC1,2(XR2) 


316 


FF93 


2111 


A 




JMP 


PCDEX 


317 


FF94 


213F 


A 


ONI : 


JMP 


LDNI 


318 


FF95 


4C00 


A 




LI 


ACO,0 


319 


F«=96 


213D 


A 




JMP 


LCNI 


320 


«=F97 


A6F2 


A 


DPC: 


ST 


AC1,-14(XR2) 


321 


FF98 


86 F2 


A 




LD 


AC1,-14(XR2J 



TEST PCS(15). IF IT'S A 

1 THEN TEST THE OTHER 

SWITCHES. IF IT IS A 

DO NOT TEST THEM. 

BRANCH IF BIT 15 =PCS(12J IS 

NOT 0. THE COMMAND 

WORD WILL NEVER BE 0). 

IF BIT 15 IS THEN 

PUT THE LCADER ADDRESS 

IN THE RETURN PC, 

TEST INC MEM ADDR SWITCH 

INCREMENT THE MEMORY 

ADDRESS POINTER THEN 

DO A HIGH SPEED NO OP 

TEST LOAD DATA SWITCH 

THE LOAD DATA SWITCH 

HAS BEEN DEPRESSED. 

SET XR3 TO TO INDICATE THIS 



; MASK OFF THE UNWANTED BITS 



SWITCH IS IN AN 
INTERMEDIATE POSITION 



*** CONSTANTS *** 



DISPLAY MEMORY DATA 
SET FLAG FOR READ 

STORE THE DATA SWITCHES 
IN THE MEMORY ADORE SS 
POINTER (LOCATION X«*17.) 
LOAD AC1 WITH THE 
CONTENTS OF THE MEMORY 
ACDRESS POINTER (LOC X'*17) 
JUMP TO DISPLAY PC.AC1. 
DISPLAY THE TOP OF THE STACK 



; DISPLAY THE FLAGS 



01SPLAY THE NEXT INSTRUCTION 
SET FLAG FOR REAO 



; DISPLAY THE 

; PROGRAM COUNTER 



PNL16P 



322 
323 
324 
325 
326 
327 
328 
329 

2 30 
331 
332 
333 

3 34 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
36C 
361 
362 
363 
364 
365 
366 
367 
368 



FF99 
FF9A 
FF9B 
FF9C 
FF90 
FF9E 
FF9F 
FFAO 
FFA1 
FFA2 
FFA3 
FFA4 
FFA5 
FFA6 
FFA7 
FFA7 
FFA7 
FFA7 
FFA8 
FFA9 
FFAA 
FFAA 
FFAB 
FFAC 
FFAO 
FFAE 
FFAF 
FFBO 
FFB1 
FFB2 
FFB3 
FFB4 
FFB4 
FFB4 
FFB4 
FFB4 
FFB5 
FFB6 
PFB7 
FFB8 
FFB9 
FFBA 
FFBB 
FPBC 
FFBO 
PFBE 
FFBF 



21CB 
A6F1 
86F1 
21C8 
A6F0 
86F0 
2105 
A6FF 
86EF 
2102 
A6EE 
86EE 
82F2 
8D0E 



0600 
3481 
06C8 

8202 
71C4 
OAOO 
0980 
71C3 
C9C0 
6106 
8603 
65CE 
31C0 



4F04 
4AFC 
8205 
40C0 
82C4 
4000 
8203 
4000 
8202 
4000 
4BFF 
21F5 



DXR3: 



DXR2: 



CACl: 



CACO: 



PCDEX: 



DOl: 



RESTORE 



$4: 



JMP 


PCDEX 


ST 


AC1,-15(XR2) 


LD 


AC1,-15<XR2J 


JMP 


PCDEX 


ST 


ACi,-16(XR2l 


LD 


AC1,-16(XR2) 


JMP 


PCDEX 


ST 


AC1,-17(XR2) 


LD 


AC1,-17(XR2) 


JMP 


PCDEX 


ST 


AC1,~18(XR2) 


LO 


AC1,-18(XR2) 


LD 


AC0,-14(XR2) 


LO 


XR3,CPAD 



ROUT 
RCPY 
ROUT 

LD 

SKAZ 

S^LG 

PFLG 

SKAZ 

SFLG 

AND 

LD 

AND 

RADO 



LPCDR 

AC1,AC0 

LDR 

AC0,2(XR2) 

ACO,SELS 

SELF 

IENF 

ACOtlENS 

IENF 

AC0.HFFF9 

AC1,3(XR2) 

AC1,D6 

AC0,AC1 



.LOCAL 




LI 


XP3,4 


AISZ 


XR2t-4 


LD 


AC0,5<XR2) 


PUSH 


ACO 


LD 


ACC,4<XR2) 


PUSH 


ACO 


LD 


AC0,3(XR2) 


PUSH 


ACO 


LD 


AC0,2(XR2) 


PUSH 


ACO 


AISZ 


XR3,~i 


JMP 


$4 



; DISPLAY XR3 



; DISPLAY XR2 



; DISPLAY AC1 



DISPLAY ACO 

PUT THE DISPLAYED PC IN ACO 
DISPLAY THE CONTENTS OF 
ACO IN THE PC/MEM ADDRESS 
LIGHTS AND DISPLAY ACi IN 
THE SELECTED DISPLAY LIGHTS 



RESTORE THE INTERRUPT 
ENA8LE AND SELECT FLAGS. 
THE SELECT FLAG WAS 
CLEARED IN THE PANEL 
SERVICE SEQUENCE. 



MAKE UP THE NEW RALU 
FLAGS 

THE NEW FLAGS ARE SAVED 
IN ACI WHILE THE STACK 
IS RESTORED 

RESTORE THE STACK: 
4 PASS SEQUENCE REQUIRES 
6 MCRE WORDS THAN A 16 
PASS SEQUENCE BUT 
EXECUTES IN 247 
MICRgCYCCES AS 
OPPOSED TO 432 
MICROCYCLES 



369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
38C 
381 
382 
383 
384 
385 
386 
387 



FFCO 

FFCO 

FFCO 

FFCO 

FFCO 

PFCO 

FFCO 

FFCO 

FFCO 

FFCO 

F^CO 

FFCO 

FFCO 

FFCC 18C1 

FFC1 2105 

FFC2 810E 

FFC3 4QG0 

FFC4 4000 

FFC5 44C0 



.PAGE 'RETURN TO USER PROGRAM* 
STACK OVERFLOW HANDLER 

IF THE STACK IS FULL THEN IT IS POSSIBLE THAT THE 
CONSOLE SERVICE ROUTINE HAS PUSHED A VALUE OFF THE 
BOTTOM OF THE STACK. IN THIS EVENTUALITY* THE 
INTERRUPT ENABLE FLAG IS CLEARED AND CONTROL IS 
RETURNEO TO LCC WITH THE OLD PC ON TOP OF THE 
STACK. THE BOTTOM TWO STACK POSITIONS MUST BE 
CLEARED TO GUARANTEE PROGRAM STABILITY IN THE OVER- 
FLOW CONDITION WHILE IN THE SINGLE INSTRUCTION MODE. 



IS THE STACK FULL? 
NO, JUMP AROUND THIS. 
YES, PUT THE PANEL OVER- 
FLOW RETURN LOCATION ON 
THE STACK, PUSHING CFF 
STK14, THEN PUSH OFF 



BOC 


STKFULL,.+2 


JMP 


$6 


LD 


ACO,PRTN 


PUSH 


ACO 


PUSH 


ACO 


PULL 


ACO 



PNL16P 



388 

339 

39C 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

40 2 

403 

4C4 

405 

406 

407 



FPC6 
FFC6 
C FC6 
FFC6 

FFC6 09SO 
FFC7 
FFC7 

FFC7 55Cj 
PFC8 0283 
FFC9 41C0 
FFCA 82F5 
FFCB 86FF 
FFCC 8E01 
FFCD 8A00 
* e CE 

FFCE A101 
FFC C 

FFCF 02C0 
PFOO FFD1 
FFD1 0000 



$6: 



SDUMY: 
PRTN: 



p = LG 



XCHRS 

PULLF 

PUSH 

LD 

LD 

LD 

LO 

ST 

RTS 

.=.♦1 

.WORD 



IENF 



AC1 

AC1 

AC0,-2(XR2) 

AC1,-1(XR2) 

XR3,1(XR2) 

XR2,(X»2) 

ACC,$DUMY 



SCRET 



STK13 ANf PULL GNCE TO CLEAR 
THE STACK BOTTOM. THE NEXT 
TC STACK BOTTOM WILL 3E 
CLEARED *ITh THE RTS RETURN. 
FINALLY, CLEAR THE 
INTERRUPT ENABLE. 

RESTORE THE RALU ^tAGS 



; RESTORE THE REGISTERS 



; * RETURN * 

; SET «LAST» F-F SC 'RTS' 

: RETURNS TO USER MEMORY. 

; ENABLE AND RETURN. 

; PANEL SVC STK CFLC RETURN 



408 
409 
41C 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 



FPD2 
FFC2 
FFD2 
FFD2 
FFD2 
FF02 
F*D2 
FF02 
FFD2 
F^D2 
FF03 
FFD4 
FFD5 
FFD6 
FFD7 
FCD8 
FFD9 
FFCA 
FFDB 
FFDC 
FFDD 
FFDE 
FFDE 
PFOE 



8A04 
2101 
8AF2 
80AF 
1103 
0601 
A6C0 
2102 A 
0601 A 
86C0 A 
3881 A 
4E13 A 



LCMC: 



LDNI: 



ROMEM; 



.PAGE •ACCESSING USER MEMORY* 

ACCESSING USER MEMORY FOR 

•MEMORY DATA* OR 'NEXT INSTRUCTION* 



ON ENTRY TC LCMC OR LDNI: 



21C8 A 



LD 

JMP 

LC 

LD 

BOC 

ROUT 

ST 

JMP 

POUT 

LD 

RCPY 

LI 



JMP 



ACO * 
ACO * 1 

XR2,4(XR21 

.♦2 

XR2,-14(XR2) 

XR3.CPAD 

REQOtRDMEM 

EUM 

AC1,<XR2) 

.♦3 

EUM 

AC1,(XR2) 

XR2.AC0 

XR2,X«13 



C01 



READ USER MEMORY 
ALTER USER MEMORY 

; LOAD MEMORY DATA POINTER 

; LCAD NEXT INSTRLCTICN PTR 

; CHECK IF ALTER OR REAC 

; ALTER USER MEMORY 



READ USER MEMORY 

PUT ADnc tki Am ens rum *v 

■ w ■ — •-'%*'- « . * ^ w w f w»^ \J J. w r- w m I 

PANEL ADDRESS HARDWARE ONLY 
LOOKS AT THE LOWER EIGHT 
BITS OF THE ADDRESS 



432 F*DF 

433 FFDF FFFD A 

434 FFFD 2501 A 

435 FFFE 2000 A 



436 FFFF FF40 A CPOINT: ,*CRC 



•PAGE "ENTRY POINT* 

•=R0MORG*0FD 
CONSCLE:JMP 3CP0INT 
INIT: JMP 3 



*37 000 FF40 A 



.END 



RCONSOLE 
RCONSOLE 



; CONTROL CONSOLE ENTRY 
; DUMMY INIT. ENTRY POINT 



****** 



ERRORS IN ASSEMBLY ****** 



PNL16P 



$0" $1" $2" $3" $4# $6" *6# $7" $8" $DUMY# 
FF49 A F«=6E A FF71 A FF73 A FFB5 A FF77 A FFC7 A FF7D A FF7E A FFDO A 

ACO AC1 AC2P ADD1 CCNSOL CPAD CPOINT OCl D2 04 
0000 A 0001 A FF82 A FF83 A FFFD A FF85 A FFFF A FFA7 A FF7F A FF80 A 

C6 CACO DACl CFLAGS OMAR DMO DNI DPC DSTACK 0XR2 
FF81 A FFA3 A FFAO A FF91 A FF8B A FF88 A FF94 A FF97 A FF8E A FF9D A 

CXR3 EUM GDS GPCS H760 HFFC HFFF9 IEN IENF IENS 
FF9A A 0001 A 0010 A 0018 A FF85 A FF86 A FF87 A 0009 A 0001 A FF7F A 

INIT LOMD LDNI LDP LCADER LPCDR LSEL PCDEX PRTN RAM 
FFFE A FFD 2 A FFD4 A 0008 A FF84 A 0000 A FF5E A FFA5 A FFD1 A FF01 A 

RBITO RBIT1 RCCNSO RDMEM RECO RESTOR RLEC RLOAOE RCMORG SELF 
0003 A C004 A FF40 A FFDA A 0001 A FFAA A OOOB A 7E00 A FFOO A 0002 A 

SELS SORET STKFUL XR2 XR3 
FF80 A 0000 A 0008 A 0002 A 0003 A 



597E 2164 



